Aldığımız Raporu Otomtik Kaydetme ?

[nihatkr]

Arkadaşlar Merhaba.

Accesste aldığımız raporları otomatik olaranumaralandırıp kaydedebilirmiyiz.

Örneğin 3 tane şubemiz var.
Körfez
Aksaray
İstanbul

Bunlarla ilgili satışları tutan bir tablomuz var. Bu tablodan kod verip satışları secip bir rapor oluşturuyoruz. Ama bu alınan raporlara bir numara verip (mümkünse sıra takibi ve her şubeyi ayrı) raparlarını ileride kontrol edebilme adına kaydetmek istiyoruz. Mümkünmüdür.? (Word formatında)

Teşekkürler.

 

[nihatkr]

son iki soruma kimseler dönüp bakmıyor. ? garip sorularmı soruyorum acaba

 

[modalı]

Sayın nihatkr,

Pdf formatıyla çok rahat kaydedebilirsiniz. Sanal olarak pdf printer gibi çalışan ücretsiz programlar var. (pdf printer olarak aratın) Ve raporunuzu bu sanal printerde bas dendiğinde pdf olarak kaydedebiliyorsunuz.

Zaten rapor açıkken wordda yayımla diye bir düğüme var, onla da zengin metin olarak raporunuzu dışarıya aktarabilirsiniz.

İyi çalışmalar

 

[nihatkr]

Sayın nihatkr,

Pdf formatıyla çok rahat kaydedebilirsiniz. Sanal olarak pdf printer gibi çalışan ücretsiz programlar var. (pdf printer olarak aratın) Ve raporunuzu bu sanal printerde bas dendiğinde pdf olarak kaydedebiliyorsunuz.

Zaten rapor açıkken wordda yayımla diye bir düğüme var, onla da zengin metin olarak raporunuzu dışarıya aktarabilirsiniz.

İyi çalışmalar

Sevgili Modalı
Öncelikle teşekkür ediyorum. PDF konusunda bilgilendirdiğiniz için.

Ancak sizde kabul edersinizki bu programı kullanacak olan kişiler, bu konularda çok bilgili kişiler olamıyor malesef. Yani bir buton bir kayıt mekanizması olmazsa iki gün sonra emek verip yaptığınız10 tabloluk küçük bir programı yaptığınıza bile pişman edeiliyorlar insanlar. Gelen sorular yüzünden. Yoksa elbette word formatında kayıt mümkün ama ben kestirme yolu olabilirmi diye zorlamak istemiştim.

Teşekkürler bilgilendirmeniz için.

 

[modalı]

Sayın nihatkr,

Aşağıdaki kodlardaki fonksiyonu çalıştırırsanız, Rapor1 i dışarıya word nesnesi olarak çıkarabilirsiniz:

Function WordAktar()
On Error GoTo WordAktar_Err
    DoCmd.OutputTo acReport, "Rapor1", "RichTextFormat(*.rtf)", "", False, "", 0
 
WordAktar_Exit:
    Exit Function
WordAktar_Err:
    MsgBox Error$
    Resume WordAktar_Exit
End Function

Eğer çıkıştaki dosyanız belli ise o zaman Rapor1.rtf olarak da direkt olarak kaydedebilirsiniz.

DoCmd.OutputTo acReport, "Rapor1", "RichTextFormat(*.rtf)", "Rapor1.rtf", False, "", 0

Eğer rapor açık değilse o zaman:

DoCmd.OpenReport "Rapor1", acViewPreview, "", "", acHidden

satırını da en üste ekleyin.

İyi çalışmalar

 

[nihatkr]

süper çok teşekkür ediyorum sayın modalı.