Verkoopprijs updaten d.m.v. dubbelklikken

[maurann]

Beste,
met hiernavolgende code wil ik een waarde in een producttabel updaten.
Waarde verkoopprijs moet worden geupdate als ik in een form op een gebruikersknop dubbelklik.

Private Sub Knop62_DblClick(Cancel As Integer)
Dim vKorting As Double
Dim strSQL As String
vKorting = 0
vKorting = DLookup("Bedrag", "Kortingen", "Klantnummer=" & Me.Klantnummer)

strSQL = "Update Product set Verkoopprijs " _
          & "= vKorting where ProductId = 12013"
DoCmd.RunSQL strSQL
End Sub

Het werkt niet; access heeft aan dat ik een parameterwaarde moet opgeven.
Waar zit de fout?
In afwachting,
Vele groeten,

Maurann

PS de db in bijlage is te groot om te verzenden, hopelijk levert de code reeds iets op.

 

[ReneDirks]

strSQL = "Update Product set Verkoopprijs " _
          & "= vKorting where ProductId = 12013"

Da's fout. Stel vKorting = 20 dan wordt dit:
strSQL = "Update Product set Verkoopprijs= vKorting where ProductId = 12013"
vKorting is een onbekende variabele. Je hebt een quote en zo verkeerd staan:

strSQL = "Update Product set Verkoopprijs=" _
          & vKorting & " WHERE ProductId = 12013"

En dan zou dat opgelost moeten zijn - behoudens verkeerde veldnamen en zo dan he?

 

[maurann]

Bedankt voor uw reactie,
paste verbeterde code toe en het werkt , super!

Grtz,

Maurann