[[20210903210333]]　『FROM句構文のエラーです』（恭平）　ページの最後に飛ぶ

『FROM句構文のエラーです』（恭平）

Private Sub cmb顧客名_Enter()
Dim adoCON As New ADODB.Connection
Dim adoRS As New ADODB.Recordset
Dim strSQL As String
Dim odbdDB As Variant

Me!Cmb顧客名.Clear
odbdDB = ActiveWorkbook.Path & "\納品書2.xlsm"

Set adoCON = New ADODB.Connection

With adoCON

  .Provider = "Microsoft.ACE.OLEDB.12.0"
  .Properties("Extended Properties") = "Excel 8.0"
  .Open odbdDB
End With

adoRS.CursorLocation = adUseClient

  strSQL = "SELECT 単価 FROM [Sheet2$] "
  strSQL = strSQL & "WHERE顧客名＝'" & Me!Cmb顧客名 & "'"
  strSQL = strSQL & "AND大分類＝'" & Me!Cmb大分類 & "'"
  strSQL = strSQL & "AND単位＝'" & Me!Cmb単位 & "'"
  strSQL = strSQL & "AND商品名＝'" & Me!Cmb商品名 & "'"
  strSQL = strSQL & "GROUP BY 単価;"

adoRS.Open strSQL, adoCON, adOpenDynamic　FROM句構文のエラーですと出るのはなぜでしょうか？

Do Until adoRS.EOF

  Me!Cmb顧客名.AddItem adoRS.Fields(0).Value
  adoRS.MoveNext
Me!Cmb大分類.AddItem adoRS.Fields(1).Value
  adoRS.MoveNext
Me!Cmb単位.AddItem adoRS.Fields(2).Value
  adoRS.MoveNext
Me!Cmb商品名.AddItem adoRS.Fields(3).Value
  adoRS.MoveNext
Me!Cmb単価.AddItem adoRS.Fields(4).Value
  adoRS.MoveNext
Loop

adoRS.Close
Set adoRS = Nothing
adoCON.Close
Set adoCON = Nothing

End Sub

＜使用 Excel：Excel2019、使用 OS：unknown ＞

 1)
 >AND大分類＝'" & Me!Cmb大分類 & "'"
 And とフィールド名の間にスペースを挿入
 AND 大分類＝'" & Me!Cmb大分類 & "'"

 2) 
 Me!Cmb顧客名.Column = adoRS.GetRows
 にすれば、Do Loopの必要は無いのでは？
（seiya） 2021/09/03(金) 21:40
 よく見ると
 "SELECT 単価 FROM [Sheet2$] "
 で抽出フィールドは単価のみですね。
 Do Loopの内容もおかしいし、adoRS.MoveNextも過剰だし...

コメント返信：

[ 一覧(最新更新順) ]

[[20210903210333]] 『FROM句構文のエラーです』（恭平） ページの最後に飛ぶ

[[20210903210333]]　『FROM句構文のエラーです』（恭平）　ページの最後に飛ぶ