실행 시간 3134 오류 MS 액세스 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) 

기회가 실수로 통과되어 있습니다 디버깅하는 방법 NULL 값을 가질 수없는 필드에 1 이상의 Null 값. 또한 데이터 유형에주의해야합니다. 데이터를 올바른 형식으로 변환하려면 CStr(), CInt(), CLong, CDate() 또는 ...를 사용해야 할 수도 있습니다. 필드가 비워 둘 수 있으면 NZ().

NZ (Me.RateAppend, True)