title image


Smiley Re: Standard-Fehlermeldung durch eigene Fehlermeldung ersetzen
Indem du einen Fehlerbehandler in jede deiner Prozeduren setzt und den Fehler dort abfängst, und weiterhin das Error-Ereignis des Formulars auswertest.Also etwa so:Private Sub WelcheEreignisprozedurAuchImmer()On error goto er'Hier kommt dein CodeEx:On error resume next' Endeverarbeitung Exit SubEr: FehlerBehandeln Err.Number, Err.Description Resume ExEnd SubPrivate Sub Form_Error(DataErr As Integer, Response As Integer) FehlerBehandeln DataErr Response = acDataErrContinue End SubPublic Function FehlerBehandeln(ErrN, Optional ErrD ="")Dim ErrDesc ErrDesc = ErrD If ErrD = "" then ErrDesc = Err.Description Select Case ErrN 2012: MsgBox "Meine Fehlermeldung" 2013,2014: Beep Case Else: MsgBox ErrDesc End SelectReinhard


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: