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

TIPSメインへ戻る

概要

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

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

作成例

次のフォームはDAOを使ってレコード数を取得する例です。
フォーム名「F_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

（実行結果）

（この項終わり）