LEADERSOFT.ru Разработка на заказ программ и сайтов
Раздел обучения информационным технологиям
Разработка программ на Access
06. Простейший вариант для определения какой файл используется: mde или mdb смотрите пример 6
Свойства продукта

 Microsoft Office: 2000,2002,2003,2007,2010  Архив с файлами: Перейти
 Операционная система: Windows XP,Vista  Применение: Базы данных Access
 Продажа: Купить  Файл исходника: ..\Access\03 Защита\la_protection1.mdb
 Язык интерфейса: Русский

   

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

Copyright © 2002-2015 ООО Лидер Эксэсс
Сайт работает под управлением: ASP.NET, Access