aku bingung, 'No Current Record' muncul karena 'If DataGroup.Recordset.EOF Then ..' karena posisi recordset berada pada eof .. kalo di panggil recordnya .. ya emang nggak ada
cmiiw On 24/07/07, D.N.Adam <[EMAIL PROTECTED]> wrote: > 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 > > > > 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 > > > >
