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.
hnakis, 15-10-2009 tarihinden beri AccessTr.neT üyesidir.