Controle Sluit knop

[musti]

Bij het formulier heb je een sluit knop dat bedoelt is om de formulier te sluiten. Nou is het zo dat ik daar een controle wil invoeren.
Bij het wijzigen van gegevens op het desbetreffende formulier moet er dus een melding komen na het sluiten van het formulier of de gebruiker daadwerkelijk de gegevens wil wijzigen of niet wil wijzigen. Zo ja, dan worden gewijzigde gegevens opgeslagen en de formulier afgesloten. Zo niet, dan worden de gewijzigde gegevens niet opgeslagen en de formulier wordt afgesloten.

 

[snijworst]

Huhhh :shocked:

Het stellen van een goede vraag blijkt soms lastiger dan het geven van een behoorlijk antwoord... Ik denk dat je met meer en duidelijker info moet komen wil je hier een advies krijgen waar je wat mee kunt...

 

[OctaFish]

Gelukkig snap ik 'm wel....

Als je op de <Bij klikken> gebeurtenis van de knop de volgende code zet, kom je een heel eind:

Dim iCheck As Integer

If Me.Dirty Then
    iCheck = MsgBox("Wil je opslaan?", vbYesNoCancel)
    If iCheck = 6 Then
        'Hier een actie voor opslaan, bijvoorbeeld:
        Me.Dirty = False
        DoCmd.Close acForm, Me.Form.Name
    ElseIf iCheck = 7 Then
        'Hier een actie voor niet opslaan, bijvoorbeeld formulier sluiten
        DoCmd.Close acForm, Me.Form.Name
    Else
        'Niks doen, op het formulier blijven...
    End If
End If

 

[snijworst]

Over welk programma praat je?

@Octafish; jij hebt de oorspronkelijke "vraag" kennelijk niet gelezen...

 

[OctaFish]

@Snijworst: Heb je mijn antwoord wel gelezen? Mijn code doet precies wat Musti vraagt...

 

[musti]

Gelukkig snap ik 'm wel....

Als je op de <Bij klikken> gebeurtenis van de knop de volgende code zet, kom je een heel eind:

Dim iCheck As Integer

If Me.Dirty Then
    iCheck = MsgBox("Wil je opslaan?", vbYesNoCancel)
    If iCheck = 6 Then
        'Hier een actie voor opslaan, bijvoorbeeld:
        Me.Dirty = False
        DoCmd.Close acForm, Me.Form.Name
    ElseIf iCheck = 7 Then
        'Hier een actie voor niet opslaan, bijvoorbeeld formulier sluiten
        DoCmd.Close acForm, Me.Form.Name
    Else
        'Niks doen, op het formulier blijven...
    End If
End If

Hartstikke bedankt!! het werkt