|
|
| |
| 本章では、プログラムを制御するVBA記述ルールと、コードサンプルを例示します。 |
| |
|
|
|
GoTo ラベル名
ラベル名：
|
|
|
|
|
|
|
プログラムの実行を一時的に中断する。
Stop |
|
|
|
|
|
|
|
繰り返し処理やプロセジャーから抜ける。
Exit Do
Exit For
Exit Function
Exit Property
Exit Sub |
|
|
|
|
|
|
プロセジャーやステートメントを終了させる。
End
End Function
End If
End Property
End Select
End Sub
End Type
End With
|
|
|
|
|
|
|
【呼び出しの制限】
Ｐｒｉｖａｔｅｐロセジャーは同じモジュールう内でのみ呼び出しが可能
【呼び出しの規則】
標準モジュールからクラスモジュールを呼び出す場合は、プロセジャーの前にクラスモジュール名を記述する。
ex.
クラスモジュールＸ.プロセジャーＹ
|
|
|
|
|
|
|
If 条件文 Then 処理１ 'コードが１つの場合
If 条件文 Then 'コードが複数の場合
処理１
EndIf
ex.
If Counter < 20 Then Counte = 20
|
|
|
|
|
|
|
If 条件文 Then 処理１ Else 処理２ 'コードが１つの場合
If 条件文 Then 'コードが複数の場合
処理１
Else
処理２
EndIf
|
|
|
|
|
|
|
If 条件文 Then
処理１
ElseIf
処理２
ElseIf
処理３
Else
処理４
EndIf
|
|
|
|
|
|
|
Select Case 領域／条件文
Case ケース1
処理１
Case ケース２
処理２
End Select
ex.
Select Case A
Case 10
X=1
Case 20
X=2
End Select |
|
|
|
|
|
|
While 条件文
-- ここに繰り返す処理を書く --
Wend
ex.
While Counter < 20 |
|
|
|
|
|
|
Do While 条件文
-- ここに繰り返す処理を書く --
Loop
Do
-- ここに繰り返す処理を書く --
Loop Until 条件文 |
|
|
|
|
|
|
For Counter = 1 To 20
-- ここに繰り返す処理を書く --
Next Counter |
|
|
|
|
|
|
『コレクション』の各オブジェクトや『配列』の各要素に対して繰り返し処理を実行する
Dim w_Control As Control
For Each w_Control In Screen.ActiveForm
Select Case w_Control.ControlType
Case acTextBox, acComboBox
w_Control.ForeColor = 0
End Select
Next w_Control |
|
|
|
|
|
|
イベントを認識できるのは「フォーム」、「フォーム上のコントロール」、「レポート」
| マウス |
Click |
マウス左ボタンクリック |
| |
Dblclick |
マウス左ボタンダブルクリック |
| |
MouseDown |
マウスボタンクリック |
| |
MouseMove |
マウス移動 |
| |
MouseUp |
マウスボタン開放 |
| ウインドウ |
Close |
フォームまたはレポートを閉じる |
| |
Load |
フォームを開いた後 |
| |
Open |
フォームまたはレポートを開く |
| |
Resize |
フォームのサイズ変更 |
| |
Unload |
フォームを閉じるとき |
| フォーカス |
Activate |
フォームまたはレポートがアクティブ |
| |
Deactive |
他のフォームまたはレポートがアクティブ |
| |
Enter |
フォーカス取得 |
| |
Exit |
フォーカス喪失 |
| データ |
AfterDelConfirm |
実際にレコードが削除された後 |
| |
AfterInsert |
挿入後 |
| |
AfterUpdate |
更新後 |
| |
BeforeDelConfirm |
レコードを削除した後で削除確認のダイアログボックスが表示される前 |
| |
BeforeInsert |
挿入前 |
| |
BeforeUpdate |
更新前 |
| |
Change |
変更時 |
| |
Current |
レコード移動 |
| |
Delete |
レコード削除 |
| |
Dirty |
フォームまたはコンボボックスのテキスト部分が変更されたとき |
| |
NotinList |
コンボボックスのリストに存在しない値を入力したとき |
| |
Update |
ＯＬＥオブジェクトのデータが変更されたとき |
| キーボード |
KeyDown |
キークリック |
| |
KeyPress |
キー入力 |
| |
KeyUp |
キー開放 |
| エラー |
Error |
エラー |
| タイミング |
Timer |
タイマー |
| フィルタ |
ApplyFilter |
フィルタを実行したとき |
| |
Filter |
フォームフィルタを実行したとき |
| 印刷 |
Format |
フォーマット時 |
| |
NoData |
データのないレポートがフォーマットされた後で印刷される前 |
| |
Page |
フォーマット後でページが印刷される前 |
| |
Print |
フォーマット後でセクションが印刷される前 |
| |
Retreat |
フォーマット中に前にフォーマットしたレポートセクションに戻ったとき |
|
