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?

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.

ç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?

(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

Çok teşekkür ederim, sorunum çözülmüştür.