Object "Rec" belum dicreate kali.
coba pake Set rec = new adodb.recordset.
Biasanya object yang sudah dideklarasikan dengan
  dim rec as adodb.recordset
harus diset dengan
  set rec = new adodb.recordset

kalau gak, biasanya keluar pesan kaya gitu

Seno

--- August sudana <[EMAIL PROTECTED]> wrote:

> dear all..
> saya pnya scrip, dibwh ini
> 
> Private Sub LstVwData_Click()
>  If IsNull(Kode) = True Then Exit Sub
>  Kode =
>
LstVwData.ListItems.Item(LstVwData.SelectedItem.Index).Text
>  If Rec.RecordCount = 0 Then Exit Sub
>  With FrmItemInfo
>   .LblBarcode = Kode
>   .Show vbModal
>  End With
> End Sub
> 
> sewaktu listview saya klik dalam keadaan belum
> berisi
> data (kosong), muncul error "Object Variable or With
> block variable not set". saya cukup sering mendpt
> error spt ini.
> kira2, bagian mana yg salah..??
> 
> thanx for attention master-VB smua..
> 
> -agus-
> 
> __________________________________________________
> Do You Yahoo!?
> Tired of spam?  Yahoo! Mail has the best spam
> protection around 
> http://mail.yahoo.com 
> 


__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 


Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer
 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/Programmer-VB/

<*> To unsubscribe from this group, send an email to:
    [EMAIL PROTECTED]

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/
 


Kirim email ke