Applies ToAccess per Microsoft 365 Access 2021 Access 2019 Access 2016

Restituisce un valore Variant of subtype Error contenente un numero errore specificato dall'utente.

Sintassi

CVErr ( numeroerrore )

Il numero errore obbligatorioargomento è qualsiasi numero di errore valido.

Osservazioni

Utilizzare la funzione CVErr per creare errori definiti dall'utente nelle procedure create dall'utente. Ad esempio, se si crea una funzione che accetta diversi argomenti e in genere restituisce una stringa, è possibile fare in modo che la funzione valuti gli argomenti di input per assicurarsi che siano compresi nell'intervallo accettabile. In caso contrario, è probabile che la funzione non restituisca quello che ti aspetti. In questo caso , CVErr consente di restituire un numero di errore che indica l'azione da intraprendere.

Si noti che la conversione implicita di un errore non è consentita. Ad esempio, non è possibile assegnare direttamente il valore restituito da CVErr a un variabile che non è un valore Variant. Tuttavia, è possibile eseguire una conversione esplicita (usando CInt, CDbl e così via) del valore restituito da CVErr e assegnarla a una variabile del tipo di dati appropriato.

Esempio

Nota: Gli esempi seguenti illustrano l'uso di questa funzione in un modulo di Visual Basic, Applications Edition (VBA). Per altre informazioni sull'uso di VBA, selezionare Riferimenti per sviluppatori nell'elenco a discesa accanto a Cerca e immettere uno o più termini nella casella di ricerca.

Questo esempio usa la funzione CVErr per restituire un valore Variant il cui tipo di var è vbError (10). La funzione definita dall'utente CalculateDouble restituisce un errore se l'argomento passato non è un numero. È possibile usare CVErr per restituire gli errori definiti dall'utente dalle procedure definite dall'utente o rinviare la gestione di un errore di runtime. Usare la funzione IsError per verificare se il valore rappresenta un errore.

' Call CalculateDouble with an error-producing argument.Sub Test()    Debug.Print CalculateDouble("345.45robert")End Sub' Define CalculateDouble Function procedure.Function CalculateDouble(Number)    If IsNumeric(Number) Then        CalculateDouble = Number * 2    ' Return result.    Else        CalculateDouble = CVErr(2001)    ' Return a user-defined error     End If    ' number.End Function

Serve aiuto?

Vuoi altre opzioni?

Esplorare i vantaggi dell'abbonamento e i corsi di formazione, scoprire come proteggere il dispositivo e molto altro ancora.

Le community aiutano a porre e a rispondere alle domande, a fornire feedback e ad ascoltare gli esperti con approfondite conoscenze.