,,,
, , , .
, . , . , , , - , .[3]
, , , , , , . , , .
- 1996 .
.1.
.
: , , , , , , , , , web- .
.2.
. : , , , , , , .
, , , , .
, , , , .
, , .
web- .
. , , , .[3]
1.
Microsoft Access 2000 Microsoft Windows XP. Access , .[1]
:
1. Microsoft Access .
2. Access :
- (Tables) . () (). . ;
- (Queries) . , . (QBE) SQL - . , ;
- (Forms) . , . ;
- (Reports) , , ;
- (Pages) - Web-, , , ;
- (Macros). , , . . , ;
- (Modules) VBA. - , , . Access . .[2]
3. , Access , Access , , , .[1]
4. Microsoft Access : SQL (Structured Query Language ) VBA (Visual Basic for Applications ). VBA, , , . VBA .[1]
5. Access . , D (Open Database Connectivity ).
6. Access , , .[1]
7. . : ( ), ( -), ( ). [1]
8. Access .
Microsoft Access 2000 , , , Access , , Microsoft Office.
2.
.
. Ÿ :
- , ;
- , , , , , ;
- , , ;
- , , , ;
- , ;
- .
.
:
- ;
- (, , , ..);
- (, , , ..);
- (, ...);
- ;
- ;
- ;
- .
- ;
- ;
- ( , , );
- ( , , , );
- (, , );
- (, , );
- .
- ;
- (, );
- ;
- ;
- ;
- ( , , );
- ;
- ( , ).
- ;
- ( , , );
- ;
- ;
- ;
- (... .).
- ;
- ;
- ;
- ;
- ;
- (... );
- ( );
- .
- ... ( );
- ( );
- ;
- ;
- E-mail.
.
:
:
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- .
:
- ;
- ;
- ;
- ;
- (, , , );
- (, , , );
- ;
- .
:
- ;
- ;
- ;
- ;
- ;
- ;
- ( , );
- ;
- .
: . :
- ;
- ;
- (..., , , E-mail).
:
- -;
- ( , ... ).
:
- ( , ... );
- - ;
- (, ).
: , Microsoft Word .
, .. .
Microsoft Access 2000, .
. Windows ( , ).
, Access 2000.
3.
, . , . , : ; ; .
: , . . , , .
. : , , . Access . ( ). , Access , , , , , . Access , , , , , /, MEMO, , OLE. , .
, .
3.1 -
-. (BPM Business Process Modeler) - .[4]
, , . , . 4- : (), , () ().
. , ..
, . , () : , , , ..
. .
, . . , . , , ..[4]
(.3.1.1, 3.1.2, 3.1.3, 3.1.4) , .
3.1.1
.3.1.1.
- , , . , , , . , . .
3.1.2
.3.1.2
, . , , . : , , / ..
( ) . , , , , .
3.1.3
( ) .3.1.3.
, . , , .
. .
3.1.4
.3.1.4.
, , , , , , . , , , .
, , .
3.2
3.2.1 ER
- (EntityRelationship, ER), . , .
- . . .
, .
, , . . - (1:1), (1:) (:1) (M:).[4]
, , . () .[4]
, ER . ER .3.2.1.
3.2.2
ER , .3.2.1 , .
.3.2.2 , . , .
3.3
. -, , . .
( 3.1.1) :
- ( , , , , , , ).
( 3.1.2) :
- , ( , , , , );
- ( , , , , , );
- ( , , , ).
( 3.1.3) :
- , ( , , , , , , , , );
- (, , , , , , , ).
( 3.1.4) :
- , ( , );
- , ( , , , , , , , );
- ( , , , , , );
- (..., , , , E-mail, FIO, Doljnost);
- ( , ... , , );
- ( , ... ).
3.4
(.3.2.2) Microsoft Access 2000. .3.4.
, , .
3.5
, : , , , . , Microsoft Access 2000. , , Visual Basic. , , .
3.5.1
.3.5.1. . .
: ; ; /; . :
- :
- (.3.5.2);
- (.3.6.1);
- :
- (.3.5.4);
- (.3.6.2);
- /:
- / (.3.5.8);
- / (.3.6.3);
- :
- (.3.5.9);
- .
, ( 1).
3.5.2
.3.5.2. .
.
- (.3.5.3) ;
;
- (.3.6.1);
-
, ( 2).
3.5.3
.3.5.3. , , . .
- . Select-SQL:
SELECT . ,
.[ ]
FROM ;
- . Select-SQL:
SELECT . ,
.[ ]
FROM ;
- . Select-SQL:
SELECT ., .
FROM ;
- ;
- ;
- ;
, ( 3).
3.5.4
.3.5.4. , , .
. , :
SELECT ., .,
.[ ], .,
., ., ., .
FROM INNER JOIN ON . = .
WHERE (((.)=[Forms]![]![]))
ORDER BY .;
- . Select-SQL:
SELECT ., . FROM ;
;
- (.3.5.5) ;
- (.3.6.2);
- .
, ( 4).
3.5.5
.3.5.5. , , .
. :
SELECT ., .,
., .
FROM INNER JOIN ON
. = .
WHERE (((.)=[Forms]![]![]));
- . Select-SQL:
SELECT ., . FROM ;
- . Select -SQL:
SELECT ., .
FROM ;
- . Select-SQL:
SELECT ., . FROM ;
- (.3.5.6 .3.5.7);
- ;
- ;
- ;
, ( 5).
3.5.6
.3.5.6. , .
.
- ;
, ( 6).
3.5.7
.3.5.7. , .
.
- ;
, ( 7).
3.5.8 /
.3.5.8. , , , , .
. , :
SELECT ., .Name,
., ., .,
., ., .,
., ., .
FROM INNER JOIN ON . = .
WHERE (((.)=[Forms]![]![]));
- . Select-SQL:
SELECT ., . FROM ;
- . Select-SQL:
SELECT ., .
FROM ;
- . Select-SQL:
SELECT .,
., .
FROM ;
;
- / (.3.6.3);
- /.
, ( 8).
3.5.9
.3.5.9. , , . , , .
. , :
SELECT .,
., .FIO,
., .Doljnost,
., .,
.Email,
FROM
WHERE (((.)=[Forms]![]![]));
, :
SELECT ., .,
., .,
., .,
., .
FROM INNER JOIN ON . = .
WHERE (((.)=[Forms]![]![]));
, :
SELECT .,
., .
FROM INNER JOIN ON
. = .
WHERE (((.)=[Forms]![]![]));
λ - λ . Select-SQL:
SELECT .,
.
FROM ;
MAKET(RUS) MAKET(ENG) - RUS ENG (.3.6.4 (), .3.6.4 ());
- ;
- . . Select-SQL:
SELECT .,
.,
.
FROM ;
- .
, ( 9).
3.5.10
.3.5.10. , , .
, :
SELECT .,
., .,
., .,
., .,
., ., .,
FROM INNER JOIN ON
. = .
WHERE ((.)=
[Forms]![]![].[Form]![]));
- λ . Select-SQL:
SELECT ., .
FROM ;
- . Select-SQL:
SELECT ., .
FROM ;
- (.3.6.5);
- ;
. - (.3.6.6);
, ( 10).
3.5.11
.3.5.11. / , , .
:
SELECT .,
., .,
., .[ ]
FROM INNER JOIN ( INNER JOIN ON . = .) ON . = .
WHERE (((.)=
[Forms]![]![].[Form]![]));
- ;
, ( 11).
3.6
3.6.1
.3.6.1. :
SELECT ., .,
., .,
., .,
., .,
.
FROM
WHERE (((Year([].[]))=[ ]));
3.6.2
.3.6.2. :
SELECT .,
.[ ], ., ., ., ., .,
., .,
., .,
., .
FROM ( INNER JOIN ON
. = .)
LEFT JOIN ON . = .
WHERE (((.)=[ ]))
ORDER BY .;
3.6.3 /
.3.6.3. :
SELECT .Name, ., ., .,
., ., ., .
FROM INNER JOIN ( RIGHT JOIN ( RIGHT JOIN ON . = .) ON . = .) ON . = .
WHERE (((Year([].[]))=[ ]));
3.6.4 RUS ENG
. .3.6.4 () . 3.6.4 ().
RUS/ENG:
SELECT ., ., .,
., .,
.Email, .FIO, .Doljnost
FROM
WHERE (((.)=[Forms]![]![]));
3.6.5
. .3.6.5.
:
SELECT .,
.,
.,
.,
.,
.[ ],
.,
., .,
.
FROM ( INNER JOIN ON
. = .)
INNER JOIN ON
. = .
WHERE (((.)=[Forms]![]![]));
-.
3.6.6
. .3.6.6.
.
-.
3.7
, - , , . , , , .
, :
- , , .. . ;
- , , ;
- , , . . .
. , . , . , , .
.
4.
Market, (.3.5.1). : , , /, , . ( ) .
, (.3.5.2) . . (.3.6.1). PageUp PageDown. , , . (.3.5.3) . , . , . , . , , , .
, (.3.5.4) . . : , , , .
(.3.6.2). , , . (.3.5.5) . , , : (.3.5.6) (.3.5.7.). , ( ). , . , . , .
/, / (.3.5.8) . , , . , : . / (.3.6.3). / , .
, (.3.5.9) , , . , . , . , . (.3.5.10), , . . (.3.6.6), (.3.6.5), , . Microsoft Word. Ok, - Cancel. .
, , (RUS) (ENG). (RUS) RUS (.3.6.4 ()) , (ENG) ENG (.3.6.4 ()) . , , , . (.3.5.11), . , .
, .
, , , .
. - , : , , , .
Microsoft Access 2000 Microsoft Windows XP. -, ( ER- ), , . , , , , Market.mdb.
- . - (BMP Business Process Modeler), .
-, ER- (EntityRelationship, ER).
, , . , .
1.
:
Private Sub 5_Click()
On Error GoTo Err_ 5_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ""
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_ 5_Click:
Exit Sub
Err_ 5_Click:
MsgBox Err.Description
Resume Exit_ 5_Click
End Sub
:
Private Sub 3_Click()
On Error GoTo Err_ 3_Click
Dim stDocName As String
stDocName = ""
DoCmd.OpenReport stDocName, acPreview
Exit_ 3 _Click:
Exit Sub
Err_ 3 _Click:
MsgBox Err.Description
Resume Exit_ 3 _Click
End Sub
:
Private Sub 26_Click()
On Error GoTo Err_ 26_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ""
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_ 26_Click:
Exit Sub
Err_ 26_Click:
MsgBox Err.Description
Resume Exit_ 26_Click
End Sub
:
Private Sub 52_Click()
On Error GoTo Err_ 52_Click
Dim stDocName As String
stDocName = ""
DoCmd.OpenReport stDocName, acPreview
Exit_ 52_Click:
Exit Sub
Err_ 52_Click:
MsgBox Err.Description
Resume Exit_ 52_Click
End Sub
/:
Private Sub 36_Click()
On Error GoTo Err_ 36_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ""
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_ 36_Click:
Exit Sub
Err_ 36_Click:
MsgBox Err.Description
Resume Exit_36_Click
End Sub
/:
Private Sub 54_Click()
On Error GoTo Err_ 54_Click
Dim stDocName As String
stDocName = ""
DoCmd.OpenReport stDocName, acPreview
Exit_ 54_Click:
Exit Sub
Err_ 54_Click:
MsgBox Err.Description
Resume Exit_ 54_Click
End Sub
:
Private Sub 43_Click()
On Error GoTo Err_ 43_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ""
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_ 43_Click:
Exit Sub
Err_ 43_Click:
MsgBox Err.Description
Resume Exit_ 43_Click
End Sub
:
Private Sub 47_Click()
On Error GoTo Err_ 47_Click
DoCmd.Quit
Exit_ 47_Click:
Exit Sub
Err_ 47_Click:
MsgBox Err.Description
Resume Exit_ 47_Click
End Sub
2.
:
Private Sub 11_Click()
On Error GoTo Err_11_Click
Dim stDocName As String
stDocName = ""
DoCmd.OpenReport stDocName, acPreview
Exit_11_Click:
Exit Sub
Err_11_Click:
MsgBox Err.Description
Resume Exit_11_Click
End Sub
:
Private Sub _Click()
On Error GoTo Err__Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ""
stLinkCriteria = "[]=" & Me![]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit__Click:
Exit Sub
Err__Click:
MsgBox Err.Description
Resume Exit__Click
End Sub
:
Private Sub 7_Change()
Dim rst As DAO.Recordset, frm As Form, s As String
On Error GoTo 999
Set frm = Me..Form
Set rst = frm.RecordsetClone
rst.FindFirst "([] Like '" & Me.7.Text & "*')=True"
If rst.NoMatch = False Then
frm.Bookmark = rst.Bookmark
End If
Exit Sub
999: MsgBox " !"
End Sub
:
Private Sub 17_Click()
On Error GoTo Err_17_Click
DoCmd.Close
Exit_17_Click:
Exit Sub
Err_17_Click:
MsgBox Err.Description
Resume Exit_17_Click
End Sub
3.
:
Private Sub 2_Click()
On Error GoTo Err_2_Click
DoCmd.Close
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ""
DoCmd.Close , , acForm
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_2_Click:
Exit Sub
Err_2_Click:
MsgBox Err.Description
Resume Exit_2_Click
End Sub
:
Private Sub 3_Click()
On Error GoTo Err_3_Click
DoCmd.GoToRecord , , acNewRec
Exit_3_Click:
Exit Sub
Err_3_Click:
MsgBox Err.Description
Resume Exit_3_Click
End Sub
:
Private Sub 69_Click()
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.Close
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ""
DoCmd.Close , , acForm
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub
4.
:
Private Sub 11_Click()
On Error GoTo Err_11_Click
Dim stDocName As String
stDocName = ""
DoCmd.OpenReport stDocName, acPreview
Exit_11_Click:
Exit Sub
Err_11_Click:
MsgBox Err.Description
Resume Exit_11_Click
End Sub
:
Private Sub _Click()
On Error GoTo Err__Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ""
stLinkCriteria = "[]=" & Me![]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit__Click:
Exit Sub
Err__Click:
MsgBox Err.Description
Resume Exit__Click
End Sub
:
Private Sub 7_Change()
Dim rst As DAO.Recordset, frm As Form, s As String
On Error GoTo 999
Set frm = Me..Form
Set rst = frm.RecordsetClone
rst.FindFirst "([] Like '" & Me.7.Text & "*')=True"
If rst.NoMatch = False Then
frm.Bookmark = rst.Bookmark
End If
Exit Sub
999: MsgBox " !"
End Sub
:
Private Sub _AfterUpdate()
Me..Requery
End Sub
:
Private Sub 17_Click()
On Error GoTo Err_17_Click
DoCmd.Close
Exit_17_Click:
Exit Sub
Err_17_Click:
MsgBox Err.Description
Resume Exit_17_Click
End Sub
5.
:
Private Sub 2_Click()
On Error GoTo Err_2_Click
DoCmd.Close
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ""
DoCmd.Close , , acForm
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_2_Click:
Exit Sub
Err_2_Click:
MsgBox Err.Description
Resume Exit_2_Click
End Sub
:
Private Sub 17_Click()
On Error GoTo Err_17_Click
DoCmd.GoToRecord , , acNewRec
Exit_17_Click:
Exit Sub
Err_17_Click:
MsgBox Err.Description
Resume Exit_17_Click
End Sub
:
Private Sub 69_Click()
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.Close
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ""
DoCmd.Close , , acForm
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub
:
Private Sub 49_Click()
On Error GoTo Err_49_Click
Dim stDocName As String
Dim stLinkCriteria As String
If IsNull(Me![]) Then
MsgBox " !"
Else
stDocName = ""
stLinkCriteria = "[]=" & Me![]
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
Exit_49_Click:
Exit Sub
Err_49_Click:
MsgBox Err.Description
Resume Exit_49_Click
End Sub
:
Private Sub 57_Click()
On Error GoTo Err_57_Click
Dim stDocName As String
Dim stLinkCriteria As String
If IsNull(Me![]) Then
MsgBox " !"
Else
stDocName = ""
stLinkCriteria = "[]=" & Me![]
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
Exit_57_Click:
Exit Sub
Err_57_Click:
MsgBox Err.Description
Resume Exit_57_Click
End Sub
6.
:
Private Sub 15_Click()
On Error GoTo Err_15_Click
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.Close
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ""
DoCmd.Close , , acForm
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_15_Click:
Exit Sub
Err_15_Click:
MsgBox Err.Description
Resume Exit_15_Click
End Sub
7.
:
Private Sub 12_Click()
On Error GoTo Err_12_Click
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.Close
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ""
DoCmd.Close , , acForm
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_12_Click:
Exit Sub
Err_12_Click:
MsgBox Err.Description
Resume Exit_12_Click
End Sub
8. /
:
Private Sub 11_Click()
On Error GoTo Err_11_Click
Dim stDocName As String
stDocName = ""
DoCmd.OpenReport stDocName, acPreview
Exit_11_Click:
Exit Sub
Err_11_Click:
MsgBox Err.Description
Resume Exit_11_Click
End Sub
:
Private Sub 7_Change()
Dim rst As DAO.Recordset, frm As Form, s As String
On Error GoTo 999
Set frm = Me..Form
Set rst = frm.RecordsetClone
rst.FindFirst "([Name] Like '" & Me.7.Text & "*')=True"
If rst.NoMatch = False Then
frm.Bookmark = rst.Bookmark
End If
Exit Sub
999:MsgBox " !"
End Sub
:
Private Sub _AfterUpdate()
Me..Requery
End Sub
:
Private Sub 17_Click()
On Error GoTo Err_17_Click
DoCmd.Close
Exit_17_Click:
Exit Sub
Err_17_Click:
MsgBox Err.Description
Resume Exit_17_Click
End Sub
9.
(RUS):
Private Sub 40_Click()
On Error GoTo Err_40_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "RUS"
DoCmd.OpenReport stDocName, acViewPreview
Exit_40_Click:
Exit Sub
Err_40_Click:
MsgBox Err.Description
Resume Exit_40_Click
End Sub
(ENG):
Private Sub 47_Click()
On Error GoTo Err_47_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "ENG"
DoCmd.OpenReport stDocName, acViewPreview
Exit_47_Click:
Exit Sub
Err_47_Click:
MsgBox Err.Description
Resume Exit_47_Click
End Sub
:
Private Sub _AfterUpdate()
Me..Requery
Me..Requery
Me.Sotrudnik.Requery
End Sub
Private Sub _DblClick(Cancel As Integer)
On Error GoTo Err_5_Click
Dim stDocName As String
Dim stLinkCriteria As String
If IsNull(Me![]) Then
MsgBox " !"
Else
stDocName = "Sotrudnik"
stLinkCriteria = "[]=" & Me![]
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
Exit_5_Click:
Exit Sub
Err_5_Click:
MsgBox Err.Description
Resume Exit_5_Click
End Sub
:
Private Sub 16_Click()
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.Close
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ""
DoCmd.Close , , acForm
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub
:
Private Sub _GotFocus()
If IsNull(Me![]) Then
MsgBox " !"
Else
End If
End Sub
Private Sub _DblClick(Cancel As Integer)
On Error GoTo Err__Click
Dim stDocName As String
Dim stLinkCriteria As String
If IsNull(Me![]) Then
MsgBox " !"
Else
stDocName = ""
stLinkCriteria = "[]=" & Me![]
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
Exit__Click:
Exit Sub
Err__Click:
MsgBox Err.Description
Resume Exit__Click
End Sub
:
Private Sub _GotFocus()
If IsNull(Me![]) Then
MsgBox " !"
Else
End If
End Sub
Private Sub _DblClick(Cancel As Integer)
On Error GoTo Err__Click
Dim stDocName As String
Dim stLinkCriteria As String
If IsNull(Me![]) Then
MsgBox " !"
Else
stDocName = ""
stLinkCriteria = "[]=" & Me![]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
Exit__Click:
Exit Sub
Err__Click:
MsgBox Err.Description
Resume Exit__Click
End Sub
:
Private Sub 17_Click()
On Error GoTo Err_17_Click
DoCmd.Close
Exit_17_Click:
Exit Sub
Err_17_Click:
MsgBox Err.Description
Resume Exit_17_Click
End Sub
10.
. :
Private Sub 19_Click()
On Error GoTo Err_19_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ""
DoCmd.OpenReport stDocName, acViewPreview
On Error Resume Next
Dim fn As String
fn = InputBox(" ", " MS Word")
If fn <> "" Then
fn = fn + ".rtf"
DoCmd.OutputTo acOutputReport, "", acFormatRTF, fn, False
End If
Exit_19_Click:
Exit Sub
Err_19_Click:
MsgBox Err.Description
Resume Exit_19_Click
End Sub
:
Private Sub 20_Click()
On Error GoTo Err_20_Click
Dim stDocName As String
Dim stLinkCriteria As String
If IsNull(Me![]) Then
MsgBox " !"
Else
stDocName = ""
DoCmd.OpenReport stDocName, acViewPreview
On Error Resume Next
Dim fn As String
fn = InputBox(" ", " MS Word")
If fn <> "" Then
fn = fn + ".rtf"
DoCmd.OutputTo acOutputReport, "", acFormatRTF, fn, False
End If
End If
Exit_20_Click:
Exit Sub
Err_20_Click:
MsgBox Err.Description
Resume Exit_20_Click
End Sub
11.
:
Private Sub 12_Click()
On Error GoTo Err_12_Click
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.Close
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ""
DoCmd.Close , , acForm
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_12_Click:
Exit Sub
Err_12_Click:
MsgBox Err.Description
Resume Exit_12_Click
End Sub
, , ,
Copyright (c) 2024 Stud-Baza.ru , , , .