Coba membantu ya...
Begini, kalau menggunakan DBGrid tentu saja akan muncul datanya karena
DBGrid itu terkoneksi langsung dengan database atau paling tidak posisi
record sudah absolut, beda jika data itu ditampilakan terlebih dahulu ke
control listbox yang menggunakan looping While ... Wend pada kode anda,
sehingga posisi record sekarang adalah EOF. Nah posisi recordset tersebut
anda panggil untuk nemampilkan data di form FrmMasterGroupBrg yang
menimbulkan pesan error 'No Curent Record',
Untuk mengatasinya anda bisa ubah kode anda sebagai berikut:
Dim X as Integer
X = 0
While Not DataGroup.Recordset.EOF
Me.ListDataGroup.AddItem DataGroup.Recordset!Nama
Me.ListDataGroup.ItemData(X) = DataGroup.Recordset!KdGroup
DataGroup.Recordset.MoveNext
X = X + 1
Wend
Sedangkan untuk mengirim data ke form FrmMasterGroupBrg yang asalnya:
FrmInputPenjualan.txtkdbrg = DataGroup.Recordset!KdGroup
diganti menjadi :
FrmInputPenjualan.txtkdbrg = Me.ListDataGroup.ItemData(
Me.ListDataGroup.ListIndex)
Ok, mudah-mudahan mengatasi masalah anda.
Regard,
On 25/07/07, D.N.Adam <[EMAIL PROTECTED]> wrote:
>
> Teman-teman millist, saya minta bantuannya, begini saya mempunyai
> Tabel : GroupBrg yang didalamnya ada field : KDGroup & Nama. Saya sdh
> bisa menampilkan field Nama didalam komponen LISTBOX.Untuk script sbb :
>
> While Not DataGroup.Recordset.EOF
> Me.ListDataGroup.AddItem DataGroup.Recordset!Nama
> DataGroup.Recordset.MoveNext
> Wend
>
> Nah, sekarang yg saya ingin tanyakan, saya ingin memilih field KDGroup
> yang tidak tampil di LISTBOX untuk saya isikan ke txtkdgrp.text yang
> ada di : FrmMasterGroupBrg. Saya sdh mencoba menulis script program
> sbb untuk mengisi txtkdgrp.text yang ada di :form lain yaitu :
> FrmMasterGroupBrg.
>
> Script sbb :
> Private Sub ListDataGroup_Click()
> If FrmActive = 0 Then
> FrmMasterGroupBrg.txtkdgrp = DataGroup.Recordset!KdGroup
> Call FrmMasterGroupBrg.CariDataGroup
> FrmMDI.Enabled = True
> ElseIf FrmActive = 1 Then
> FrmInputPenjualan.txtkdbrg = DataGroup.Recordset!KdGroup
> Call FrmInputPenjualan.CariDataBrg
> End If
> Unload Me
> End Sub
>
> Tapi kalau di klik LISTBOX nya, dia tidak mau mengirim pilihan field
> KdGroup yang ada didalam script diatas dan muncul pesan sbb :
>
> RunTime Error "3021"
> No Current Record
>
> Tapi script/perintah diatas kalau ditaruh di DBGrid berhasil
> dijalankan dan akan mengisi/mengirim field KdGroup ke txtkdgrp.text
> Apakah script diatas tdk bisa dijalan di LISTBOX..?
> Mohon bantuan Mas Didik, mungkin ada trik untuk bisa memilih field
> KDGroup yang tidak tampil di LISTBOX
?Thank
>
> Adam
>
>
>
>
> Untuk berhenti berlangganan kirim email kosong ke :
> [EMAIL PROTECTED]
>
> Bagi terjangkit virus lokal, zip virus tersebut
> dan kirim ke [EMAIL PROTECTED], kami
> akan membuat removalnya untuk anda.
> Yahoo! Groups Links
>
>
>
>
--
Best Regard,
[zZzz]
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Bagi terjangkit virus lokal, zip virus tersebut
dan kirim ke [EMAIL PROTECTED], kami
akan membuat removalnya untuk anda.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/indoprog-vb/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> 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/
