samedi 16 juillet 2016

Run time 3134 error MS Access SQL

Private Sub AddItemButton_Click()
    Dim db As Database
    Set db = CurrentDb
    Dim Item As String
    Dim Rate As String
    Dim AltRate As String
    Dim Reason As String
    Dim ApporvedBy As String
    Dim Company As String
    Dim JobID As String

        Me.JobID2 = Me.JobID

        db.Execute "INSERT INTO InvItemsRecords (Item, Rate, AltRate, Reason, ApprovedBy, Company, JobID) VALUES ('" & Me.ItemAppendCBO & "', " & Me.RateAppend & ", " & Me.AltRateAppend & ", '" & Me.ReasonAppend & "', '" & Me.ApprovedByAppend & "', '" & Me.Customer & "', " & Me.JobID2 & ")"
        Me.AltRate2.Value = Null

End Sub

Aucun commentaire:

Enregistrer un commentaire