Error pada aplikasi memanglah sering kali terjadi karena kesalahan prosedur, atau juga karena input dari user. Untuk penanganan error dengan code coba dengan code penanganan error sbb:
On Local Error GoTo Result Dim x() As Boolean Dim y As Variant 'buat error y = x(10) Result: If Err.Number = 9 Then ' penanganan Else ' penanganan lainnya End If
Dengan menggunakan err.number, kita dapat memberikan solusi untuk masalah yang sedang terjadi.
Atau gunakan saja solusi alternatif seperti ini:
On error resume next 'Error Kill "c:\abcdredadnf.aaabbbccc"
Penanganan error dengan cara seperti atas membuat kita melangkahi error tampa perbaikan apapun (Diabaikan).
Selamat mencoba :)
