[Programmer-VB] Tanya Control array element '0' doesn't exist (+ script)

Thu, 11 May 2006 20:13:24 -0700

Mas Purwedi K. & Herianto,

Saya buat Textbox yang ber-array, jadi setiap form yang kita panggil,
secara otomatis Textbox tersebut sudah terdefinisi, masalahnya kalau
kita masuk lagi ke form yang sudah kita pernah panggil, kadang-2
normal (gak ada masalah), tapi kadang-2 muncul pesan error
saya coba beri perintah on error resume next, program gak error, tapi
kadang txtdata(0)-nya kosong, sedang yang lain tidak.

mohon bantuannya.

terima kasih.

script-nya :

Private Sub Form_Activate()
     mSQL = "select * from fStok"
     Set rsData = con.Execute(mSQL)
     IsiKeMemori
End Sub

Public Sub IsiKeMemori()
    'On Error Resume Next

        TxtData(0).Text = IIf(IsNull(rsData.Fields("kd_stok")), "",
Trim(rsData.Fields("kd_stok")))
        TxtData(1).Text = IIf(IsNull(rsData.Fields("nama_brg")), "",
Trim(rsData.Fields("nama_brg")))
        TxtData(2).Text = IIf(IsNull(rsData.Fields("satuan")), "",
Trim(rsData.Fields("satuan")))
        TxtData(3).Text = IIf(IsNull(rsData.Fields
("hrg_beli")), "0.00", Format$(rsData.Fields("hrg_beli"), "#,##0.00"))
        TxtData(4).Text = IIf(IsNull(rsData.Fields
("hrg_jual")), "0.00", Format$(rsData.Fields("hrg_jual"), "#,##0.00"))
        TxtData(5).Text = IIf(IsNull(rsData.Fields
("stk_awal")), "0.00", Format$(rsData.Fields("stk_awal"), "#,##0.00"))
        TxtData(6).Text = IIf(IsNull(rsData.Fields
("stk_min")), "0.00", Format$(rsData.Fields("stk_min"), "#,##0.00"))
        TxtData(7).Text = IIf(IsNull(rsData.Fields
("per_satuan")), "", Format$(rsData.Fields("per_satuan"), "#,##0.00"))
        TxtData(8).Text = IIf(IsNull(rsData.Fields
("stk_akhir")), "0.00", Format$(rsData.Fields
("stk_akhir"), "#,##0.00"))       
End Sub



--- In [email protected], "Purwedi Kurniawan"
<[EMAIL PROTECTED]> wrote:
>
> kemungkinan besar kita ada memanggil control array dg index 0 dari
kode,
> padahal di UI form nya sendiri, control array dg index 0 itu sudah
ga ada
> (dihapus dll). coba cek lagi semua control array yg ada di form,
ada ga yg
> mempunyai index 0?
>
> best regards
> [wwn]
>
> On 5/11/06, Herianto <[EMAIL PROTECTED]> wrote:
> >
> > Mas, Akan lebih gampang nyari errornya kalau anda sertakan
formnya atau
> > hanya procedure dimana error terjadi...
> >
> >
> > ----- Original Message -----
> > From: "thuryanto" <[EMAIL PROTECTED]>
> > To: <[email protected]>
> > Sent: Thursday, May 11, 2006 10:53 AM
> > Subject: [Programmer-VB] Tanya Control array element '0' doesn't
exist
> >
> >
> > > mohon bantuan dari teman-teman semua,
> > >
> > > saya membuat program dengan beberapa form yang dikaitkan dengan
> > > MDIform, di dalam form, saya buat textbox bertipe array, kadang-
> > > kadang kalo masuk lagi ke form yang sudah pernah dipanggil
muncul
> > > pesan
> > >
> > > Run-time error '340':
> > > Control array element '0' doesn't exist
> > >
> > > yang menunjuk ke textbox, padahal didalam form tersebut sudah
ada
> > > textboxnya sudah bertipe array,
> > >
> > > mohon penjelasan dan pencerahannya
> > >
> > > terima kasih.
> > >
>







Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer



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

YAHOO! GROUPS LINKS



Kirim email ke