LEADERSOFT.ru Разработка на заказ программ и сайтов
ЕСЛИ БАЗА ВАМ НУЖНА В ЛИДЕРСОФТ ЗАЙДИ СПЕРВА!
Все примеры Microsoft Access - VBA


















































06. Простейший вариант для определения какой файл используется: mde или mdb смотрите пример 6

Все примеры Microsoft Access
Private Sub Form_Load()
Dim Flag As Variant, dbs As Database
On Error GoTo 999
    ' Получаем информацию о текущей базе
    Set dbs = CurrentDb
    If dbs.Properties("MDE") = "T" Then ' Такого свойства нет в mdb
        Me.myTypeDB = 2 ' Указываем вид для формы
    End If
    Exit Sub
999:
    Err.Clear
    Me.myTypeDB = 1
End Sub