Controle in formulier

[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 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%.

Nu wil dat als het de bedrag ingevuld bij Kas, Bank of Giro niet gelijk zijn aan de ingevuld bedrag eronder (dus bedrag, btw 0%, btw 6% of btw 19%) dat er een melding komt. Het liefst een pop-up scherm met de melding: Bedragen komen niet overeen.

Hoe kan ik dit doen?

Alvast bedankt, Chantal

 

[WimenBeer]

Private Sub Form_BeforeInsert(Cancel As Integer)
DIM Som As Variant
DIM ControlSom As Variant
Som = Me!Kas+Me!Giro+ Me!Bank
ControlSom = Me!bedrag+Me![BTW 0]+Me![BTW 6]+Me![BTW 19] 
If Som <> ControlSom then
  Msgbox "Bedragen komen niet overeen"
End If
End Sub

Deze gebeurtenis neem op bij 'Voor invoegen'

Succes
Wim

 

[huijb]

Het is onnodig om je vraag twee keer te plaatsen. Je mag hier verder
http://www.helpmij.nl/forum/showthread.php?p=2479337#post2479337