ник: Волшебник
Чето у меня не получается
Пробую так:
Private Sub Кнопка1_Click()
Dir ("C:\База данных.accdb")
If Dir("C:\База данных.accdb") = True Then
If (7 = MsgBox("Найден", 64, "Проверка файла")) Then
End If
Else
If (7 = MsgBox("Нет", 64, "Проверка файла")) Then
End If
End If
End Sub