On Error GoTo Err_18_Click
DoCmd.GoToRecord,, acNewRec
If Nz([ ]) = 0 Then
[ ] = Nz(DMax ("[ ]", "[]")) +1
[ ] = Date()
End If
DoCmd.GoToControl "11"
18_Click_Exit:
Exit Sub
18_Click_Err:
MsgBox Error$
Resume 18_Click_Exit
End Sub
.
, . . , .
. , . .
.
, , . ( 15). , , :
[].Form![15] , , .
. .
. . , , . ACCESS .
, . .
. . , , :
:
, , , . , .
|
|
! : ( 10-15 ); ( 10), , .
. , , . . :
1. ;
2. , , ;
3. ;
4. .