"De instructie update bevat een syntaxisfout."

[Ewergreen]

Deze fout:

De instructie update bevat een syntaxisfout.

krijg ik als ik komma getallen in mijn form probeer te verwerken. Ik kan ze wel in mijn tabel gaan plaatsen en dan krijg ik ze ook in mijn report te zien, maar via de form gaat het niet.

Als ik blader door de verschillende entry's, dan krijg ik deze fout ook als ik op een door mij in de tabel ingegeven foute waarde kom.

Hieronder de code waar ik denk dat de fout in zit.

Private Sub Form_Current()
Dim Searchprijscat As Integer

If Len(Me.VehicleId & "") > 0 Then

   Searchprijscat = DLookup("[Prijscat]", "TBLVehicles", "[VehicleID] = " & Me.VehicleId)

   If Searchprijscat = 52 Then
      Me.OpnPrijsCat = 1
      Me.TXTCustom = ""
   Else
      If Searchprijscat = 62 Then
         Me.OpnPrijsCat = 2
         Me.TXTCustom = ""
      Else
         Me.OpnPrijsCat = 3
         Me.TXTCustom = Searchprijscat
      End If
    End If
 End If

Private Sub Command12_Click()
If Me.Check0 = True And Me.Check2 = True And Me.Check4 = True And Me.Check6 = True And Me.Check8 = True Then
   Me.Check10 = True
Else
   Me.Check10 = False
End If


End Sub

Private Sub Cmd_Opslaan_Click()
On Error GoTo Err_Cmd_Opslaan_Click


    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    
    
Select Case [OpnPrijsCat]

Case Is = 1
CurrentDb.Execute "UPDATE TBLVehicles SET TBLVehicles.Prijscat =52 WHERE (((TBLVehicles.VehicleId)=  " & Me.VehicleId & "))"
Case Is = 2
CurrentDb.Execute "UPDATE TBLVehicles SET TBLVehicles.Prijscat =62 WHERE (((TBLVehicles.VehicleId)=  " & Me.VehicleId & "))"
Case Is = 3
CurrentDb.Execute "UPDATE TBLVehicles SET TBLVehicles.Prijscat =" & Me.TXTCustom & " WHERE (((TBLVehicles.VehicleId)=  " & Me.VehicleId & "))"
End Select

DoCmd.GoToRecord , , acNewRec
Exit_Cmd_Opslaan_Click:
    Exit Sub

Err_Cmd_Opslaan_Click:
    MsgBox Err.Description
    Resume Exit_Cmd_Opslaan_Click
    
End Sub

Alvast bedankt!

 

[Guus2005]

Syntax fouten zijn eenvoudig op te lossen. De regel wordt geel waar de fout optreedt.
Die moet je oplossen.