|
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. 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
YAHOO! GROUPS LINKS
|
- [Programmer-VB] Error Handling.. Layong Lim
- Re: [Programmer-VB] Error Handling.. Aksan Kurdin
- Re: [Programmer-VB] Error Handling.. Purwedi Kurniawan
- RE: [Programmer-VB] Error Handling.. Layong Lim
