Mindst et afkrydsningsfelt skal afkrydses inden form forlades

Hej rosco - Jeg har ikke tid lige nu, men bruger selv denne ved at opstille en betingelse for alle kontroller i formen:

Dim frm As Form, ctl As Control
Set frm = Screen.ActiveForm
For Each ctl In frm
If ctl.ControlType = acLabel Then ctl.Caption = "Hej"
Next ctl

Jeg kan ikke lige gennemskue hvordan jeg præcic skal anvende den!

mugs mener vist noget i stil med:

Dim frm As Form, ctl As Control
Dim Ok as Boolean
Set frm = Screen.ActiveForm
Ok=False
For Each ctl In frm
  If ctl.ControlType = acCheckBox Then
    if ctl.Value = True then Ok=True
  end if
Next ctl

Har travlt lige nu, ser på det i morgen.
Kan bruger få en fejlmeddelelse, "Husk at afkrydse et felt".

Det er da i den stil fdata. Det var blot en kodestump jeg havde 5 min før et møde. En fejlmeddelelse vil jeg sætte ind således:

Dim frm As Form, ctl As Control
Dim Ok as Boolean
Set frm = Screen.ActiveForm
Ok=False
For Each ctl In frm
  If ctl.ControlType = acCheckBox Then
    if ctl.Value = True then Ok=True
else:
Msgbox "Du skal afkrydse"
exit sub
  end if
Next ctl

>>> mugs. Jeg forestillede mig bare at man tjekkede Ok's værdi efter løkken.

Vil din løsning i øvrigt ikke medføre, at man i sidste ende er nødt til at afkrydse ALLE felterne? Den hopper ud ved den første False ;o)

Godmorgen fdata
Jamen det er også min tanke at løkken skal forlades ved den første false, idet rosco jo ikke vil kunne forlade formularen uden mindst eet felt er afkrydset.

Jeg får godtnok Meddelelsen "Du skal afkrydse", men formularen lukker, om der er sat kryds eller ej.

Prøv at indsætte koden i formularen VedLukning og i stedet for exit brug docmd.cancelevent. Ikke afprøvet.

Jeg blander mig lige igen.
Hvis du retter min kode til:

Dim frm As Form, ctl As Control
Dim Ok as Boolean
Set frm = Screen.ActiveForm
Ok=False
For Each ctl In frm
  If ctl.ControlType = acCheckBox Then
    if ctl.Value = True then Ok=True
  end if
Next ctl
Set frm = Nothing
Cancel=not Ok

og lægger koden i Form_Unload burde det spille.

(og så tillader jeg mig at gentage: mugs' kode vil bede dig afkrydse ALLE felter, idet fejlmeddelelsen vises så snart den ser et felt, der er False. Løkken skal jo forlades, når den set et felt, der er True. Sorry, mugs)

Alt OK fdata :o)
Og som jeg skrev i mit første indlæg, var det en kode jeg bruger i anden sammenhæng. den er slet ikke afprøvet i dette spørgsmål.

Jeg prøver Fdata's kode og vender tilbage.

Virker:
Men Hvor skal jeg lægge Msgbox "Du skal afkrydse",
brugeren skulle gerne vide hvorfor han ikke kan lukke formularen.

Skyd en linie ind i bunden:

Set frm = Nothing
if not ok then MsgBox ...
Cancel=not Ok

(hvis ok stadig er False, er der jo ikke nogen felter, der har været afkrydset)

Det prøver jeg i dag.

I skal ha' mange tak for hjælpen. Man spørger næsten aldrig forgæves her.
Mugs! det bliver fdata der går af med sejren.  ;-)

Meget fortjent :o)

Takker for point og de pæne ord  ;o)