Ich habe eine Optionsgruppe die bei Focuserhalt ein bestimmtes Formular öffnet, ich will bei Focusverlust, dass mir diese Formulare wieder schließen aber wie mache ich das
Hier der Code zum Formular öffnen
Function OpenForms(strFormName As String) As Integer
' Diese Funktion wird vom Ereignis "Bei Focuserhalt" der Optionsfelder in der Hauptübersicht
' aufgerufen, wodurch Formulare geöffnet werden. Die Verwendung einer einzelnen Funktion ist effizienter,
' als den gleichen Code in mehreren Ereignisprozeduren zu wiederholen.
On Error GoTo Err_OpenForms
' Angegebenes Formular öffnen.
DoCmd.OpenForm strFormName
Exit_OpenForms:
Exit Function
Err_OpenForms:
MsgBox Err.Description
Resume Exit_OpenForms
End Function |