Teman-teman millist, saya minta bantuannya, begini saya ada buat
program dengan Visual Basic 6.0. dan 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
