アクセス時に構文エラーに挿入する

Question

sql insert into文でテーブルにテキストボックス情報を追加しようとしています。残念ながら、私は構文エラーメッセージを受け取りました。フォーマットを確認してください。 私のコードは次のとおりです。

Private Sub cmdSaveRecord_Click() 
    Dim StrSql As String 
    StrSql = "Insert Into test2 (PurchaseDate, SupplierCompany, PurchaseItem, Unit, PurchaseQuantity, UnitCost, ExtendedPrice)" & _ 
      " VALUES(#" & Format(Me!txtOrderDate, "yyyy/mm/dd") & "#, '" & Me!cboSupplierCompany & "', '" & Me!cboPurchaseItem1 & "', '" & Me!txtUnit1 & "'," & CStr(Me!txtQty1) & ", ," & CStr(Me!TxtPrice1) & ", " & CStr(Me!TxtTotal1) & ")" 
CurrentDb.Execute (StrSql) 
MsgBox " You have successfuly add one record to PurchaseOrderDetail table." 

End Sub 

Answer 1

あなたは値

"Insert Into test2 (
    PurchaseDate 
    , SupplierCompany 
    , PurchaseItem 
    , Unit 
    , PurchaseQuantity 
    , UnitCost 
    , ExtendedPrice 
    )" & _ 
     " VALUES(
     #" & Format(Me!txtOrderDate, "yyyy/mm/dd") & "# 
     , '" & Me!cboSupplierCompany & "' 
     , '" & Me!cboPurchaseItem1 & "' 
     , '" & Me!txtUnit1 & "' 
     ," & CStr(Me!txtQty1) & " 
     ,      <----- here 
     ," & CStr(Me!TxtPrice1) & " 
     , " & CStr(Me!TxtTotal1) & ")" 

で空の列を持っているあなたはそれを実行する前に文を印刷し、ここで結果を共有することができ

"Insert Into test2 (
    PurchaseDate 
    , SupplierCompany 
    , PurchaseItem 
    , Unit 
    , PurchaseQuantity 
    , UnitCost 
    , ExtendedPrice 
    )" & _ 
     " VALUES(
     #" & Format(Me!txtOrderDate, "yyyy/mm/dd") & "# 
     , '" & Me!cboSupplierCompany & "' 
     , '" & Me!cboPurchaseItem1 & "' 
     , '" & Me!txtUnit1 & "' 
     ," & CStr(Me!txtQty1) & " 
     ," & CStr(Me!TxtPrice1) & " 
     , " & CStr(Me!TxtTotal1) & ")"