VBAにテーブルの値の記入法

質問

Access2000を使用しています。

VBAにテーブルのフィールドを書く際、どのように記述すればよいでしょうか？

テーブル
基本情報

フィールド
充実度

VBA
[基本情報]![充実度].value

こんな感じでやるとエラーが出ます。

正しい記述法を教えてください。

回答No.1

soaikats · ベストアンサー

メッセージボックスに表示するサンプルです。
データ件数分表示されますのでご注意を。

１．挿入＞標準モジュールで標準モジュールを開く。
２．表示された部分に以下の内容を入力する。
３．イミディエイトウインドウで「Call Sample」を実行する。

Sub Sample()
　Dim cn As ADODB.Connection
　Dim rs As New ADODB.Recordset

　Set cn = CurrentProject.Connection
　rs.Open "基本情報", cn, adOpenStatic, adLockReadOnly
　Do Until (rs.EOF)
　　MsgBox rs!充実度
　　rs.MoveNext
　Loop
　rs.Close
　Set cn = Nothing
End Sub

お礼

回答ありがとうございました。

データベースに接続して値を抽出することをすっかり忘れていました。
おかげさまで希望通りの動きとなりました。