Rette alle poster i fortløbende formular

DoCmd.GoToRecord acForm, "DIN FORM", acFirst
Do Until Me.NewRecord = True
Me.chkFiltre = True
DoCmd.RunSQL "UPDATE tblFiler_bestilles Set ServiceID =" & Me.ServiceID
Loop

Vi skal da have en  "gå til næste post" med:

DoCmd.GoToRecord acForm, "DIN FORM", acFirst
Do Until Me.NewRecord = True
Me.chkFiltre = True
DoCmd.RunSQL "UPDATE tblFiler_bestilles Set ServiceID =" & Me.ServiceID
DoCmd.GoToRecord acForm, "DIN FORM", acNext
Loop

Hej Mogens

Det virker ikke helt. i tblFilter_bestilles er der kun eet felt - nemlig feltet med Service_ID.

Det betyder, jeg skal indsætte en post med service_ID, hvis jeg sætter chkFiltre = true og hvis jeg vælger at slette skal posterne i tblFilter_bestilles slettes!

Jeg har tilrettet til dette, men den spørger om jeg vil opdatere en post og derefter løber den i en uendelig løkke, hvis jeg svarer ja.

Det skal lige siges, at jegh har placeret koden på en ubundet ja/felt ved navn Afkrydsningsfelt517

DoCmd.GoToRecord acForm, "frmBestilling_filtre", acFirst
    Do Until Me.NewRecord = True
    Me.chkFiltre = True
    DoCmd.RunSQL "update tblFilter_bestilles Set Service_ID =" & Me.txtService_ID
    Loop

Det virker heller ikke.

Den sætter heller ikke poster ind i tblFilter_bestilles

Den uendelige løkke skyldes, at du ikke får fomrmularen til at gå til næste post.
Spørgamålet om du vil opdatere kan vi komme udenom, ved at indsætte en false til Warnings.

Docmd.SetWarnings False
DoCmd.GoToRecord acForm, "frmBestilling_filtre", acFirst
Do Until Me.NewRecord = True
Me.chkFiltre = True
DoCmd.RunSQL "update tblFilter_bestilles Set Service_ID =" & Me.txtService_ID
DoCmd.GoToRecord acForm, "DIN FORM", acNext
Loop
Docmd.SetWarnings True

Huskm altid at sætte warnings til true igen, ellers forbliver de frakoblede i hele applikationen.

Prøv evt. at indsætte koden i en kommandoknap.

Hej igen

Jeg får en fejl, når koden når til sidste post 'Error 2046' - kommandoen eller handlingen "GåTilPost" er ikke tilgængelig nu!

Det er vel noget med, der skal en errorhandler ind, der afslutter, når man når til sidste post.

Har i øvrigt ændret lidt i SQL, så den hedder:

DoCmd.RunSQL "INSERT INTO tblFilter_bestilles(Service_ID) VALUES('" & Me.txtService_ID & "');"

Den virker nu.

Kan du lave errorhandleren?

Tak for hjælpen Mugs

Fik selv lavet det, så det nu virker:

On Error GoTo Errorhandler
    DoCmd.SetWarnings False
   
    DoCmd.GoToRecord acForm, "frmBestilling_filtre", acFirst
    Do Until Me.NewRecord = True
    Me.chkFiltre = True
    DoCmd.RunSQL "INSERT INTO tblFilter_bestilles(Service_ID) VALUES('" & Me.txtService_ID & "');"
    DoCmd.GoToRecord acForm, "frmBestilling_filtre", acNext
    Loop
    DoCmd.SetWarnings True
   
Errorhandler:
    If Err.Number = 2046 Then
    MsgBox "Handlingen udført"
    Exit Sub
End If

Hvornår opstår fejlen?

Vi har jo lavet en betingelse:

Do Until Me.NewRecord = True

at den kun skal udføre løkken indtil NewRecord er = True.

Men prøv denne:

Docmd.SetWarnings False
DoCmd.GoToRecord acForm, "frmBestilling_filtre", acFirst
On error GoTo errorhandler
Do Until Me.NewRecord = True
Me.chkFiltre = True
DoCmd.RunSQL "INSERT INTO tblFilter_bestilles(Service_ID) VALUES('" & Me.txtService_ID & "');"DoCmd.GoToRecord acForm, "DIN FORM", acNext
Loop
Docmd.SetWarnings True
Errorhandler:
If err.Number  = 2046
Then Exit Sub
End If

Tak for point.