Bei leerem Textfeld MsgBox öffnen

[MichaelW]

Hallo, in meinem Unterformular ist das letzte Feld ein Textfeld. Dort muss ein Datum stehen.

Kann ich ,,vor Aktualisierung" folgenden Code einsetzen ?

Lg isnull (Me.MeinFeld) Theke MsgBox ,,Bitte Datum einsetzen"

[DF6GL]

Hallo,  diesen Code nicht.

[Beaker s.a.]

Hallo Michael,
Da nicht gesichert ist, dass das Ereignis beim Textfeld ausgelöst
wird, würde ich das gleichnamige Form-Ereignis dazu heranziehen

Code [Auswählen] Erweitern

Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Nz(Me.DeinFeld, "") = "" Then
        Msgbox "Bitte Datum einsetzen"
        Cancel = True
        Me.DeinFeld.SetFocus
    End If
EndSub
gruss ekkehard