foutmelding bij uitvoeren query

[JEPEDEWE]

Ik schrijf:

Private Sub Knop4_Click()
   DoCmd.RunSQL "UPDATE Betalingen SET Betalingen.Printen = True WHERE Betalingen.Kode = " & [Forms]![Administratie-hoofdmenu]![Kode] & " AND Betalingen.BETAALD=False;"
   Me.Sub_nietbetaalde_prestaties.Requery
End Sub

Bij het uitvoeren krijg ik volgende foutmelding:

gegevenstypes komen niet overeen in criteriumexpressie

Wat doe ik fout?

Bedankt
JP

 

[NogGeenGuru]

Beste JP,

Ik heb hem niet kunnen testen maar volgens mij zit het hem in jou WHERE.
volgens mij mis jij de apostrofjes voor en na de aanhalingstekens.

Probeer deze eens

Private Sub Knop4_Click()
   DoCmd.RunSQL "UPDATE Betalingen SET Betalingen.Printen = True WHERE Betalingen.Kode = '" & [Forms]![Administratie-hoofdmenu]![Kode] & "' AND Betalingen.BETAALD=False;"
   Me.Sub_nietbetaalde_prestaties.Requery
End Sub

 

[JEPEDEWE]

net geen guru maar toch probleem opgelost... bedankt
JP

 

[OctaFish]

Beter is deze variant:

   CurrentDb.Execute "UPDATE Betalingen SET Printen = True WHERE Kode = """ & Me.Kode & """ AND BETAALD=False", dbFailOnError

Wel een guru?

 

[JEPEDEWE]

super-oplossingen... alles werkt
Bedankt iedereen

JP