Merhabalar,
iş yerinde kullandığımız programda alınan raporlara Escape tuşu ile kapatma özelliği eklemek istiyorum. programda kullandığımız tüm raporlar baskı önizleme formatında açılıyor. ekteki örnekte olduğu gibi bir yöntem raporu sadece rapor formatındayken kapatıyor ama baskı önizleme formatında hata veriyor.
Nasıl Yapabilirim?
Escape Tuşu İle Baskı Önizleme Raporu Kapatamıyorum
On Error Resume Next
Select Case KeyCode
Case vbKeyEscape
DoCmd.Close acReport, "rapor1"
End Select
Kodunuzun baş tarafına On Error Resume Next ifadesini yazarsanız hata almazsınız, Raporu düzgün şekilde kapatmış olursunuz.
Select Case KeyCode
Case vbKeyEscape
DoCmd.Close acReport, "rapor1"
End Select
Kodunuzun baş tarafına On Error Resume Next ifadesini yazarsanız hata almazsınız, Raporu düzgün şekilde kapatmış olursunuz.
İyi olan tek şey bilgi ve kötü olan tek şey de cehalettir. (Sokrates)
çok teşekkür ederim, problemim çözülmüştür.
konu çözülmüşlere atılmadan son bir soru:
rapor baskı önizlemede açıldığında Esc yapınca kapanıyor, ama raporun içeriklerine bakmak için büyütme işlemi için raporun içine 1 defa dahi olsa tıkladıktan sonra Esc ile pencere kapanmıyor, bu neden kaynaklanıyor olabilir?
rapor baskı önizlemede açıldığında Esc yapınca kapanıyor, ama raporun içeriklerine bakmak için büyütme işlemi için raporun içine 1 defa dahi olsa tıkladıktan sonra Esc ile pencere kapanmıyor, bu neden kaynaklanıyor olabilir?
(12/11/2018, 12:47)hbal09 yazdı: konu çözülmüşlere atılmadan son bir soru:
rapor baskı önizlemede açıldığında Esc yapınca kapanıyor, ama raporun içeriklerine bakmak için büyütme işlemi için raporun içine 1 defa dahi olsa tıkladıktan sonra Esc ile pencere kapanmıyor, bu neden kaynaklanıyor olabilir?
sn hbal09
kodu aşağıdaki şekilde düzenlerseniz sorun kalmaz.
On Error Resume Next
Select Case KeyCode
Case vbKeyEscape
Me.Visible = False
DoCmd.Close acReport, "rapor1"
End Select
İyi olan tek şey bilgi ve kötü olan tek şey de cehalettir. (Sokrates)
Çok teşekkür ederim, sorunum çözülmüştür.
Konuyu Okuyanlar: 1 Ziyaretçi