Private Sub listX_Click()
txtKord.Text = listX.List(listX.ListIndex) End Sub Coba pake sitaks seperti diatas mungkin bisa membantu...sintaks diatas pernah saya coba yaitu semua data yang masuk dilist box akan masuk ke text box tapi kelemahannya harus diklik...... semoga membantu ----- Original Message ---- From: D.N.Adam <[EMAIL PROTECTED]> To: [email protected] Sent: Tuesday, July 24, 2007 10:09:28 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 <!-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a { text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc { background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;} #ygrp-sponsor .ad a{ text-decoration:none;} #ygrp-sponsor .ad a:hover{ text-decoration:underline;} #ygrp-sponsor .ad p{ margin:0;} o {font-size:0;} .MsoNormal { margin:0 0 0 0;} #ygrp-text tt{ font-size:120%;} blockquote{margin:0 0 0 4px;} .replbq {margin:4;} --> ____________________________________________________________________________________ Sick sense of humor? Visit Yahoo! TV's Comedy with an Edge to see what's on, when. http://tv.yahoo.com/collections/222 [Non-text portions of this message have been removed]
