忍者ブログ
ADMINNEW ENTRY
C A L E N D A R
03 2025/04 05
S M T W T F S
1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30

専門学生時代にACCESSを学び、現在会社で使用しているシステムがACCESSで作られているので再度勉強中です。(学校ではVBAを全然習わなかったので) これからACCESS VBAを勉強する方一緒に学んでいきましょう
1 2 3 4 >>>
2025-04-24(Thu)
[PR]
×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。



.

2009-09-27(Sun)
レコードセットデータの確認(DAO)
レコードセットデータの確認にはイミディエイトウインドウを使用します。

別に使用しなくても確認できる方法はあるのですがイミディエイトウインドウが

一番簡単に確認できる方法だと思います。

1b1646df.jpeg






レコードセットデータ確認



Sub recordkakunin()
    'レコードセットデータ確認
    Dim db As Database
    Dim rs As DAO.Recordset
    Set db = CurrentDb
    
    'T_会員テーブル全データの取得
    Set rs = db.OpenRecordset("select * from T_会員", dbOpenDynaset)
   
    Do Until rs.EOF
        Debug.Print rs!会員No & rs!名前姓 & rs!名前名
        rs.MoveNext
    Loop
   
    rs.Close
    Set rs = Nothing
   
    db.Close
    Set db = Nothing
   
End Sub


イミディエイトウインドウはVBEの表示メニューから開くことができます。

イミディエイトウインドウを開いて実行してみて下さい。
PR


.

1 2 3 4 >>>

Powered by NinjaBlog. Template by うさねこ.
忍者ブログ[PR]