, Access . ,
. . , Visual Basic , .
.
■ . , . . ( , Visual Basic , , .)
■ . , . , : Order Order_Subform. Order_Subform Order , Order. - Order_Subform, Order .
, , . Visual Basic . .
, , . , , . , , . , .
, . , . , , , , . , - , , . . .
, , Access , . Access , . , .
.
|
|
1. , .
, Sub Function. , .
2. (. 17.4). Access .
. , , . .
. 17.4. . , . () ValidateCard
, .
3. .
. , .
Access , (break mode). .
.
. , , . <F8>. ( ), (. 17.5).
, , <F8> .
. ValidateCard, , , Access , .
. 17.5. ValidationCard. , , <F8> . For/Next ()
. Stop () ( ) Visual Basic .
. , . , , Access . , , , "This action will reset your project" (" "). , Access , Stop () Visual Basic.
, . - (. 17.6).
|
|
. 17.6. CurrentNumber, , 4. , . <F8> ,
■ . , <F5> ( Play () Visual Basic). Access ( , ).
. , . , , <F5> .
Visual Basic . , , .
. , , -, . , , - ValidateCard , !
, - , . ( ). , .
. , . , , , .
, Access , , , . , , , , , . , , , , .
. Visual Basic , Access , . On Error.
On Error . Access , , :
On Error Resume Next
. , . , .
Access . .
On Error Goto ErrorHandlingCode
Access , ErrorHandlingCode, - . , (:), , :
|
|
ErrorHandlingCode:
' , Access
, , ValidateCard:
Function ValidateCard(CardNumber As String)
On Error Goto ErrorHandlingCode
' ,
Exit Function
ErrorHandlingCode:
MsgBox "Oops. Did your credit card number have letters?"
ValidateCard = False
End Function
. -, On Error c , , . -, , , , Exit Function. Access , . , , , . . Exit Sub Exit Function, .
, , AddCreditCard, , , , , . , ValidateCard (On Update), . (On Update) . , .
. Access :
On Error Goto 0
, . , .