On Error GoTo Err_13_Click
DoCmd.GoToRecord,, acNewRec
Exit_13_Click:
Exit Sub
Err_13_Click:
MsgBox Err.Description
Resume Exit_13_Click
End Sub
On Error,MsgBox Err.Description,Resume . , . DoCmd.GoToRecord,, acNewRec .
. DoCmd.GoToRecord,, acNewRec :
If Nz([ ]) = 0 Then
[ ] = Nz(DMax ("[ ]", "[]")) +1
[ ] = Date()
End If
DoCmd.GoToControl " 8"
, , ; 8. , .
, . , , . , . . .
Private Sub 13_Click()
On Error GoTo Err_13_Click
DoCmd.GoToRecord,, acNewRec
If Nz([ ]) = 0 Then
[ ] = Nz(DMax ("[ ]", "[]")) +1
[ ] = Date()
End If
DoCmd.GoToControl "17"
Exit_13_Click:
Exit Sub
Err_13_Click:
MsgBox Err.Description
Resume Exit_13_Click
End Sub
.
, . . , .
.
.
, , . ( 15). , , :
|
|
[].Form![15] , , .
. .
. . , , . ACCESS .
, . .
. . , , :
:
, , , . , .
! : ( 10-15 ); ( 10), , .
. , , . . :
1. ;
2. , , ;
3. ;
4. .