access te form daki verileri excel veya word olarak nasıl aktarılır

[selcukkahya]

Arkadaşlar Merhaba

Form üzerinde araştırma yaptım fakat sadece form üzerinde gözüken verileri word veya excel olarak aktaramadım.

Bilen arkadaşlar lütfen yardımcı olabilirseniz sevinirim.

Çok teşekkürler hepinize şimdiden.

Kolay gelsin.

 

[gitarisyen]

Sayın selcukkahya;

Ben en basit şekliyle hem excel hem de worde veri aktarmayı göstermesi bakımından bir örnek dosya ekledim ve basit kodları yerleştirdim.

Önce Tbl_Ogrenciler adında bir tablo, Frm_Ogrenciler adında bir form ve Srg_ErkekleriSorgula ve Srg_KizlarıSorgula adında iki sorgu oluşturdum.

Excel'e veri aktarmak için form üzerinde bir buton oluşturdum ve bu butonun "tıklatıldığında" olay yordamına şu kodları yazdım:

Private Sub Komut10_Click()
On Error GoTo Komut10_Click_Err

    DoCmd.OutputTo acTable, "Tbl_Ogrenciler", "MicrosoftExcel(*.xls)", "", False, "", 0


Komut10_Click_Exit:
    Exit Sub

Komut10_Click_Err:
    MsgBox Error$
    Resume Komut10_Click_Exit

End Sub

Burada tablo verileri excel çıktısı olarak bilgisayarımıza kaydedilmekte.


Eğer excele sorgudan veri vereceksek

DoCmd.OutputTo acQuery, "Srg_ErkekleriSorgula", "MicrosoftExcel(*.xls)", "", False, "", 0

formdan veri vereceksek

DoCmd.OutputTo acForm, "Frm_Ogrenciler", "MicrosoftExcel(*.xls)", "", False, "", 0

yazabiliriz.

Yine worde veri aktarmak için de form üzerinde bir buton oluşturdum ve "tıklatıldığında" olay yordamına şu kodları yazdım:

Private Sub Komut17_Click()
On Error GoTo Komut17_Click_Err

    DoCmd.OutputTo acTable, "Tbl_Ogrenciler", "RichTextFormat(*.rtf)", "", False, "", 0


Komut17_Click_Exit:
    Exit Sub

Komut17_Click_Err:
    MsgBox Error$
    Resume Komut17_Click_Exit

End Sub

Burada tablo verileri word çıktısı olarak bilgisayarımıza kaydedilmekte.

Eğer worde sorgudan veri vereceksek

DoCmd.OutputTo acQuery, "Srg_ErkekleriSorgula", "RichTextFormat(*.rtf)", "", False, "", 0

formdan veri vereceksek

DoCmd.OutputTo acForm, "Frm_Ogrenciler", "RichTextFormat(*.rtf)", "", False, "", 0

yazabiliriz.

Yine sadece form üzerindeki aktif kaydın worde veya excele aktarılmasını istiyorsak formdaki aktif kaydı gösteren bir sorgu oluşturup

excel için

Private Sub Komut24_Click()
On Error GoTo Komut24_Click_Err

    DoCmd.OutputTo acQuery, "FormdakiKaydaGoreSorgu", "MicrosoftExcel(*.xls)", "", False, "", 0


Komut24_Click_Exit:
    Exit Sub

Komut24_Click_Err:
    MsgBox Error$
    Resume Komut24_Click_Exit
End Sub

word için

Private Sub Komut23_Click()
On Error GoTo Komut23_Click_Err

DoCmd.OutputTo acQuery, "FormdakiKaydaGoreSorgu", "RichTextFormat(*.rtf)", "", False, "", 0


Komut23_Click_Exit:
Exit Sub

Komut23_Click_Err:
MsgBox Error$
Resume Komut23_Click_Exit
End Sub

yazabiliriz...

Eklediğim örnek dosya incelenirse konunun daha iyi anlaşılacağını düşünüyorum...

Saygılarımla...

 

[selcukkahya]

Konuyu Gözden geçir

Sayın gitarisyen

Öncelikle mesajınıza geç cevap verdiğim için özür dilerim.

Gerçekten öyle güzel bir çalışmayla açıklamışsınız ki süperr olmuş.

Elinize Sağlık çook teşekkür ederim.

Birde küçük bişey daha sormak istiyorum size . excel veya word olarak kaydederken dosya isminin başına otomatik olarak örneğimde bulunan sipariş alan alanındaki ismi ve rapor alınan günün tarihi şeklinde (örnek:selcuk04062008 şeklinde) yapmak mümkün mü?

İlginize çok teşekkür ederim şimdiden

 

[İsmail Küçükşengün]

Sayın Gitarisyen;

Bu güzel ve açıklamalı örneğiniz için Çok Teşekkürler.