Fungsi CVErr di MS Access

Di Access, fungsi CVErr digunakan untuk menampilkan pesan kesalahan yang dibuat oleh pemrogram.

Sintaks penulisan CVErr adalah sebagai berikut:

CVErr (ErrorNumber)

Keterangan:

ErrorNumber (Nomor Kesalahan): wajib diisi, merupakan nomor kesalahan yang ada dalam VBA, bisa dibuat sendiri.

Dengan fungsi CVErr, kita dapat membuat jenis kesalahan sesuai dengan keinginan. Sebagai contoh, misalkan kita ingin menguji apakah sebuah variabel mempunyai tipe data numerik, seperti pada fungsi TestAngka di bawah:

Function TestAngka(SembarangAngka)
 If IsNumeric(SembarangAngka) Then
  TestAngka = SembarangAngka    ' bila hasilnya angka.
 Else
  TestAngka = CVErr(12010)    ' bila hasilnya bukan angka 
 End If  
End Function

Bila variabel SembarangAngka di atas mempunyai tipe data angka, maka fungsi akan menampilkan SembarangAngka. Tetapi, jika SembarangAngka diisi dengan string atau teks, maka fungsi TestAngka akan menampilkan pesan kesalahan nomor 12010. Bila TestAngka dijalankan di Immediate Window:

? TestAngka("11")
11
? TestAngka(21)
 21 
? Cint (TestAngka("11"))
 11 
? TestAngka("aa")
Error 12010
? Cint(TestAngka("aa"))
 12010

Pada contoh terakhir, dengan mengkonversi nilai fungsi TestAngka melalui fungsi CInt, kita memperoleh nilai 12010. Nilai ini bisa kita jadikan sebagai rujukan atas pesan kesalahan, misalnya 12010 adalah pesan kesalahan bahwa "nilai aa tidak bertipe data Numerik".

Dengan cara sederhana di atas, kita bisa membuat berbagai macam nomor kesalahan yang diinginkan di mana nomor kesalahan ini tidak termasuk sebagai nomor kesalahan yang built-in di VBA.