+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Escape Tuşu İle Baskı Önizleme Raporu Kapatamıyorum (/konu-escape-tusu-ile-baski-onizleme-raporu-kapatamiyorum.html)
Escape Tuşu İle Baskı Önizleme Raporu Kapatamıyorum - hbal09 - 12/11/2018
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?
Cvp: Escape Tuşu İle Baskı Önizleme Raporu Kapatamıyorum - onur_can - 12/11/2018
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.
Cvp: Escape Tuşu İle Baskı Önizleme Raporu Kapatamıyorum - hbal09 - 12/11/2018
çok teşekkür ederim, problemim çözülmüştür.
Cvp: Escape Tuşu İle Baskı Önizleme Raporu Kapatamıyorum - hbal09 - 12/11/2018
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?
Cvp: Escape Tuşu İle Baskı Önizleme Raporu Kapatamıyorum - onur_can - 12/11/2018
(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
Cvp: Escape Tuşu İle Baskı Önizleme Raporu Kapatamıyorum - hbal09 - 12/11/2018
Çok teşekkür ederim, sorunum çözülmüştür.