初歩的なＳＱＬですが・・・

質問

私の環境はＯＳ：Ｘｐ
　　　　　ＡＣＣＥＳＳ２０００です。

宜しくお願いします

今ＡｃｃｅｓｓＶＢＡで作業をしているのですが、

Dim ws As DAO.Workspace
Dim DB As DAO.Database
Dim rs As DAO.Recordset
Dim sql As String

Set ws = DBEngine.Workspaces(0)
Set DB = ws.Databases(0)

sql = "select MAX(銀行コード) from 銀行テーブル ;"
Set rs = DB.OpenRecordset(sql)

Me.合計 = rs

このＳＱＬ文で銀行テーブルに入っている銀行コードの最大値を取得したいのですが、取得した後どのように記述したら「ｒｓ」から値を引っ張り出せるのでしょうか？

宜しくお願いします。

回答No.1

wakap · ベストアンサー

rs.fields(0).value

または

sql = "select MAX(銀行コード) as A from 銀行テーブル ;"
としといて
rs("A").value
でもいいのではないかと。

お礼

皆様ありがとうございました。

おかげさまで解決致しました。

初歩的な質問に丁寧に答えて頂き、本当にありがとうございました。

回答No.3

NorthMole

#1さんの回答でよろしいかと思います。
蛇足ですけど、こだわりがなければ、別にDMAXでもよさそうですね。
Me.合計 = DMAX("[銀行コード]","銀行テーブル")
だったかと・・・。

回答No.2

Mahk2

rs.Fields(0)でどうですか？