title image


Smiley Re: Frage ob gespeichert werden soll
Hallo Heiko,Bei Deiner Fehlerbehandlung kannst Dugleich - On Error Resume Next - nehmen.In die Prozedur gehört noch - Me.Undo - hineinum die Änderungen zurückzunehmen.Private Sub Form_BeforeUpdate(Cancel As Integer)On Error Resume NextDim FrageFrage = MsgBox("Soll die Änderung gespeichert werden?", _vbYesNo + vbQuestion + vbDefaultButton1)If Frage = 7 ThenCancel = TrueMe.UndoEnd IfEnd SubDie Meldung beim Schließen kriege ichmit einer Prozedur beim Ereignis - Bei Fehler -der Formulars weg.Zuerst frage ich mit einer Messagebox die FehlernummerDataErr ab - Msgbox DataErr, ansonsten wird bei jedemFehler z.B. ein Response = acDataErrContinue durchgeführtDieses schaltet nämlich die oft sinnlosen AccesseigenenFehlermeldungen aus (z.B.: Der Befehl OpenReport wurdeabgebrochen - Welcher Anwender versteht das?) Private Sub Form_Error(DataErr As Integer, Response As Integer)If DataErr = 2169 Then Response = acDataErrContinueEnd IfEnd SubGrußWalter Griesser

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: