|
Hallo,
Ich habe für ein Kombifeld eine Prozedur geschrieben, die zwei Aufgaben erfüllen soll:
1. SChritt: suche den im Kombifeld ausgewählten Datensatz in der Tabelle und zeige ihn in einem Formular in einem Registersteuerelement auf der Seite 1 an.
2. Schritt: prüfe, ob das Feld CD_ID (numerisches Feld) leer ist. Ist das der Fall, blende die Seite 2 des Registersteuerelements ("Kontakt") aus.
Der erste Schritt funktioniert wie erwartet.
Private Sub cbo_Goto_AfterUpdate()
Rem Schritt 1: Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
Me.RecordsetClone.FindFirst "[Org_ID] = " & Me![cbo_Goto]
Me.Bookmark = Me.RecordsetClone.Bookmark
REM SChritt 2: ein bestimmtes Feld prüfen, ob es leer ist
If IsEmpty(CP_ID.Value) Then Kontakt.Visible = False
ELSE Kontakt.Visible = True
End If
End Sub
Problem:
Der Debugger gibt stets die Information aus, dass es ein "End If" ohne "If" gibt. Die IF-Zeile wird also ignoriert aus welchem Grund auch immer. Ich habe auch IsEmpty() durch IsNull() ersetzt - der Fehler bleibt.
Hat jemand eine Idee, warum das nicht funktioniert?
|