Access2010 フォームイベントのメモ

通常	レコードが0件で AllowAdditions=False	Load時 レコードソース設定	Open時 レコードソース設定
1:Form_Open1	1:Form_Open1	1:Form_Open1	1:Form_Open1
2:Form_Open2	2:Form_Open2	2:Form_Open2	2:Form_Load1
3:Form_Load1	3:Form_Load1	3:Form_Load1	3:Form_Load2
4:Form_Load2	4:Form_Load2	4:Form_Activate	4:Form_Resize
5:Form_Resize	5:Form_Resize	5:Form_Current	5:Form_Activate
6:Form_Activate	6:Form_Activate	6:Form_Load2	6:Form_GotFocus
7:Form_Current		7:Form_Resize	7:Form_Current
		8:Form_Deactivate	8:Form_Open2
		9:Form_Activate
		10:Form_Current
8:Form_Unload	7:Form_Unload	11:Form_Unload	9:Form_Unload
9:Form_Deactivate	8:Form_Deactivate	12:Form_Deactivate	10:Form_Deactivate
10:Form_Close	9:Form_Close	13:Form_Close	11:Form_Close

フォームにEnabled=Trueの コントロールがない	詳細セクションに Enabled=Trueの コントロールがない	PopUp/ダイアログ
1:Form_Open1	1:Form_Open1	1:Form_Open1
2:Form_Open2	2:Form_Open2	2:Form_Open2
3:Form_Load1	3:Form_Load1	3:Form_Load1
4:Form_Load2	4:Form_Load2	4:Form_Load2
5:Form_Resize	5:Form_Resize	5:Form_Resize
6:Form_Activate	6:Form_Activate	6:Form_Current
7:Form_GotFocus	7:Form_GotFocus
8:Form_Current	8:Form_Current
9:Form_Unload	9:Form_Unload	7:Form_Unload
10:Form_LostFocus	10:Form_GotFocus	8:Form_Close
11:Form_Deactivate	11:Form_LostFocus
12:Form_Close	12:Form_Deactivate
	13:Form_Close

Option Compare Database
Option Explicit
'access2010調べ
Private i As Integer

Private Sub Form_GotFocus()
    EventLog "Form_GotFocus"
End Sub

Private Sub Form_LostFocus()
    EventLog "Form_LostFocus"
End Sub

Private Sub Form_Open(Cancel As Integer)
    EventLog "Form_Open1"
'    Me.RecordSource = "テーブル1"
    EventLog "Form_Open2"
End Sub

Private Sub Form_Load()
    EventLog "Form_Load1"
'    Me.RecordSource = "テーブル1"
    EventLog "Form_Load2"
End Sub

Private Sub Form_Resize()
    EventLog "Form_Resize"
End Sub

Private Sub Form_Activate()
    EventLog "Form_Activate"
End Sub

Private Sub Form_Current()
    EventLog "Form_Current"
End Sub

Private Sub Form_Deactivate()
    EventLog "Form_Deactivate"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    EventLog "Form_Unload"
End Sub

Private Sub Form_Close()
    EventLog "Form_Close"
End Sub

Private Sub EventLog(str As String)
    i = i + 1
    Debug.Print i & ":" & str
End Sub