----------------ここから------------------------------------------------
Dim dbado As ADODB.Connection
Dim rst1 As ADODB.Recordset
Dim V_過剰金額 As Double, V_過剰商品数 As Long _
, V_不動金額 As Double, V_不動商品数 As Long _
, V_不動金額B As Double, V_不動商品数B As Long
'################ 接続/レコードセット ################
Set dbado = Application.CurrentProject.Connection
Set rst1 = New ADODB.Recordset
'################ 金額・商品数取得:在庫 ################
With rst1
.Open "SELECT SUM(在庫金額) AS 金額,COUNT(商品コード) AS 商品数 FROM 在庫累積データ _
WHERE 当月文字列='" & Me![選択_年月] & "' AND 種別 Like '*過剰*' _
GROUP BY 当月文字列;", dbado, adOpenDynamic, adLockOptimistic
If .EOF Then
V_過剰金額 = 0: V_過剰商品数 = 0
Else
V_過剰金額 = ![金額]: V_過剰商品数 = ![商品数]
End If
.Close
End With
'################ 切断 ################
Set rst1 = Nothing
dbado.Close: Set dbado = Nothing
----------------ここまで------------------------------------------------
*WHEREのところの「Me![選択_年月]」は、
このコードを実行するフォーム内にあるコンボボックスで、
値を正常に取得していることを確認しています。
ここを「2008年12月」のように定数直書きにしても結果は同じでした。
"大東" からの元のメッセージ: