untuk ListBOX harus di looping mas (seluruh isi Listboxnya) kira2 seperti ini :
For i = 0 To lst.ListCount - 1
If lst.Selected(i) = True Then
frmtujuan.textbox.text=lst.List(i)
End If
Next i
----- Original Message -----
From: D.N.Adam
To: [email protected]
Sent: Tuesday, July 24, 2007 10:09 AM
Subject: [indoprog-vb] Bgmana memindahkan isi di List ke TextBox...?
Teman-teman, saya ada kesulitan,bgmana memindahkan isi (=KodeGroup)
yang ada di List ke TextBox yang ada di Form Lain..? Nama
ListBoxtnya,yaitu : ListDataGroup yang berada di Form :
FrmListBoxGroup terus nantinya kalau di klik isi akan mengisi textbox
-> txtkdgrp.text yang berada di Form lain,yaitu : FrmListDataGroup.
Untuk scriptnya sbb :
Private Sub ListDataGroup_Click()
If DataGroup.Recordset.EOF Then
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 If
DataGroup.Recordset.Edit
End Sub
Hasil Run Muncul Pesan Kesalahan sbb:
Run-Time Error "3021"
No Current Record
[Non-text portions of this message have been removed]
