Clicca su "Strumenti database", quindi "visual basic " per aprire l'editor di Microsoft Visual Basic . Fai clic sul menu "Inserisci" , poi "Modulo " per aggiungere un nuovo modulo di codice
2
Creare una nuova procedura secondaria : .
Private Sub createErrorMessage ( ) per
On Error GoTo Err_createErrorMessage :
3
Creare una variabile stringa che verrà utilizzato per generare un errore :
Dim myData As String
myData = " 1234567 "
4
Aggiungere il seguente codice per generare un errore con l'aggiunta di "-1 " per la proprietà length della funzione di " sinistra" :
myData = sinistra ( 0 , -1 ) economici 5
Digitare il seguente codice per catturare l'errore e creare un messaggio di errore che informa l'utente circa l'errore:
Exit_createErrorMessage :
Exit Sub
Err_createErrorMessage :
MsgBox "Errore : . lunghezza deve essere maggiore di zero " , vbCritical
End Sub
6
Premere " F5 " per eseguire la procedura sub e visualizzare la risposta .
Programmazione © www.354353.com