Controlle MsgBox met knoppen terug naar form

[watch1]

Hallo,
Ik ben bezig met een kasboek programma.
Ik heb hem helemaal draaiende, maar ik heb nog een controle punt wat ik erin wil bouwen.

Ik heb 3 vakjes Kas, Bank en Giro. (hierin wordt het totaal bedrag (incl. BTW) ingevuld vanwaar het is af- of bijgeboekt).

Daaronder heb ik 4 vakken, 1 Bedrag (wordt ingevuld zonder BTW), 1 BTW 0%, 1 BTW 6%en 1 BTW 19%. Deze 4 vakken heb ik opgetelt in een ander vak genaamd CONTROLE.

Nu wil ik dat als het de bedrag ingevuld bij Kas, Bank of Giro niet gelijk is aan het CONTROLE vak dat er een melding komt. Het liefst een pop-up scherm met de melding: LET OP!!! Bedragen komen niet overeen, en daaronder de knoppen Ok (doorgaan) of Annuleren (en teruggaan naar het vak Bedrag).

Ik ben al een heel eind, maar krijg het niet voor elkaar dat als ik op annuleren klik ik terug ga naar het Bedrag vak.

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim Som As Variant
Dim ControlSom As Variant
Som = Me!Kas + Me!Giro + Me!Bank
ControlSom = Controle
If Som <> ControlSom Then
MsgBox "Bedragen komen niet overeen.", vbOKCancel, "LET OP!!!!"
End If
End Sub


Hoe kan ik dit doen?

Alvast bedankt, Chantal

 

[OctaFish]

Je moet, om iets te doen met de knoppen, de waarden van de knoppen afvangen. Dat doe je met een extra variabele. Ziet er ongeveer zo uit:

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim Som As Variant
Dim ControlSom As Double
Dim iCheck As Integer

    Som = Me!Kas.Value + Me!Giro.Value + Me!Bank.Value
    ControlSom = Me.Controle.Value
    If Som <> ControlSom Then
        iCheck = MsgBox("Bedragen komen niet overeen." & vbCrLf & "Doorgaan, of bedrag aanpassen?", vbYesNo, "LET OP!!!!")
        If iCheck = vbYes Then
            'Opslaan, of iets anders
        Else
            Me.Bedrag.SetFocus
        End If
    End If

End Sub

Hierbij zet je dus bij de waarde VbYes wat er moet gebeuren als er op Ja is geklikt. Bij Nee sluit je de procedure af, en zet je de focus op het veld Bedrag.