Hmm jeg forstår ikke hvorfor dette ikke virker.

Jeg har lavet noget kode der kører når man klikker på afkrydsningsfeltet der hører til et Sand/Falsk felt i tabellen DT_tilbudskalender.

I denne tabel har jeg lavet et felt som bliver fyldt med et unikt tidsstempel hvis nogle poster skal kunne agere sammen som en gruppe.

Når jeg aktiverer afkrydsningsfeltet checker men for om gruppestempel feltet har et andet indhold end "enkeltvis" og hvis den har det, så skal der køres en update på de poster i tabellen som har samme gruppestempel.

Problemet er at når koden kører bliver der ikke opdateret noget som helst. Der står at der bliver opdateret 0 poster.

Hvad kan det være jeg ikke ser ? Selve logikken og koden er jo helt banal. Jeg tror selv det har noget med den SQL sætning at gøre, da jeg stadig er en newb omkring hvordan jeg bruger SQL i VBA, men jeg har bare googlet og googlet og som jeg ser det så er den rigtig ?

På forhånd tak for hjælpen.

Private Sub markering_Click()

Dim grpstmpl As String
Dim markeringsvaerdi As Boolean
Dim sSql As String

    Me.Form.Recordset.Move 1 'For at opdatere posten med markeringen enten true eller false.
    Me.Form.Recordset.Move -1 'Tilbage til oprindelige post så jeg kan tage værdierne fra posten og bruge dem senere.
    markeringsvaerdi = Me.Form.Recordset(0)
    grpstmpl = Me.Form.Recordset(11)
   
    sSql = "UPDATE DT_tilbudskalender SET DT_tilbudskalender.markering = 'markeringsvaerdi' WHERE DT_tilbudskalender.gruppestempel = 'grpstmpl'"
   
    If grpstmpl <> "enkeltvis" Then 'hvis der er sat et gruppestempel under oprettelsen så køre updaten
        DoCmd.RunSQL sSql, acEdit
    End If
   
    'slut
    Me.Requery 'opdatér formen så man kan se de opdaterede data.
End Sub