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