概要
DAOでは連結フォームのレコードソースを扱うことが出来ます
- (記述法)
- DAOオブジェクト変数を宣言
  Dim  rs  as  DAO.Recordset - フォームのレコードセットを取得
  Set  rs  =  Forms!F_フォーム名.RecordsetClone - この間で取得したレコードソースが使えます
- 終了処理
  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
(実行結果)
(この項終わり)