Formulier sluiten en saven probleem

[mrbaselier]

Hallo allemaal,

Wat ik wil is als ik mijn formulier sluit zonder eerst op te slaan via de standaard save button (zie code 1 hieronder), dat er dan gevraagd word om het formulier op te slaan, waarbij ik kan kiezen voor Ja en Nee. Bij Ja worden de veranderingen alsnog opgeslagen. Bij Nee niet (Undo actie). Maar als er geen veranderingen zijn op het formulier, en er wordt niet op de save button geklikt... moet de hele vraag niet verschijnen. Kan iemand mij hier bij helpen??????

Code:
___________________________________
Private Sub cbSaveButton_Click()
On Error GoTo Err_cbSaveButton_Click


DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
MsgBox "Uw aanpassingen zijn opgeslagen"
blnUpdated = True

Exit_cbSaveButton_Click:
Exit Sub

Err_cbSaveButton_Click:
MsgBox Err.Description
Resume Exit_cbSaveButton_Click

End Sub
_____________________________

 

[Axel Hagg]

Dag Jarno,

Als je een document opent en je verandert niets dan wordt er bij het sluiten niet gevraagd of je de wijzigingen wilt opslaan. Dat gebeurt alleen als er iets verandert. Dat kan zijn als je document velden bevat die automatisch wijzigen. Als je dan wilt sluiten zonder op te slaan kun je een knop sluiten maken met daar achter de code

Activedocument.Close SaveChanges:=wdDoNotSaveChanges

gegroet,

Axel.

 

[Tardis]

Hallo Jamo,

als je met formulier een formulier in MS Access bedoelt, kun je met de eigenschap Dirty nagaan of een rij in je formulier gewijzigd is:

If Me.Dirty Then
'hier je code met de uit te voeren aktie
Else
End If

Groet,

Tardis

 

[mrbaselier]

Geweldig

Dank jullie wel, samen met jullie hulp is het gelukt! Echt TOP!!!!!!