15/06/2011, 13:56
Sitedeki uygulamalardan ve hocalardan destek alarak hazırladığım arayüzde Excel e yollamda sıkıntı çekiyorum.
Listeleme Bölümünde ;
DosyaninAdi = CurrentProject.Path & "\Rapor.xls"
If MsgBox("Verileri " & DosyaninAdi & " adlı Excel dosyasına aktarmak istiyor musunuz? ", 36, "EXCELE VERI AKTARIMI") = 6 Then
DoCmd.TransferSpreadsheet acExport, 8, "FrmBulAlt", DosyaninAdi, True
MsgBox "Dikkat Programın bulunduğu yere Aktarma işlemi Tamamlandı", 0, "EXCELE VERI AKTARIMI"
End If
Bölümde hata alıyorum.Buradaki " FrmBulAlt " yerine ne yazabilirim ?
Örnek ektedir
Şimdiden Teşk.
Listeleme Bölümünde ;
DosyaninAdi = CurrentProject.Path & "\Rapor.xls"
If MsgBox("Verileri " & DosyaninAdi & " adlı Excel dosyasına aktarmak istiyor musunuz? ", 36, "EXCELE VERI AKTARIMI") = 6 Then
DoCmd.TransferSpreadsheet acExport, 8, "FrmBulAlt", DosyaninAdi, True
MsgBox "Dikkat Programın bulunduğu yere Aktarma işlemi Tamamlandı", 0, "EXCELE VERI AKTARIMI"
End If
Bölümde hata alıyorum.Buradaki " FrmBulAlt " yerine ne yazabilirim ?
Örnek ektedir
Şimdiden Teşk.