Dear Agus,
 
Menurut aku salahnya ada pada baris ini,
  If Rec.RecordCount = 0 Then Exit Sub
 
kemungkinan besar object Rec belum dibentuk
seharusnya
set Rec = New AdoDB.Recordset
Rec.Open "select ...." , conn, 1,3
'Lebih baik gunakan baris dibawah ini
if not rs.eof then then exit sub
Lebih bgs lagi,
if not rs.eof then then goto ErrMsg
buat error handlingnya. eg. return nilai true/false or ....
 
dari pada baris :
If Rec.RecordCount = 0 Then Exit Sub
 
 
Regards,
Yulianto
KwetChiro
 
 
 


Heru Rahadyan <[EMAIL PROTECTED]> wrote:
sebelumnya mau tanya dulu?
saat muncul error kan VB secara otomatis mensorot baris perintah yg ada error-nya
itu dibaris yg mana?
 
apakah di baris if isnull(kode)= true then exit sub?
jk ya, mk mungkin "kode" nya yg belum terdefinisi
coba di cek dulu kapankah "kode" dideklarasikan?
apakah jk ada recordnya? jd jk data kosong mk tdk dideklarasikan?
 
atau dibaris yg lain?
coba dicek itunya dulu. jk datanya lengkap mungkin solusinya bisa lebih baik lagi
 
 
------------------------------------------------------
Heru Rahadyan
----------------------------------------------------------------------------------
isi imel ini bukanlah hal yang rahasia, boleh diperbanyak sebanyak apapun yang anda mau
pengirim tidak bertanggungjawab atas segala risiko yang muncul akibat perbanyakan isi imel
ini secara ilegal, termasuk virus - flu burung, polio, antrax dll- serta segala tetek bengek lainnya.
Isi dari email ini tidak bisa dipertanggungjawabkan kebenarannya.
Percaya atau tidak percaya atas email ini adalah tanggungjawab pembaca sendiri.
 

--- 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-
>


Yahoo! Photos – Showcase holiday pictures in hardcover
Photo Books. You design it and we’ll bind it!

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




Kirim email ke