|
Function s457()
Dim ct As ADODB.Connection
ラインNO毎に数量の合計をしたいと考えており、下記の様なモージュルを作成しました。
しかし、selectステートメントが間違っている予約語や引数を含んでいるか、区切り記号が正しくありません。と言うメッセージがでます。どこがおかしいのでしょうか?
Function s457()
Dim rs As ADODB.Recordset
Dim cm As ADODB.Command
Dim msg As Integer
Set ct = Application.CurrentProject.Connection
Set cm = New ADODB.Command
cm.ActiveConnection = ct
cm.CommandText = "SELECT 出荷数.ラインNO, Sum(出荷数.数量の合計) As 出荷計" & "FROM 出荷数 GROUP BY 出荷数.ラインNO;"
Set rs = New ADODB.Recordset
Set rs = cm.Execute
msg = MsgBox(rs.Source)
rs.Close
ct.Close
End Function
|
|