Run-time error 424 Object required

Bu başlık kilitlidir. Yeni mesajlar gönderilemez veya mevcut mesajlar düzenlenemez.
ZoLTaN
14-07-2004, 00:09   |  #1  
OP Taze Üye
Teşekkür Sayısı: 0
4 mesaj
Kayıt Tarihi:Kayıt: Tem 2004

Merhabalar ben vb ile programlama konusunda çok çok yeniyim, ancak C/C++ la ilgilendigim icin syntaxine alışmam uzun sürmedi. Yalnız sürekli bi hata msgı ile karşılaşıyorum.
Amacım elimde bulunan bir access veri tabanından "doktor.mdb" içinde bulunan table ları excel dosyalarına cevirmek... yalnız bunu yaparken biyerlere tıklamak şistemiyorum. Yani dosya .exe ya da .vbs olmalı ki makineme scheduled task olarak atıyabiliyim...
Sizce hatam nerdedir ? DoCmd i yanlış mı kullanıyorum... çünkü hatayı o satırda gösteriyo... kodu kopyalıyorum:

Dim Db As Database

Private Sub Form_Load()

Set Db = OpenDatabase("C:\doktor.mdb")

    DoCmd.TransferSpreadsheet acExport, 8, "kurum", "C:\kurum.xls", True, ""
    DoCmd.TransferSpreadsheet acExport, 8, "Ankkurum", "C:\Ankkurum.xls", True, ""


End Sub

Private Sub Form_Unload(Cancel As Integer)
    Db.Close
End Sub

gencgiyen
04-08-2004, 00:00   |  #2  
Taze Üye
Teşekkür Sayısı: 0
10 mesaj
Kayıt Tarihi:Kayıt: Ağu 2004

Project menüsünden References e tıkla
Oradan 'Microsoft Access X.0 Object Library ' seçeneğini işaretle.

eklediysen sorun yok zaten
şimdi kodlarını aşağıdakiler gibi değiştir.

Dim Db As Access.Application

Private Sub Form_Load()

set db = new access.application

db.OpenCurrentDatabase "C:\doktor.mdb"

db.DoCmd.TransferSpreadsheet acExport, 8, "kurum", "C:\kurum.xls", True, ""
db.DoCmd.TransferSpreadsheet acExport, 8, "Ankkurum", "C:\Ankkurum.xls", True, ""


End Sub

Private Sub Form_Unload(Cancel As Integer)
db.CloseCurrentDatabase
set db = nothing
End Sub

Son Düzenleme: gencgiyen ~ 04 Ağustos 2004 00:07