Ini ada contoh dari help-nya MZTools: Private Sub Form_Load() 10 On Error GoTo Proc_error 20 Debug.Print 1 / 1 30 Debug.Print 1 / 0 40 Exit Sub
Proc_error: 50 MsgBox "Error " & Err.Description & " in line " & Erl & " of Form_Load" End Sub aksan kurdin 2005/10/6, Layong Lim <[EMAIL PROTECTED]>: > > > > 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 ------------------------ Yahoo! Groups Sponsor --------------------~--> Fair play? Video games influencing politics. Click and talk back! http://us.click.yahoo.com/T8sf5C/tzNLAA/TtwFAA/k7folB/TM --------------------------------------------------------------------~-> Untuk keluar dari millis ini, kirim email kosong ke: [EMAIL PROTECTED] Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/Programmer-VB/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
