*

Access VBA 繰り返し処理 Do Loop文

公開日: : 最終更新日:2014/05/07 繰り返し処理

繰り返し処理 Do Loop文

Do~Loopの間に書かれているプログラムを規定の条件まで繰り返し、処理を行います。

スポンサーリンク

Do Loopを使用したプログラムの例

Private Sub コマンド0_Click()

Dim CN As ADODB.Connection
Dim RS As ADODB.Recordset

Set CN = CurrentProject.Connection
Set RS = New ADODB.Recordset

RS.Open “T_社員マスタ2013”, CN, adOpenStatic, adLockOptimistic    ‘*1

Do Until RS.EOF       ‘*2

MsgBox RS!名前      ‘*3

RS.MoveNext           ‘*4
Loop                       ‘*5

MsgBox “以上!”  ’*6

RS.Close: Set RS = Nothing
CN.Close: Set CN = Nothing

End Sub

プログラムの説明

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

*2 Do Loop処理開始    EOF(ファイルの末尾)まで処理します。

*3 「T_社員マスタ2013」の「名前」フィールドの値をメッセージボックスに表示します。

*4 次の行へ移動します。

*5 *2 へ戻ります。

*6 「T_社員マスタ2013」の「名前」フィールドの値を全て表示したら処理は終了です。

スポンサーリンク

ad-pc

ad-pc

関連記事

no image

Access VBA 繰り返し処理 For Next文

繰り返し処理 For Next文 For~Nextの間に書かれたプログラムを規定回数に達するまで繰

記事を読む

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 ↑