Code Snippet "VBA Access"

Kombinationsfeld in Unterformular aufdatieren (Syntax für Formular und Steuerelemente)

Private Sub Form_Close()
On Error GoTo Err_Form_Close
  'Zugriff auf Steuerelement des Unterformulars
  If CurrentProject.AllForms("frm_codeexamples").IsLoaded Then
    Forms!frm_codeexamples.subfrm_codelang!language_id.Requery
  End If
Exit_Form_Close:
    Exit Sub

Err_Form_Close:
    MsgBox Err.description
    Resume Exit_Form_Close
End Sub