[PR]当たる！無料占いで仕事鑑定:大人気！無料占い『ｽﾋﾟﾘﾁｭｱﾙの館』
トップページ
＞VBAの基本操作(制御構造)
If 〜End If 文
「もしも〜ならば・・・を実行する」という処理を行う場合に使用します.
[書式]
If 条件式 Then
実行する処理
End If
[例]
If rs6!カウント > 0 Then
MsgBox"エラーです”
GoTo Exit_登録_Click:
End If
If 〜Then・・・Else-----文
「もしも〜ならば・・・を実行する,それ以外なら-----を実行する」という場合に使用します.
[書式]
If 条件式 Then
判断結果がTrueのときに実行する処理
Else
判断結果がFalseのときに実行する処理
End If
If 〜Then・・・ElseIf文
「もしも A ならば a の処理,B ならば b の処理,C ならば c の処理を実行する」という場合に使用します.
[書式]
If 条件式A Then
条件式Aの判断結果がTrue のときに実行する処理
ElseIf 条件式B Then
条件式Bの判断結果がTrueのときに実行する処理
ElseIf 条件式C Then
条件式Cの判断結果がTrueのときに実行する処理
Else
すべての条件式の判断結果がFalseのときに実行する処理
End If
Select Case 文
「もしも A ならば a の処理,B ならば b の処理,C ならば c の処理を実行する」という場合に使用します.
[書式]
Select Case 変数
Case 定数 1
変数の値が定数 1 とひとしいときに実行する処理
Case 定数 2
変数の値が定数 2 とひとしいときに実行する処理
Case 定数 3
変数の値が定数 3 とひとしいときに実行する処理
Case Else
変数の値が上記以外のときに実行する処理
End Select
[例]
If rs5!カウント> 0 Then
Beep
ret = MsgBox("削除してもよろしいですか”,_
vbYesNo + vbQuestion, "削除"）
Select Case ret
'[はい]
Case vbYes
com.ActiveConnection = cn
com.Commandtext = mysql
com.Execute
MsgBox"既存データを削除しました"
'[いいえ] Case vbNo
'何もしない
MsgBox"処理を中断しました"
GoTo Exit_登録_Click
End Select
End If
For 〜 Next 文
[書式]
For カウンタ = 初期値 To 最終値 [Step ステップ]
実行する処理
Next カウンタ
Do ・・・Loop 文
Do Until 文
Do Until文は,条件式を満たすまで処理を繰り返します.
[書式1-前判定]
Do Until 条件式
実行する処理
Loop
[書式2-後判定]
Do
実行する処理
Loop Until 条件式
Do While 文
Do While文は,条件式を満たしている間,処理を繰り返します.
[書式1-前判定]
Do While 条件式
実行する処理
Loop
[書式2-後判定]
Do
実行する処理
Loop While 条件式
VBAの基礎知識 データベースプログラミング
更新日：2006/3/6
Copyright (C)2003-2006 Orakumiko All rights reserved.