Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Kliknite na " Databázové nástroje " , potom " Visual Basic " pre otvorenie aplikácie Microsoft Visual Basic Editor . . Kliknite na menu " Vložiť " , potom " modul " pre pridanie nového kódu modulu
2
Vytvoriť nový čiastkové postup :
Private Sub createErrorMessage ( )
On Error GoTo Err_createErrorMessage :
3
Vytvorte reťazcové premenné , ktoré budete používať , aby generovať chybu :
Dim MYDATA As String
MYDATA = " 1234567 "
4
Pridajte nasledujúci kód vygeneruje chybu , pridaním " 1 " k dĺžke majetku funkcie " Left " :
MYDATA = ľavý ( 0 , -1 )
5
Zadajte nasledujúci kód zachytiť chybu a vytvoriť chybové hlásenie informujúca užívateľa o chybe :
Exit_createErrorMessage :
Exit Sub
Err_createErrorMessage :
MsgBox " Chyba : . dĺžka musí byť väčšia ako nula " , vbCritical
End Sub
6
Stlačte " F5 " spustiť procedúru Sub a zobraziť odpoveď .