運行時間3134錯誤的MS Access SQL

Question

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 

Answer 1

你應該使用字符串文本爲您查詢

Dim sqlQuery As String 
    sqlQuery = "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 & ")" 

db.Execute sqlQuery 

它使人們更方便調試

INSERT INTO InvItemsRecords (Item, Rate, AltRate, Reason, ApprovedBy, Company, JobID) 
VALUES('Some Item', 100, 343, 'Reason A', 'John', 'Jane Doe', Null) 

可能你不經意間傳遞將1個或多個空值分配給不可空字段。還要注意數據類型。您可能需要使用CStr（），CInt（），CLong，CDate（）或...將您的數據轉換爲正確格式。如果一個字段可以留空（NZ）。

NZ（Me.RateAppend，True）