だれかぁぁぁぁぁぁぁぁ（－o－）

質問

質問ですっ！！
今ＶＢを使ってシステムを作っているのですが、下の式を実行しても、Insert Intoのエラーがでてしまい、Ａccessのデータベースに追加する事が出来ません。
モジュール名は間違っていません！
なぜ違うか分かる人がいましたら、助けてくださ～い
８（＾０＾）８
あっ！！ワークスペースやデータベースはちゃんと
一番最初の段階で、セットしてあります。
このフォームのどこかがおかしいと思うんですが・・・

Private Sub cmd_Input_Click()

Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(lcstrDatebase)

strSQL = ""
strSQL = strSQL & " Insert Into rireki_tb "
strSQL = strSQL & " ( Hiduke"
strSQL = strSQL & " ( SyainCd"
strSQL = strSQL & " ,TenpoCd"
strSQL = strSQL & " ,SyohinCd"
strSQL = strSQL & " ,SyainNm"
strSQL = strSQL & " ,Nyukin"
strSQL = strSQL & " )"
strSQL = strSQL & " values ('" & lbl_Date.Caption & "'"
strSQL = strSQL & " values ('" & cmb_SyainCd8.Text & "'"
strSQL = strSQL & " ,'" & 0 & "'"
strSQL = strSQL & " ,'" & 0 & "'"
strSQL = strSQL & " ,'" & lbl_SyainNm8.Caption & "'"
strSQL = strSQL & " ," & txt_Nyukin8.Text & ")"

db.Execute strSQL

db.Close
ws.Close
Set db = Nothing
Set ws = Nothing

End Sub

回答No.2

Mizyu

Insert文が不正です。
strSQL = strSQL & " Insert Into rireki_tb "
strSQL = strSQL & " ( Hiduke"
strSQL = strSQL & " ,SyainCd"
strSQL = strSQL & " ,TenpoCd"
strSQL = strSQL & " ,SyohinCd"
strSQL = strSQL & " ,SyainNm"
strSQL = strSQL & " ,Nyukin"
strSQL = strSQL & " )"
strSQL = strSQL & " values ('" & lbl_Date.Caption & "'"
strSQL = strSQL & " ,'" & cmb_SyainCd8.Text & "'"
strSQL = strSQL & " ,'" & 0 & "'"
strSQL = strSQL & " ,'" & 0 & "'"
strSQL = strSQL & " ,'" & lbl_SyainNm8.Caption & "'"
strSQL = strSQL & " ," & txt_Nyukin8.Text & ")"

これでやってみてください。

お礼

Mizyuさんの教えでやってみたらデバックが出なくなりました。（＾０＾）
ありがとうございます。
ただ、Accessに登録されていなかったんですが。
なんとか、できそうなので、がんばってみます！！
ありがとうです。

回答No.1

noname#202350

valuesを2回使っているからですね。
そこを正しく修正すれば動作すると思います。

補足

こんな感じに直してみたんですが・・・
やっぱりエラーが出ちゃいます（ＴＴ）
なぜでしょうか！！

Private Sub cmd_Input_Click()

'*****************ワークスペースを定義する。****************************
'
Set ws = DBEngine.Workspaces(0)
'
' '*************************データベースを開く。******************************
'
Set db = ws.OpenDatabase(lcstrDatebase)
strSQL = ""
strSQL = strSQL & " Insert Into rireki_tb"
' strSQL = strSQL & " ( Hiduke"
strSQL = strSQL & " (SyainCd"
strSQL = strSQL & " ,TenpoCd"
strSQL = strSQL & " ,SyohinCd"
strSQL = strSQL & " ,SyainNm"
strSQL = strSQL & " ,Nyukin"
strSQL = strSQL & " )"
' strSQL = strSQL & " values ('" & lbl_Date.Caption & "'"
strSQL = strSQL & " values ('" & cmb_SyainCd8.Text & "'"
strSQL = strSQL & " ,'" & 0 & "'"
strSQL = strSQL & " ,'" & 0 & "'"
strSQL = strSQL & " ,'" & lbl_SyainNm8.Caption & "'"
strSQL = strSQL & " ," & txt_Nyukin8.Text & ")"

db.Execute strSQL

db.Close
ws.Close
Set db = Nothing
Set ws = Nothing

End Sub