Forums Neueste Beiträge
 

Systemmeldung abfangen

30/07/2009 - 12:57 von Peter Wilker | Report spam
Hallo

Ich habe in einer Tabelle die Eigenschaft für ein Feld auf 'Eingabe
erforderlich = Ja' und 'Leere Zeichenfolge erlauben = Mein' gesetzt. Die
Systemmeldung wollte ich mit dieser Prozedur abfangen. Klappt auch, aber
nach der Msgbox 'Feld LEER' erscheint jedesmal die Systemmeldung.
Wie kann ich diese unterdrücken?

Code:

Private Sub Form_Error(DataErr As Integer, Response As Integer)

DoCmd.SetWarnings False


Select Case DataErr

Case Is = 3314


MsgBox "Feld LEER"


'Case Is = 0 ' Kommt noch


Case Else


MsgBox "Bei Fehler " & DataErr


End Select


DoCmd.SetWarnings True


End Sub


Besten Dank

Hans-Peter Wilker
 

Lesen sie die antworten

#1 Mark Doerbandt
30/07/2009 - 13:06 | Warnen spam
Hallo, Peter,

Peter Wilker:

Ich habe in einer Tabelle die Eigenschaft für ein Feld auf 'Eingabe
erforderlich = Ja' und 'Leere Zeichenfolge erlauben = Mein' gesetzt. Die
Systemmeldung wollte ich mit dieser Prozedur abfangen. Klappt auch, aber
nach der Msgbox 'Feld LEER' erscheint jedesmal die Systemmeldung.
Wie kann ich diese unterdrücken?

Code:

Private Sub Form_Error(DataErr As Integer, Response As Integer)

DoCmd.SetWarnings False

Select Case DataErr

Case Is = 3314

MsgBox "Feld LEER"

'Case Is = 0 ' Kommt noch

Case Else

MsgBox "Bei Fehler " & DataErr

End Select

DoCmd.SetWarnings True

End Sub



Du musst noch Response setzen.

Gruss - Mark

Informationen fuer Neulinge in den Access-Newsgroups unter
http://www.doerbandt.de/Access/Newbie.htm

Bitte keine eMails auf Newsgroup-Beitràge senden.

Ähnliche fragen