Form afsluiten d.m.v kruisje

• 

  chris

  22-12-2004 20:20

  Hoi Allemaal

  ik zit met het volgende probleem :

  Er is een formulier met een aantal velden en keuzelijsten met invoervak

  als het formulier afgesloten wordt door het kruisje moeten een aantal keuzelijsten een ingevuld zijn ,op zich is dat geen probleem alleen als aan een van de voorwaarden niet is voldaan mag het formulier niet afgesloten kunnen

  door het kruisje.

  dus Docmd.CancelEvent werkt niet een aparte afsluitknop heeft geen voorkeur

  waar gaat het fout?

  alvast bedankt voor de moeite

  de volgend code is gebruikt:

  Private Sub Form_Close()

  If Framenummer > 0 And IsNull(Keuzelijst_met_invoervak56) Then

  MsgBox “Geen verkoopgroep aangegeven”, vbCritical, “Verkoopgroep”

  Keuzelijst_met_invoervak56.SetFocus

  DoCmd.CancelEvent

  End If

  End Sub

  chris
• 

  RV

  22-12-2004 20:51

  Je gebruikt de verkeerde gebeurtenis.

  Gebruik de gebeurtenis Uit Geheugen:

  Private Sub Form_Unload(Cancel As Integer)

  If Framenummer > 0 And IsNull(Keuzelijst_met_invoervak56) Then

  MsgBox “Geen verkoopgroep aangegeven”, vbCritical, “Verkoopgroep”

  Keuzelijst_met_invoervak56.SetFocus

  Cancel = True

  End If

  End Sub

  RV
• 

  chris

  22-12-2004 22:09

  Bedankt rv

  werkte perfect

  chris