*

Access VBA DAOを使用したレコード抽出

公開日: : 最終更新日:2014/05/11 データベース操作(DAO)

DAOを使用したレコード抽出

DAOを使用したレコードの抽出プログラム例を説明します。

スポンサーリンク

プログラム例

Private Sub コマンド0_Click()

Dim DB As DAO.Database
Dim RS As DAO.Recordset

Set DB = CurrentDb
Set RS = DB.OpenRecordset(“T_社員マスタ2013”, dbOpenDynaset)     ‘*1

RS.Filter = “性別= ‘男'”                         ‘*2
Set RS = RS.OpenRecordset                  ‘*3

Do Until RS.EOF                                    ‘*4

Debug.Print RS!名前                              ‘*5

RS.MoveNext
Loop

RS.Close: Set RS = Nothing
DB.Close: Set DB = Nothing

End Sub

プログラムの説明

*1 テーブル「T_社員マスタ2013」を開きます。

*2 Filterを使用して「性別」フィールドの”男”を抽出します。

*3 レコードセットを更新(抽出)。

*4 Do~Loop処理でEOF(ファイルの末尾)まで抽出を繰り返します。

*5 イミディエイトウインドウに抽出結果を表示します。

「Filter」を使用してレコードの抽出を行います。
レコードを複数抽出する為に「Do~Loop文」を使用しレコードを上から順番に検索していきます。「EOF」とはレコードの最後を意味し、「Until RS.EOF」はレコードの最後までという意味です。

スポンサーリンク

ad-pc

ad-pc

関連記事

no image

Access VBA DAOを使用したレコード更新

DAOを使用したレコード更新 DAOを使用したレコードの更新プログラム例を説明します。

記事を読む

no image

Access VBA DAOを使用したレコード検索

DAOを使用したレコード検索 DAOを使用したレコードの検索プログラム例を説明します。

記事を読む

no image

Access VBA DAOを使用したレコード削除

DAOを使用したレコード削除 プログラム例 Private Sub コマンド0_Click()

記事を読む

no image

Access VBA DAOを使用したレコード追加

DAOを使用したレコード追加 DAOを使用したレコードの追加プログラム例を説明します。

記事を読む

Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

転職01
初心者がAccess VBAの仕事に就く為には

初心者がAccess VBAを使った仕事に就く 私はSEやITエンジ

sound01
Access VBA 音を鳴らす PlaySound

音を鳴らす PlaySound Access上で効果音を鳴らすプログ

pass01
Access VBA フォームをパスワードで制限

フォームをパスワードで制限 Accessで作成したデータベース使用時

prg01
Access VBA 処理の進行状況を表示するプログレスバー(ProgressBar)

処理の進行状況を表示するプログレスバー Accessで処理に時間のか

excel03
Access VBA AccessのデータをExcel(エクセル)へ変換

AccessのデータをExcel(エクセル)へ変換 Accessで使

→もっと見る

PAGE TOP ↑