Msgbox met voorwaarde

• 

  chris

  03-02-2005 07:43

  Hoi allemaal

  ik zit met het volgende probleem:

  ik heb een formulier (gebaseerd op een query)

  als dat form gesloten word moet er aan een voorwaarde zijn voldaan

  de voorwaarde is Tekst24-tekst39<> 0.

  Als niet aan de voorwaarde is voldaan dan moet er een msgbox verschijnen met de melding “er is niet aan de voorwaarde voldaan, wilt u doorgaan?”met de keuze op “ja of nee”.

  Als “nee” wordt gekozen dan mag het formulier niet worden gesloten en op “ja” uiteraard wel

  De code waar ik mee bezig ben geweest staat hier onder

  If ( - <> 0) Then

  MsgBox “Niet alle personen zijn ingevuld,wilt u doorgaan?”, vbYesNo, “Niet compleet”

  DoCmd.CancelEvent

  Wie heeft de oplossing

  Bij voorbaat dank voor het meedenken

  chris
• 

  Tim

  04-02-2005 10:03

  Probeer dit eens:

  dim intAntwoord as Integer

  If (-) = 0 then

  docmd.close

  Else if (-]Tekst39] <> 0 then

  Msgbox “Melding”,vbYesNo,“Titel”

  If intAntwoord = vbYes then

  ……..

  Elseif intAntwoord=vbNo then

  ……..

  Endif

  Endif