AccessTr.neT

sayın arkadaşlar. çalışmamda Access penceresi gizleme kodu kullanıyorum. formda listeden seçtiğim kaydın raporunu açıyorum. ancak mouse sağ click açılmadığı için yazıcıya gönderemiyorum. kullandığım kodlar aşağıda. nerde hata yapıyorum acaba.


Kodlar;
Private Sub Komut41_Click()

If Liste2.ItemsSelected.Count = 0 Then: MsgBox "MsgBox "Lütfen raporu çıkarılacak kayıt seçin...", vbInformation, " ": Exit Sub

1. deneme : DoCmd.OpenReport "R_SONUÇ", acPreview, , "NumuneNo='" & Me.Liste2.Column(6) & "'"

2. deneme : DoCmd.OpenReport "R_SONUÇ", acViewReport, acNormal, "NumuneNo='" & Me.Liste2.Column(6) & "'"
3. deneme : DoCmd.OpenReport "R_SONUÇ", acViewPreview, acNormal, "NumuneNo='" & Me.Liste2.Column(6) & "'"
4. deneme : DoCmd.OpenReport "R_SONUÇ", acPreview, , "NumuneNo='" & Me.Liste2.Column(6) & "'"
5. deneme : DoCmd.OpenReport "R_SONUÇ", acViewPreview, "", , acNormal, "NumuneNo='" & Me.Liste2.Column(6) & "'"

bu kodların hepsinde rapor açılıyor ancak mouse sağ click çalımadığı için çıktı alamıyorum.

Rapor açıldı olayı kodu

Private Sub Report_Open(Cancel As Integer)

DoCmd.Maximize

End Sub


yardımcı olunursa çok sevinirim. saygılar.

eğer diğer bir konunuzda önerdiğim, gizleme olarak eklediğiniz kodu tersine çevirmezseniz sağ tıklama çalışmaz.

konu budur. https://accesstr.net/konu-raporlarda-sag...#pid190039