, Yes, .
. . , . , . , . .
, .
Access, , , , , .
, .
, .
Visual Basic
Access , , Visual Basic.
. , , , : . , . , . (). , , .
1. .
2. // . .
3. . , :
Option Compare Database Option Explicit
-----------------------------------------------------------------------------
()_Click()
-----------------------------------------------------------------------------
Private Sub ()_lick()
On Error GoTo ()_lick_Err
Beep MsgBox " ", vbOKOnly, ""
()_lick_Exit:
Exit Sub
()_lick_Err:
MsgBox Error$
Resume ()_lick_Exit
End Sub
, , , . .
|
|
Access , . Access , Access, , FoxPro Paradox, , Excel Lotus 1-2-3, , HTML, .
, , . , . .
/ / Access. ODBC Databases, ODBC.
, DSN. , , .
SQL- , , . , Access.
/ , .. , , , , , .
SQL- Access. , .
Access
Access Visual Basic for Applications (Visual Basic - VBA) SQL. VBA Visual Basic, , , . , VBA , . Access , , , , . , , .
. , , , . , .
|
|
, , ; . . .
Visual Basic , . , . , , , . Access , , .
Access. : . , . , , , . , , . .
Access , . , . , , , , , . . . , . , , , . ,
, , , , , . , , , . . ( Access) , , , . , , ; , .
, , . , .
, . , . - , - . , , . .
|
|
Microsoft Access . , . .
, . , , . . .
Visual Basic . Access, , .mde, Visual Basic, , .
. .mdb (.mda .mde), , . . . , .
Microsoft Access Visual Basic , , .mde. Visual Basic . , , .
:
1. .
2. , .
3. , (*.mdb, *.mda, *.mde) .
4. . , .
5. .
Access , , . , , , Private.
Access Access. , Microsoft Access, Access.
Microsoft Access , , Access . Windows RefLibPaths, . , , . RefLibPaths Windows \HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\8.0\Access.
|
|
. , Access. :
1. . .
2. .
3. .
. , .
. , Visual Basic. , Visual Basic , . .
. , ( ) Visual Basic . , , , . , , .
Access . : , . , : , Sub Function Property.
. Visual Basic ( ) , . , Visual Basic.
, .
1. 55534 .
2. 1023 .
3. 255 .
. , (, ). , , .
, 25 .
. , . , (:). , , .
. ( Visual Basic (') Rem). Visual Basic . , , , .
. , .
Visual Basic. Visual Basic ( Sub Function, , . .). :
;
, (.), (!) ( , );
255 . , , 54 . , , (.), (!), (') ([ ]);
|
|
( ). , , ;
, , , Visual Basic.
, (, ), [ ].
, . Visual Basic , Visual Basic.
, Visual Basic .
. Visual Basic , , , . , , . , . Visual Basic, , .
, , . , , , , . . .
, , , . , , , . Visual Basic , .
Visual Basic. , Visual Basic Variant. , .
. , , , .
. Visual Basic Sub () Function (). . , , - , . , Sub- , . , , .
. ( ) , , . , , ( ), .
, . Dim ( Dimension ):
Dim _ [As ]
, . , , :
Dim Fakt_cena As Currency, Fakt_kol As Integer
, Dim , . , . , , . , .
, .
As Dim . , .
:
(, , ), , ;
Public ;
Static .
. . , TempVal :
Function TestFunc(num)
TempVal = Abs(num)
TestFunc = Sqr(TempVal)
End Function
, Visual Basic , , . , , , . , , :
Function TestFunc(num)
TempVal = Abs(num)
TestFunc = Sqr(TemVal)
End Function
, . TempVal , . Visual Basic , , . , .
. , , Visual Basic , , .
, :
Option Explicit
, . Visual Basic Option Explicit , , . , Option Explicit .
, TestFunc, Visual Basic TempVal TemVal . TempVal :
Function TestFunc(num)
Dim TempVal
TempVal = Abs(num)
TestFunc = Sqr(TemVal)
End Function
, Visual Basic TemVal. Option Explicit , .
Option Explicit ; .
, , . , , , , .
. , , . , . :