Option Compare Database
Option Explicit
Private Const ConstVar = "Constvar"
Public PublicVar
Private PrivateVar
Private Sub ShowVars()
Debug.Print "PublicConstVar:" & PublicConstVar
Debug.Print "ConstVar:" & ConstVar
Debug.Print "PublicVar:" & PublicVar
Debug.Print "PrivateVar:" & PrivateVar
Debug.Print "TempVar:" & TempVars("tVar")
End Sub
Private Sub Form_Close()
TempVars.RemoveAll
End Sub
Private Sub Form_Open(Cancel As Integer)
PublicVar = Now
PrivateVar = Now
TempVars("tVar") = Now
End Sub
Private Sub Form_Current()
Debug.Print "*** Form_Current ***"
ShowVars
End Sub
Private Sub Field01_BeforeUpdate(Cancel As Integer)
Debug.Print "*** Field01_BeforeUpdate ***"
ShowVars
End Sub
Private Sub Field02_AfterUpdate()
Debug.Print "*** Field02_AfterUpdate ***"
ShowVars
End Sub
Option Compare Database Option Explicit Public Const PublicConstVar = "PublicConstVar"access2010/access2007の間でも取得可否が異なるので確認しながらということになります。
Option Compare Database
Option Explicit
Private Sub date01_Change()
If Not IsDate(Me.date01.Text) Then Exit Sub
'以降、日付とかに合わせた処理
End Sub
Private Sub date02_Change()
If Not IsDate(Me.date02.Text) Then Exit Sub
'以降、日付とかに合わせた処理
End Sub
Private Sub date02_GotFocus()
DoCmd.RunCommand acCmdShowDatePicker
End Sub
Option Compare Database
Option Explicit
Private Sub ShowVersion_Click()
MsgBox "Access Ver. : " & Application.CurrentDb.Properties("Version")
End Sub
