Re: [Programmer-VB] Error Handling..

Thu, 06 Oct 2005 21:47:33 -0700

handle:
msgbox err.Description & " Line: " & Erl
 
rgds
[wwn]
 
On 10/7/05, Layong Lim <[EMAIL PROTECTED]> wrote:

Hello Guys,

 

Private Sub SelesaiFreeAcc_Click()

On Error GoTo handle

1    With rsFreeAcc

2        If kdfree = 0 Then .AddNew

3        ![FCCHSNO] = Chasis.text

4        ![NamaAcc] = Nm_acc.text

è         5        ![HargaAc] = CLng(Hrg_acc.text)

6        .Update

7    End With

8    Set DG_Acc.DataSource = Nothing

9    Set DG_Acc.DataSource = rsFreeAcc

10    If rsFreeAcc.RecordCount <> 0 Then Setting_Datagrid DG_Acc

11    Nm_acc.text = ""

12    Hrg_acc.text = "0"

13    Nm_acc.Enabled = False

14    Hrg_acc.Enabled = False

15        Tambah_acc.Caption = "Tambah"

16        Tambah_AccTamb.SetFocus

    Exit Sub

handle :

    MsgBox (isinya apa yah?)

End Sub

 

Aku punya source code seperti diatas. Ada yang bisa Bantu nga yah cara perangkap kesalahannya gmn?

Aku kepengen keluar error : "(isi error") Line : 5"

 

Cara ngambil baris ke – 5 nya gmn yah?

 

Thks yah bantuannya.

 

Best Regards,

 

 

 

Layong Lim

PT. Indomobil Trada Nasional

 



Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke