Форумы/     Моё ИзбранноеКомментарии к статьямMsAccess,VBРабота.NETCвободные темыОбсуждение сайта Сообщений: всего:53631, сегодня:0, за неделю:19, за месяц:34, за год:1605 Использование СУБД Ms Access, программирование на VB, VBA Данный форум посвящен различным вопросам создания приложений баз данных на платформах - Microsoft Access, Microsoft Visual Basic. Public forum

Проверка на наличие файла Волшебник

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

07.02.2010 22:28 (последнее изменение - 07.02.2010 23:19)