, , MS Access. Visual Basic. , . MS Access : . - Function, - Sub.
. , . , . , , .
. .
, .
. , , , .
. , .
:
Visual Basic . , . , OpenForm :
Private Sub _lick()
DoCmd.OpenForm
End Sub
: - Sub - Function.
- Sub, Visual Basic, , . Sub , Microsoft Access.
, , , . Microsoft Access , , , , . , .
. . , , , Visual Basic.
|
|
- Function ( ) , , . Visual Basic ; , Now . , , Microsoft Access, , Visual Basic, . , .
Function , :
Function ()
=DateSerial(Y(Now), Month(Now) +1,1)
End Function
, ( ) ( ). Visual Basic DateSerial, Year, Now Month.
Microsoft Access . , , , (DefaultValue) : =().
. , . , .
Sub Function .
Visual Basic . Visual Basic, , , . . , . Function Sub ( ).
, , , , , . (, ), , .
. . , , . , , , , . , .
|
|
, , Class Module Insert. , , , , .
, Function. , . , IsLoaded strFormName: