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

Thu, 11 May 2006 20:33:50 -0700

jadi penasaran nech.......

aku juga soalnya make control array (textbox, label, checkbox) pada prinsip
nya hampir sama dengan mas thuryanto dan ga ada masalah........
skenario yg aku pake begitu form di load, aku bikin recordset data apa yg
mau di load........kalo data nya ada aku loop array object (textbox, label,
checkbox) sebanyak data yg ada (recordset)

sebelum nya aku nyedian (textbox, label, checkbox)  dengan index 0, jd kalo
ada data 6 aku loop sampai 6 kali index 1-6 dan kalo ada perubahan (user mau
cari data yg lain) aku unload index 1-6 jd index 0 selalu ada (cuma
visible)......


----- Original Message -----
From: "thuryanto" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Friday, May 12, 2006 10:13 AM
Subject: [Programmer-VB] Tanya Control array element '0' doesn't exist (+
script)


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




Yahoo! Groups Links










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