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