msgbox bij wijzigen data in veld

[oosterbaan S S]

Hallo forumleden

In een belangrijk veld in een formulier wil ik bij een wijziging van de data een msgbox tonen met een "yes" en "Cancel" knop.

Als men op de "yes" knop drukt mag en kan de data in het veld veranderd worden.
Als men op "cancel" drukt moet de wijziging worden teruggedraaid.

Ben niet zo goed thuis in vba, dus wie wil dit in vba voor me schrijven.

Bedankt

 

[Bartuls]

Dat kun je doen bij de voor bijwerken gebeurtenis van je formulier.
Een voorbeeldje vind je hier:http://www.databasedev.co.uk/confirm-record-update.html
Om te controleren of er daadwerkelijk wijzigingen zijn kun je de dirty eigenschap gebruiken.

If me.dirty then..... etc.

Ook kun je nog de oude waarde van het veld ophalen. Hiervoor heb je de OldValue property.
Zie http://msdn2.microsoft.com/en-us/library/aa172955(office.11).aspx

 

[oosterbaan S S]

Dank Bartuls,

Het volgende vba heb ik ingevoerd
Private Sub Form_BeforeUpdate(Cancel As Integer)

'Provide the user with the option to save/undo
'changes made to the record in the form

If MsgBox("Changes have been made to this record." _
& vbCrLf & vbCrLf & "Do you want to save these changes?" _
, vbYesNo, "Changes Made...") = vbYes Then
DoCmd.Save
Else
DoCmd.RunCommand acCmdUndo
End If
End Sub

Tot aan >else< werkt het goed.

Nu wil ik echter dat na >else< met bijv. sendkeys een "esc" wordt gegeven.
Hoe schrijf ik dit in vba

Thanks

Hoe schrijf ik dit nu op in vba ?

 

[Bartuls]

DoCmd.RunCommand acCmdUndo
Dat zorgt ervoor dat de gegevens niet in de database komen.

Heb ik even uit deze link gekopieerd: :http://www.databasedev.co.uk/confirm-record-update.html

Opslaan doe je met doCmd.Save (staat in dezelfde link)

 

[oosterbaan S S]

Oke Bartuls, maar zo had ik het ook in mijn formulier geplaatst.

Probleem is dat de wijziging dan wel niet wordt opgeslagen maar ook niet verdwijnt in het veld.
Het veld zit aan het begin van het formulier is keuzelijst.

Ik wel dus dat als je op de button 'cancel' drukt er eigenlijk een esc geschiedt, waarmee dus de invoer verdwijnt en het veld weer de data aangeeft die er in stond.

Vandaar dus mijn vraag of er vba te schrijven is waarmee je bijv. met sendkeys een esc genereert.

Bedankt maar weer...:thumb:

 

[Bartuls]

Het is netter om de oude waarde in het veld terug te zetten.
Dat doe je door gebruik te maken van de OldValue property.

Zie http://msdn2.microsoft.com/en-us/lib...ffice.11).aspx

 

[oosterbaan S S]

Dank Bartuls :thumb:
Zo lukt het me wel.

vr gr