Afkryds alle i en fortløbende formular

Prøv med denne kode, ikke testet:

If Me!NavnPåafkrydsningsfeltøverstIFormen = -1 Then
DoCmd.RunSQL "UPDATE NavnPåDinTabel SET NavnPåDitAfkrydsningsfeltITabellen = -1"
End IF

'Her vender vi så om'
If Me!NavnPåafkrydsningsfeltøverstIFormen = 0 Then
DoCmd.RunSQL "UPDATE NavnPåDinTabel SET NavnPåDitAfkrydsningsfeltITabellen = 0"
End If

'Her opdateres din formular'
Me.Requery

Prøv at lægge koden under hændelse ved klik på din checkbox øverst i formen

ok, tænkte nok det var sådan jeg skulle gøre det, jeg prøver lige.

Du kan også vælge at styre det via to knapper i stedet, hvis du vil undgå de indbugget advarlser kan du skrive DoCmd.SetWarnings False i starten af koden og DoCmd.SetWarnings true i slutningen

det er jeg helt med på...

Du kan også styre med en enkelt alternativ knap, en sådan har to tilstande -1 (true)0 (False)feks. med en select case struktur:

Select Case Me!NavnPåAlternativknap

Case 0
DoCmd.RunSQL "UPDATE NavnPåDinTabel SET NavnPåDitAfkrydsningsfeltITabellen = 0"

Case -1
DoCmd.RunSQL "UPDATE NavnPåDinTabel SET NavnPåDitAfkrydsningsfeltITabellen = -1"
Case Else
End Select

Super det virker...

Takker

Selv tak, og tak for point :o)

Dette har jeg også brug for,men det virker jo ikke som beskrevet, da alle data i hele tabellen opdateres, ikke kun de udvalgte i formularen!, er der nogen der kan sige hvordan det kun er de udvalgte checkmark-felter der vises i formularen der afkrydses og ikke alt andet?