title image


Smiley TIPP: Explizites Speichern per Schaltfläche
Das geht z.B. mit einer Private-Variablen und:

Private IchHabGespeichert as Boolean



Private Sub Speichern_Click()

IchHabGespeichert = True

Docmd.Runcommand acCmdSaverecord

end sub



Private Sub Abbrechen_Click()

IchHabGespeichert = True

Me.Undo

Docmd.Close acForm, Me.Name

end sub



Private Sub Form_AfterUpdate()

IchHabGespeichert = False

end sub



Private Sub Form_BeforeUpdate(Cancel as Integer)

If Not IchHabGespeichert then

MsgBox "Nicht gespeichert! Vorher auf 'Speichern' klicken!"

Cancel = True

end if

end sub



Private Sub Form_Unload(Cancel As integer)

If Not Gespeichert then

MsgBox "Erst Speichern ..."

Cancel = True

end if



Private Sub Form_Load()

IchHabGespeichert = False

end sub





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: