çoklu rapor yazdırmada istisna

[samsuni]

Arkadaşlar tüm forumu aradım ama sorunumun çözümünü bulamadım.Aşağıdaki kodlar tarih aralığına göre veritabanındaki tüm raporları yazdırıyor ancak ben 2 adet raporumu yazdırmasın kalanlarının hepsini yazdırsın istiyorum.yardımınızı bekliyorum.

veritabanındaki tüm raporları ayrım yapmadan yazdıran kod:

Private Sub cmdTüm_Click()
Dim objMyReport As Object


For Each objMyReport In CurrentProject.AllReports

DoCmd.OpenReport objMyReport.Name, acPreview

Next objMyReport

Dim strFilter As String
Dim strRapor, strDate1, strDate2 As String
' Raporlarin açık olup olmadığını kontrol ediyoruz

For Each objMyReport In CurrentProject.AllReports
If SysCmd(acSysCmdGetObjectState, acReport, objMyReport.Name) <> acObjStateOpen Then
MsgBox "Öncelikle raporları açmanız gerekiyor."
Exit Sub
End If
Next objMyReport


' Filtreleme cümlesini oluşturuyoruz

strDate1 = DatePart("m", Me.txtStartDate) & "/" & DatePart("d", Me.txtStartDate) & "/" & DatePart("yyyy", Me.txtStartDate)
strDate2 = DatePart("m", Me.txtEndDate) & "/" & DatePart("d", Me.txtEndDate) & "/" & DatePart("yyyy", Me.txtEndDate)


strFilter = "KayıtTarihi Between #" & strDate1 & "# And #" & strDate2 & "#"
' Filtrelemeyi raporlara uyguluyoruz
For Each objMyReport In CurrentProject.AllReports

strRapor = objMyReport.Name

With Reports(strRapor)
.Filter = strFilter
.FilterOn = True
End With
Next objMyReport


For Each objMyReport In CurrentProject.AllReports
DoCmd.OpenReport objMyReport.Name, acNormal
Next objMyReport


End Sub

 

[samsuni]

Benim anlad&#305;&#287;&#305;m sorun "For Each objMyReport In CurrentProject.AllReports" kodunda &#231;&#246;z&#252;lecek gibi bu "AllReports" kodundan 2 raporu nas&#305;l istisna edebiliriz veya "AllReports" yerine sadece yazd&#305;rmak istedi&#287;imiz rapor isimlerini buraya nas&#305;l ekleriz.

kodlardan anlayan arkada&#351;lardan yard&#305;m bekliyorum...

 

[beab05]

Merhaba;

For Each objMyReport In CurrentProject.AllReports
[COLOR="Red"]If objMyReport.Name <> "[COLOR="Blue"]rapor1[/COLOR]" and objMyReport.Name <> "[COLOR="blue"]rapor2[/COLOR]" Then[/COLOR]

DoCmd.OpenReport objMyReport.Name, acPreview
[COLOR="red"]end if[/COLOR]
Next objMyReport

...........

Olarak dener misiniz?

 

[samsuni]

Say&#305;n beab05,
&#199;ok te&#351;ekk&#252;r ettim verdi&#287;iniz kodlar &#231;al&#305;&#351;t&#305; sorunum &#231;&#246;z&#252;ld&#252;.