Pflichtfelder überprüfen

24/09/2007 - 09:22 von Jan Nitsch | Report spam
Hallo

Ich möchte vor dem Speichern eines neuen Datensatzes überprüfen, ob
einige Formularfelder ausgefüllt worden sind. Falls das nicht der Fall
sein sollte, soll eine entsprechende Fehlermeldung ausgegeben werden.

Mein Code sieht bis jetzt so aus:

Private Sub eintragen_Click()
On Error GoTo Err_eintragen_Click

If IsNull(Me!fkt1) Or IsNull(Me!fkt2) Or IsNull(Me!fkt3) Or IsNull(Me!
fkt4) Then
MsgBox "Bitte geben Sie eine Funktionsstelle an."
Me!fkt1.SetFocus
Exit Sub

ElseIf IsNull(Me!schicht) Then
MsgBox "Bitte wàhlen Sie eine Schicht aus!"
Me!schicht.SetFocus

Exit Sub

End If

DoCmd.GoToRecord , , acNewRec

Me.Dirty = False

Exit_eintragen_Click:
Exit Sub

Err_eintragen_Click:
MsgBox Err.Description
Resume Exit_eintragen_Click

End Sub

Mfg
Jan
 

Lesen sie die antworten

#1 Karl Donaubauer
24/09/2007 - 09:31 | Warnen spam
Jan Nitsch wrote:
Ich möchte vor dem Speichern eines neuen Datensatzes überprüfen, ob
einige Formularfelder ausgefüllt worden sind. Falls das nicht der Fall
sein sollte, soll eine entsprechende Fehlermeldung ausgegeben werden.

Mein Code sieht bis jetzt so aus:

Private Sub eintragen_Click()
...



Du hast eine Kleinigkeit in deinem Beitrag vergessen: Das Problem.

Falls es um das richtige Ereignis geht: Solche Prüfungen erledigt
man am besten im Ereigniscode "Vor Aktualisierung" des Formulares,
das sich - und damit die Speicherung - gut abbrechen làsst. s.a.

Rückfrage vor dem Speichern
www.donkarl.com?FAQ4.32


HTH
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ: http://www.donkarl.com + Info zur
Access-Entwickler-Konferenz (AEK10) im Oktober in Nürnberg

Ähnliche fragen