Автор работы: Пользователь скрыл имя, 03 Марта 2013 в 17:28, курсовая работа
Широкое распространение компьютерной техники и вычислительных сетей привело к увеличению объемов информации, хранимой в электронном виде, что повлекло необходимость усовершенствования принципов предварительной обработки и структурирования вводимых данных, а также алгоритмов доступа и модификации данных. Это привело к концепции баз данных и систем управления базами данных (СУБД). В настоящее время наиболее распространенными и промышленно применимыми являются реляционные базы данных.
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