.


:




:

































 

 

 

 





, 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

, . , .

 





:


: 2016-03-28; !; : 632 |


:

:

80% - .
==> ...

1526 - | 1370 -


© 2015-2024 lektsii.org - -

: 0.023 .