terima kasih atas tanggapannya....
dtload sudah saya dipanggil
alhamdulillah program bisa jalan..tapi muncul error yg lain sewaktu saya
memvariablekan field : " OBJECT INVALID OR NO LONGER SET"
With rsPO
.Index = "POICAO_NR"
.Seek "=", txtIcaoNR.Text
If .NoMatch Then
Unload FRMPostOffice
Exit Sub
End If
FRMPostOffice.txtIcao.Visible = False
FRMPostOffice.txtIcao1.Visible = True
FRMPostOffice.txtIcao1.TabIndex = 0
Vicao = !icao MUNCUL ERROR DISINI "OBJECT INVALID OR NO LONGER SET"
(Vicao sudah saya public di module " Public Vicao as String")
.........
....... dst
terima kasih
vank
Aksan Kurdin <[EMAIL PROTECTED]> wrote:
Apakah dtload sudah dipanggil sebelum form anda diload ? seharusnya kalau
sudah di panggil, dan tidak ada error yang terjadi, maka rstemp harus sudah
menunjuk obyek recordset untuk table temp.
Coba pasang error trap pada dtload agar ketahuan rstemp berhasil di set ke
recordset untuk table temp atau gagal.
Public Sub DtLoad()
On error goto errHandle
Set dbGen = WJet.OpenDatabase(vgen, False, False, ";pwd=default")
Set rsPO = dbGen.OpenRecordset("PO", dbOpenTable)
Set rsTemp = dbGen.OpenRecordset("TEMP", dbOpenTable)
Set rsSD = dbGen.OpenRecordset("DESCRIPTION", dbOpenTable)
Exit sub
errHandle:
msgbox err.description
End Sub
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED] On
Behalf Of Vank
Sent: Wednesday, April 20, 2005 1:45 PM
To: [email protected]
Subject: Re: [indoprog-vb] Re: Module
terima kasih atas tangapannya....
tapi kho gak bisa yach....
padahal saya sudah buat module sbb :
Public WJet As Workspace
Public dbGen As Database
Public rsPO As Recordset
Public rsTemp As Recordset
Public rsSD As Recordset
Public Sub DtLoad()
Set dbGen = WJet.OpenDatabase(vgen, False, False, ";pwd=default")
Set rsPO = dbGen.OpenRecordset("PO", dbOpenTable)
Set rsTemp = dbGen.OpenRecordset("TEMP", dbOpenTable)
Set rsSD = dbGen.OpenRecordset("DESCRIPTION", dbOpenTable)
End Sub
tapi waktu saya panggil di form_load() muncul error "object variable or with
block variable not set"
With rsTemp ...."muncul error disini"
While Not .EOF
.......
........
.MoveNext
Wend
End With
terima kasih
vank
Eko Heri Susanto <[EMAIL PROTECTED]> wrote:
> Bagaimana caranya jika data tsb. bisa digunakan di semua form
(module) ???
> (saya juga menggunakan index untuk seek data)
Coba deklarasi Dim anda rubah menjadi Public, contoh:
Public WJet As Workspace
Public dbGen As Database
Public rsPO As Recordset
Public rsTemp as Recordset
Public rsSD as Recordset
Untuk berhenti berlangganan kirim email kosong ke :
[EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
---------------------------------
Yahoo! Groups Links
To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
---------------------------------
Do you Yahoo!?
Plan great trips with Yahoo! Travel: Now over 17,000 guides!
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke :
[EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
Yahoo! Groups Links
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
---------------------------------
Yahoo! Groups Links
To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-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/
