, .
, : , , . . .
: [Forms]! []! []. [Form]! []. [Form]! [] | ||
: [Forms]! []! []. [Form]! []. [Form]! [] | ||
: [Forms]! []! []. [Form]! [] | ||
: [Forms]! []! []. [Form]! []. [Form]! [] |
, ( ) . .
, : , . , ( ) ([Forms]! []! []. [Form]! []).
[Forms]![]![].[Form]![] |
Private Sub ()
Me..Requery
Me. = DLookup("[]", "")
Forms.. = Me.
End Sub
Private Sub ()
Dim As String
= "=Forms!!"
Forms.. = DLookup("[]", "", )
Forms.. = DLookup("[]", "", )
End Sub
Private Sub Form_Load()
End Sub
Private Sub _Change()
Forms.. = Me.
End Sub
Private Sub _Change()
Forms.. = Me.
End Sub
Private Sub _Change()
Forms.. = Me.
End Sub
Private Sub _Change()
Forms.. = Me.
End Sub
Private Sub Form_Current()
On Error Resume Next
.Form..Requery
.Form..Requery
.Form..Requery
.Form. = DLookup("[]", "")
.Form..Value =
End Sub
Private Sub _Click()
|
|
On Error Resume Next
DoCmd.GoToRecord,, acPrevious
End Sub
Private Sub _Click()
On Error Resume Next
DoCmd.GoToRecord,, acNext
End Sub
Private Sub _Click()
.SelStart = 0
.SelLength = Len()
End Sub
Private Sub ()
Forms...Form..Requery
Forms...Form..Requery
Forms...Form..Requery
End Sub
Private Sub _Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery ""
DoCmd.SetWarnings True
End Sub
Private Sub _Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery ""
DoCmd.SetWarnings True
End Sub
Private Sub _DblClick(Cancel As Integer)
_Click
End Sub
Private Sub Form_AfterDelConfirm(Status As Integer)
Forms...Form..Requery
End Sub
Private Sub _Change()
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord,, acMenuVer70
DoCmd.SetWarnings True
Forms...Form..Requery
Forms...Form..Requery
End Sub
Private Sub _Click()
AllowAdditions =
End Sub
1. .
2. .
3. .
4. .