Marker alt

Private Sub Afkrydsningsfelt0_AfterUpdate()
  Dim Ctl As Control
 
  For Each Ctl In Me.Controls
    If Ctl.ControlType = acCheckBox Then Ctl = Me.Afkrydsningsfelt0
  Next Ctl
End Sub

... det var vel et svar  ;o)

Virker ikke. Den markerer kun første post på formularen.

Ja. Alle afkrydsningsfelter i samme post.

Taler vi om en Fortløbende formular?
Vil du markere alle afkrydsningsfelter i alle poster?
Det er da godt nok lidt af en neutronbombe!

Hvis vi taler om at afkrydse eet felt i alle poster, kan det klares med:
  DoCmd.RunSQL "UPDATE MinTabel SET Afkrydsningsfelt0=" & MitFelt

jeg har 43 poster på en formular som jeg gerne ville kunne markerer med et afkrysdningsfelt, så man f.eks kan sende post til alle, bare ved et klik istedet for 43 klik, hvis du forstår..

Så er det mit forrige svar:
  DoCmd.RunSQL "UPDATE MinTabel SET Afkrydsningsfelt0=" & MitFelt
som skal ligge på dit "marker alle" felts AfterUpdate/VedOpdatering hændelse.

jeg kan ikke prøve lige nu. Du bliver nød til at vente et par timer med point.....

Rolig nu. Vi er her ikke for at jagte point. Vi er her for at hjælpe  ;o)

hvad skal der stå i "Mitfelt" De afkrydsningsfelter jeg har ud for hver post hedder "Send brev til"

DoCmd.RunSQL "UPDATE MinTabel SET [Send brev til]=" & MitFelt

MinTabel skal erstattes med navnet på din tabel. Husk evt. [] om navnet.
MitFelt er det felt, som du kalder et "marker alle" felt

Koden ser sådan ud "DoCmd.RunSQL "UPDATE frivilligeliste SET [Send brev til]=" & [Marker alle]" men får en fejl. Den siger at den ikke kan finde feltet [l]

Ups.

DoCmd.RunSQL "UPDATE frivilligeliste SET [Send brev til]=" & Me.[Marker alle]

Jeg går ud fra at [Marker alle] er et ubundet kontrolelment, et afkrydsningsfelt?

Det er i øvrigt en god ide ikke at bruge mellemrum i feltnavne. Så slipper du for []'erne og koden bliver lettere at læse  ;o)

Det virker men...
Kan man ikke slippe for den advarsel med at man er ved at opdatere 53 poster?

Jo da, sagtens

DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE frivilligeliste SET [Send brev til]=" & Me.[Marker alle]
DoCmd.SetWarnings True

Utroligt hvad man kan i Access..... med den rigtige hjælp.
Tusind tak for hjælpen.. og point til dig

Så lykkedes det. Takker for point  ;o)