DAOでデータに接続する基本文

TIPSメインへ戻る

概要

DAOでは連結フォームのレコードソースを扱うことが出来ます

    (記述法)
  1. DAOオブジェクト変数を宣言
      Dim  rs  as  DAO.Recordset
  2. フォームのレコードセットを取得
      Set  rs  =  Forms!F_フォーム名.RecordsetClone
  3. この間で取得したレコードソースが使えます
  4. 終了処理
      Set  rs  =  Nothing

作成例

次のフォームはDAOを使ってレコード数を取得する例です。
フォーム名「F_DAOテスト」の コマンドボタン「DAOテスト」で実行します。


(テストフォーム)



(プロシージャ)

Private Sub DAOテスト_Click()
' DAOオブジェクト宣言
Dim rs As Dao.Recordset

 ' フォームのレコードセットを取得
 Set rs = Forms!F_DAOテスト.RecordsetClone

  'ここからはDAOレコードセットの使用例
 Dim ninzuu As String

 '登録人数を取得する例
 ninzuu = Me.Recordset.RecordCount
 MsgBox ("登録人数は" & ninzuu & "人です")

' DAOの終了処理
Set rs = Nothing

End Sub


(実行結果)

(この項終わり)