RE: [Programmer-VB] Error Handling..

Layong Lim Thu, 06 Oct 2005 21:56:12 -0700

Thks yah.

Best Regards,

Layong Lim

PT. Indomobil Trada Nasional

Jl. M.T Haryono Kav. 9

WIM II Lantai 3

x [EMAIL PROTECTED]

' 021-8569117 Ext : 1302

' 0815-8800-705

' 021-8564864 (Fax)

-----Original Message-----
From: [email protected] [mailto:[email protected]] On Behalf Of Purwedi Kurniawan
Sent: Friday, October 07, 2005 11:48 AM
To: [email protected]
Subject: Re: [Programmer-VB] Error Handling..

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]

YAHOO! GROUPS LINKS

Visit your group "Programmer-VB" on the web.
To unsubscribe from this group, send an email to: [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.

RE: [Programmer-VB] Error Handling..

Kirim email ke