"On Error ..." untuk menangani Debug

Baca Juga

Pusing juga ya bikin program kok Debag-debug terus. Bagi yang sudah pengalaman dengan VB6 tentunya akan mudah memecahkan masalah error tersebut. Bagi yang belum dan tidak mau ambil pusing sebaiknya baca tulisan ini sampai selesai.

Terkadang code yang telah kita yakini akan kebenarannya (-maksudnya lancar ketika program dijalankan-), e ... ternyata tanpa diduga error karena suatu kondisi yang tidak kita ketahui sebelumnya, misalnya mengurangkan dua buah nilai yang bukan angka maka akan ada pesan error "Type mismatch", dll.

Ada berbagai macam solusi untuk memecahkan masalah seperti diatas, diantaranya mengubah code, dengan lebih banyak melakukan pencegahan error dengan code-code kondisi (seperti if ... else ...end if), bagi yang belum paham betul dengan code-code vb6 tentu justru akan sangat membingungkan dan njelimet.

Nah, saya ada code sederhana, yang bisa ditambahkan dalam code anda yang rawan debug itu.

Menggunakan On Error resume Next, 
Penulisan code-nya sebagai berikut :

Private Sub Command1_Click()

     On Error Resume Next ' code ini akan berfungsi untuk mengabaikan error yang terjadi dalam sub command1 ini
     Baris code selanjutnya disini
End Sub

Menggunakan On Error Goto ... plus pesan untuk peringatan error, 
Penulisan code-nya sebagai berikut :

Private Sub Command2_Click()

  On Error Goto 1 'jika terjadi error program akan langsung menuju 1 :
  Baris code disini

  1   : ' bisa diganti dengan kata-kata sendiri plus tanda : (titik dua)

  If  Err.number <> 0 Then 

       MsgBox Err.Description 'Pesan Error akan muncul

  End if
End Sub

Selamat Mencoba! Jika terjadi masalah silakan Sharing dengan meninggalkan comment dibawah tulisan ini.