Access-o-Mania

Access-Forum (Deutsch/German) => Formular => Thema gestartet von: MichaelW am August 19, 2020, 03:10:21

Titel: Bei leerem Textfeld MsgBox öffnen
Beitrag von: MichaelW am August 19, 2020, 03:10:21
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"
Titel: Re: Bei leerem Textfeld MsgBox öffnen
Beitrag von: DF6GL am August 19, 2020, 08:02:35
Hallo,  diesen Code nicht.
Titel: Re: Bei leerem Textfeld MsgBox öffnen
Beitrag von: Beaker s.a. am August 19, 2020, 12:29:58
Hallo Michael,
Da nicht gesichert ist, dass das Ereignis beim Textfeld ausgelöst
wird, würde ich das gleichnamige Form-Ereignis dazu heranziehen
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