| |
|
|
| | Добрый вечер :)
У меня образовалась такая проблема:
12 лет назад я написала в Access-2.0 (это тогда было как отдельное приложение к Windows) БД. Сейчас мне нужно перетащить ее в Access-2000. НО: не работают "вспомогательные функции", которые я тогда взяла из примерной БД), в частности IsLoaded (имя формы). И утерялась связь между двумя подчиненными формами - мне нужно связать внутри главной формы две подчиненные через поле - вот это вдруг здесь не идет... :(
Вопросы:
1. есть какой-либо встроенный модуль взамен IsLoaded? И как его подключить и пользоваться?
2. Как связать две подчиненные формы, если в одной счетчик, а в другой число?
п.с. в связи с тем, что я практически не писала с тех пор БД (разве что элементарные в Access-2000), прошу отвечать как можно проще и понятнее :)) | |
| |
| |
| |
|
|
| | Public Function IsLoaded(strFormName As String, Optional ReturnFormObject As Form) As Boolean
Dim frm As Form
Const DesignMode = 0, FormViewMode = 1
For Each frm In Forms
If frm.Name Like strFormName Then
If frm.CurrentView = FormViewMode Then
IsLoaded = True
Set ReturnFormObject = frm
Exit Function
End If
End If
Next frm
End Function
 | |
| |
| |
| |
|
|
| | Почти тоже самое, но проще:
Public Function IsOpenForm(strFormName As String, Optional frm As Form) As Boolean
On Error Resume Next
Set frm = Forms(strFormName)
IsOpenForm = frm.CurrentView
End Function
|
| |
| |
| |
| |
|
|
| |
Public Function IsLoadedForm(strFormName As String) As Boolean
IsLoadedForm = CurrentProject.AllForms(strFormName).IsLoaded
End Function
|
| |
| |
| |
