CurrentDb.Execute Insert into error รบกวนหน่อยคร้าบ

[Kxess]

สอบถาม จากโค้ดตัวอย่างของผม มันผิดตรงไหนครับ

error 3134
Syntax error in INSERT INTO statement.

น่าจะผิดที่จุดเล็ก ๆ แต่ลองแก้หลายรอบแล้ว error ตลอดครับ ไม่รู้จริง ๆ ผิดตรงไหน 

โค๊ด: [Select]

CurrentDb.Execute "INSERT INTO Credit_Note ( CN_ID, CN_Customer_ID, CN_INV_Refer1, CN_Status, CN_Main_Contact_Name, CN_Main_contact_Tel, CN_PO_No, CN_Quotation_No, CN_Full_Address, CN_VAT_Total, CN_VAT_Percent, CN_Sub_Total, CN_Net_Price, CN_Discount_Price, CN_Discount_Percent, CN_Date, CN_Payment_Type) " _
& "VALUES ('" & getCN_ID & "', " & Me![Customer_ID] & ", '" & Me![Bill_ID] & "', " & CnStatus & ", '" & Nz(Me![O_Main_Contact_Name], "") & "', '" & Nz(Me![O_Main_Contact_Tel], "") & "', '" & Nz(Me![PO_ID], "") & "', '" & Nz(Me![Quotation_ID], "") & "', '" & NewCN_Full_Address & "', " & Nz(Me![Bill_VAT_Total], "") & ", " & Nz(Me![Bill_VAT_Percent], "") & ", " & Nz(Me![Bill_Sub_Total], "") & ", " & Nz(Me![Bill_Net_Price], "") & ", " & Nz(Me![Bill_Discount_Price], "") & ", " & Nz(Me![Bill_Discount_Percent], "") & ", '" & Now() & "', '" & Nz(Me![Bill_Payment_Type], "") & "');"


ขอบคุณครับ

[สันติสุข]

ฟิลด์ที่มี Data Type เป็น Number หรือ Currency  เมื่อจะนำข้อมูลเข้าก็ต้องเป็นค่าตัวเลขไม่ก็เป็นคำว่า NULL จะเป็น SPACE หรือ Zero-Length String ไม่ได้ อย่างเช่นที่คุณเขียนว่า Nz(Me![Bill_VAT_Total], "") ถ้า [Bill_VAT_Total] ไม่มีค่า ก็จะกลายเป็น "" ไป คำสั่ง SQL ในส่วนนั้นก็จะออกมาเป็น ... , , ...  ซึ่งการเว้นว่างไม่มีค่าอะไรเลยระหว่างเครื่องหมาย , นั้น ไม่ถูก Syntax ครับ

[Kxess]

ขอบคุณครับ

ถ้าไม่ใส่ Nz() แล้ว Bill_VAT_Total ไม่มีค่า มันจะเป็น NULL รึป่าวครับ
ผมเคยลองแบบไม่ใส่ Nz() ก็ไม่ผ่าน

เปลี่ยนใหม่เอา Nz() ออกแล้ว และไม่มี text ที่เป็นค่าว่างเลย
แต่มีแค่ Bill_Discount_Price(currency) / Bill_Discount_Percent(number) ที่มีค่า Null ซึ่งก็ไม่น่าจะ error
ส่วน Now() เขียน "... '" & Now() & "' ..." หรือ "..." & Now() & "..." ก็ยัง error เหมือนเดิม

โค๊ด: [Select]

CurrentDb.Execute "INSERT INTO Credit_Note ( CN_ID, CN_Customer_ID, CN_INV_Refer1, CN_Status, CN_Main_Contact_Name, CN_Main_Contact_Tel, CN_PO_No, CN_Quotation_No, CN_Full_Address, CN_VAT_Total, CN_VAT_Percent, CN_Sub_Total, CN_Net_Price, CN_Discount_Price, CN_Discount_Percent, CN_Date, CN_Payment_Type) " _
& "VALUES ('" & getCN_ID & "', " & Me![Customer_ID] & ", '" & Me![Bill_ID] & "', " & CnStatus & " , '" & Me![O_Main_Contact_Name] & "', '" & Me![O_Main_Contact_Tel] & "', '" & Me![PO_ID] & "', '" & Me![Quotation_ID] & "', '" & NewCN_Full_Address & "', " & Me![Bill_VAT_Total] & ", " & Me![Bill_VAT_Percent] & ", " & Me![Bill_Sub_Total] & ", " & Me![Bill_Net_Price] & ", " & Me![Bill_Discount_Price] & ", " & Me![Bill_Discount_Percent] & ", '" & Now() & "', '" & Me![Bill_Payment_Type] & "')"
ตึ๊บเลยครับ 

[pizza_p]

CurrentDb.Execute "INSERT INTO Credit_Note ( CN_ID, CN_Customer_ID, CN_INV_Refer1, CN_Status, CN_Main_Contact_Name, CN_Main_Contact_Tel, CN_PO_No, CN_Quotation_No, CN_Full_Address, CN_VAT_Total, CN_VAT_Percent, CN_Sub_Total, CN_Net_Price, CN_Discount_Price, CN_Discount_Percent, CN_Date, CN_Payment_Type) " _
& "VALUES ('" & getCN_ID & "', " & Me![Customer_ID] & ", '" & Me![Bill_ID] & "', " & CnStatus & " , '" & Me![O_Main_Contact_Name] & "', '" & Me![O_Main_Contact_Tel] & "', '" & Me![PO_ID] & "', '" & Me![Quotation_ID] & "', '" & NewCN_Full_Address & "', " & Me![Bill_VAT_Total] & ", " & Me![Bill_VAT_Percent] & ", " & Me![Bill_Sub_Total] & ", " & Me![Bill_Net_Price] & ", " & Me![Bill_Discount_Price] & ", " & Me![Bill_Discount_Percent] & ", Now(), '" & Me![Bill_Payment_Type] & "')"

หรือ
CurrentDb.Execute "INSERT INTO Credit_Note ( CN_ID, CN_Customer_ID, CN_INV_Refer1, CN_Status, CN_Main_Contact_Name, CN_Main_Contact_Tel, CN_PO_No, CN_Quotation_No, CN_Full_Address, CN_VAT_Total, CN_VAT_Percent, CN_Sub_Total, CN_Net_Price, CN_Discount_Price, CN_Discount_Percent, CN_Date, CN_Payment_Type) " _
& "VALUES ('" & getCN_ID & "', " & Me![Customer_ID] & ", '" & Me![Bill_ID] & "', " & CnStatus & " , '" & Me![O_Main_Contact_Name] & "', '" & Me![O_Main_Contact_Tel] & "', '" & Me![PO_ID] & "', '" & Me![Quotation_ID] & "', '" & NewCN_Full_Address & "', " & Me![Bill_VAT_Total] & ", " & Me![Bill_VAT_Percent] & ", " & Me![Bill_Sub_Total] & ", " & Me![Bill_Net_Price] & ", " & Me![Bill_Discount_Price] & ", " & Me![Bill_Discount_Percent] & "," & CDbl(Now()) & ", '" & Me![Bill_Payment_Type] & "')"

[สันติสุข]

- ค่า NULL ต้องใช้คำว่า NULL  ไม่ใช่ปล่อยว่างๆ หรือเป็น "" หรือ " "
- ผมเขียน ... หมายถึงข้อความเดิมก่อนหน้าหรือตามหลัง ไม่ใช่ให้ใส่ ...
- ค่าวันที่ที่ใส่ใน SQL ต้องเป็นรูปแบบ #เดือน/วัน/ปีคศ.#