Разработать базу данных любителей кошек
Курсовая работа, 03 Марта 2013, автор: пользователь скрыл имя
Краткое описание
Широкое распространение компьютерной техники и вычислительных сетей привело к увеличению объемов информации, хранимой в электронном виде, что повлекло необходимость усовершенствования принципов предварительной обработки и структурирования вводимых данных, а также алгоритмов доступа и модификации данных. Это привело к концепции баз данных и систем управления базами данных (СУБД). В настоящее время наиболее распространенными и промышленно применимыми являются реляционные базы данных.
Содержимое работы - 1 файл
Курсовой проект БД любителей кошек.doc
— 8.69 Мб (Скачать файл) If CurrentDb().Properties("
blnReturnValue = True
Else
blnReturnValue = False
End If
IsItAReplica_Exit:
IsItAReplica = blnReturnValue
Exit Function
IsItAReplica_Err:
Resume IsItAReplica_Exit
End Function
Module3
Option Compare Database
Option Explicit
Function IsLoaded(ByVal strFormName As String) As Boolean
Dim oAccessObject As AccessObject
Set oAccessObject = CurrentProject.AllForms(
If oAccessObject.IsLoaded Then
If oAccessObject.CurrentView <> acCurViewDesign Then
IsLoaded = True
End If
End If
End Function