, .
. , . , . .
. , . , . .
, . , .. . , , . , . , , , , , , , :
* (1 + - ) *
. . .
! .
.
. . , ..
! .
Access 2007 : . . Access . .
Access.
.
ACCESS . , . .
|
|
|
, , .
. 
. > .
, . , . > :
. . .
( ) , .. .
. (). . , . , .. . .
, . :
. . , . ( , , , ). , . . , Excel, Word . , . Access 2007 , , .
|
|
|
: , . , . ACCESS - . , . () , , , . . , . , .
. : , , . . , . . . , , . .
, .
: , , . . . . . , . , . :
1. , , .
2. . .
3. . , , .
, :
:
1. , .
2. , . . , . , .
, . .
|
|
|
, , , . Access 2007 , VBA (Visual Basic for Application). , , 
. Access 2007 : . , , , VBA. . VBA. VBA, , VBA. .
3. . . :
, , >. , , >.
. , . .
. , , , , . . , . . : , . :
1. ,
=Nz(DMax("[ ]";"[]"))+1
2. , . . ( ). , . , , . , , (. ) . (. ), 17 . .
|
|
|
3. , 17.
:
1. . . 15.
. . , , .
.
→ , , DMax . . : , (expr), , (domain) (criteria). ([ ]) ([ ]). . , . .
DMax([ ];)
. , Null, . Null ( Null), 0. Nz.
Nz()
, Null. , 0, . 1. , 1, , .
2. , . , , .
If Nz([ ]) = 0 Then
[ ] = [15]
End If
: Null. , , Null Nz([ ]) 0. , , , 15.
3. , .. , , , . , , . (). 2 . .
.
. , , , .
, . . , , , . N.
|
|
|
. , Access 2007 . , , . .
. ( Del), . . . , . , . , . .
.
, , .
! , , . 11. . .
( ) . : , . .
:
;
;
, .;
, , . Access 2007 , , . , . . , , , , . , . 13.
, =[]*[]*(1+[]-[]). . (. ).
( 15), =Sum([]*[]*(1+[]-[])). . . . , . . , .
, :
[]=DLookup("[]", "[]", "[ ]=" & 13)
, Dlookup, : , , . Dlookup , . , 13. , , 2, "[ ]=2", Dlookup .
.
, , :
:
- ;
;
. :
If Nz([ ])= 0 Then
[ ] = Forms![]![ ]
End If
.
, .
.
. :
;
, , .
, ;
.
.
. :
/, . . , , :
. , .
. . , .
. , ( , ..). () . . : 1. . . .
( ) Access 2007 , , . , , , . VBA.
, , , . . . :
VBA Access 2007 , . (Ctrl-C). , . . :
, . .
, VBA. :
.
.
VBA:
'------------------------------------------------------------
' 18_Click
'------------------------------------------------------------
Private Sub 18_Click()
On Error GoTo 18_Click_Err
DoCmd.GoToRecord, "", acNewRec
18_Click_Exit:
Exit Sub
18_Click_Err:
MsgBox Error$
Resume 18_Click_Exit
End Sub
.
On Error,MsgBox Error$,Resume . , . DoCmd.GoToRecord,, acNewRec .
. DoCmd.GoToRecord,, acNewRec :
[ ] = Nz(DMax ("[ ]", "[]")) +1
[ ] = Date()
DoCmd.GoToControl "11"
; 11. , .
, . , , . , . . .
