access teki formu excele atmak istiyorum

1 2
07/08/2010, 11:57

derer

mrb arkadaşlar

accessde yapmuş olduğum ıpk formunu excele aktarmak ve orada grafik oluşturmak istiyorum yardımcı olurmusunuz örneklerinizi inceledim ama anlayamdım
07/08/2010, 13:08

C*e*l*o*y*c*e

sayın derer
parça kontrol kriteri isimli formunuzdaki komut48'in kodlarını
aşağıdaki gibi değiştirin,bu arada istediğiniz tablo veya sorğu adını yazarak excel'e atabilirsiniz,diğer grafik işi ise beni aşar onada bir hocamız yardımcı olacaktır,dediğim gibi siz benim gönderdiğim kodları kendinize göre dönüştürebilirsiniz.kolay gelsin

kod............
Private Sub Komut48_Click()
On Error GoTo Err_Komut48_Click
Dim Klasor
Klasor = CurrentProject.Path & "\" & "Amaç(EXCEL OLARAK YEDEK)-" & " " & Format(Date, "mm/dd/yy") & " " & Format(Time, "hh-mm-ss-AM/PM") & ".xls"
If MsgBox("Aktarma işlemi,programın bulunduğu yere kayıt olacak,oradan bulun,Verileri Excele aktarmak istiyor musunuz? ", 36, "EXCELE VERI AKTARIMI") = 6 Then
DoCmd.TransferSpreadsheet acExport, 8, "amaçç", Klasor, True, "Amaçlar"
DoCmd.TransferSpreadsheet acExport, 8, "içerik", Klasor, True, "İçerikler"

MsgBox "Dikkat programın bulunduğu yere Aktarma işlemi Tamamlandı", 0, "EXCELE VERI AKTARIMI"

Exit_Komut48_Click:
Exit Sub

Err_Komut48_Click:
MsgBox Err.Description
Resume Exit_Komut48_Click
End If
End Sub
07/08/2010, 13:32

derer

EXCELİ GÖSTERMİYOR NEREYE ATIYOR BİLGİLERİ Excel ACILMIYOR
07/08/2010, 13:34

ercansahin

Mdb nizin bulunduğu yere Amaç(EXCEL OLARAK YEDEK)- 08.07.10 01-39-30-PM şeklinde bir Excel dosyası olarak kaydediyor olması gerekli.
07/08/2010, 14:09

derer

bulamıyorum sizce nereye atmış olabilir birde dosyayı rar dan dizine cıkartmamıştım ondan yapabilirmi. sonuc için tşkler faka ben ıpk formu için istemiştim ezcele aktarmayı yinede sağolun
07/08/2010, 14:23

C*e*l*o*y*c*e

sayın derer
benim gönderdiğim PK isimli program örneğinizi masa üstüne çıkarın ve içindeki parça kontrol isimli formu açarak Excel işareti olan butona basın ve gelen komutları takip ederseniz excele atacaktır,ve masa üstüne Amaçç isimli bir Excel dosyası göreceksiniz ve bunu açıp inceleyin
yani sizin programın olduğu yere Excel dosyası olarak atıyorrr.
1 2