Predmet:Re: Ribbon XML / Controls
a možeš i ovu ako ti ipak treba neka forma biti upaljena
Public Function formIsLoaded(ByVal vstrForm2Check As String, Optional ByVal vblnExcludingForm2Check As Boolean = False) _
As Boolean
On Error GoTo Err_formIsLoaded
Dim aobForm As AccessObject
For Each aobForm In Application.CurrentProject.AllForms
If aobForm.IsLoaded Then
If aobForm.Name = vstrForm2Check And vblnExcludingForm2Check = False Then
formIsLoaded = True
Exit Function
ElseIf aobForm.Name <> vstrForm2Check And vblnExcludingForm2Check = True Then
formIsLoaded = True
Exit Function
End If
End If
Next aobForm
formIsLoaded = False
Exit_formIsLoaded:
Exit Function
Err_formIsLoaded:
MsgBox Err.Description
Resume Exit_formIsLoaded
End Function