VBA SQL ACCESS SQL文にて取得した値を、テキストボックスまた変数へ代入したい

Question

SQL初心者です。
SQL文にて合計した値を変数、またはテキストボックスへ代入する方法がわからず質問しました。

下記内容にて値の抽出をしたいのですが、この内容で取得できるでしょうか。
rs.Fields("SUM(syoukei)").Valueこの部分の記述内容が不明です。
SELECTにて値を合計した場合の記述方法がわからないためお手数おかけしますが
ご教授お願いいたします。
a = rs.Fields("SUM(syoukei)").Valueこの部分の記述内容が不明です。

'ACCESS接続***************************************
Dim cn As Object
Set cn = CreateObject("ADODB.connection")
cn.Open "provider=microsoft.ace.oledb.12.0;data source=C:\maruse.accdb;"

Dim sql As String
Dim aa As Long
Dim a As String

'SQL文の作成
aa = Val(txt手配番号)
sql = "SELECT SUM(syoukei) FROM 個人元請 WHERE tehaibangou = " & aa & " "

Dim rs As Object
Set rs = CreateObject("ADODB.Recordset")
rs.Open sql, cn

'SQLにて取得した値を変数へ代入したい

Set rs = CreateObject("ADODB.Recordset")
rs.Open sql2, cn

a = rs.Fields("SUM(syoukei)").Value

rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing

Answer 1

質問のSQLだとフィールドは一つなので、インデックスで指定すればいいでしょう。

a = rs.Fields(0).Value

フィールドが複数あるなら、SQLでフィールド名を定義するといいでしょう。

'ACCESS接続***************************************

sql = "SELECT SUM(syoukei) As Goukei FROM 個人元請 WHERE tehaibangou = " & aa

'略

a = rs.Fields("Goukei").Value

ちなみに下記の1行でもご希望のことは可能です。

a = DSum("syoukei", "個人元請", "tehaibangou = " & aa)

Comments

[退会済みユーザー]

hatena19様
ご回答ありがとうございます。
検索しても中々個別の値を抽出して変数に代入するやり方がヒットしませんでしたので大変助かりました。
また、抽出パターンも数通り教えていただきとても勉強になりました。
誠にありがとうございました。