Merhaba,

Access konusunda çok profesyonel biri değilim. İşlerimizi düzenlemek amacıyla ufak tefek birşeyler yapmaya çalışıyorum.

Aşağıdaki durumda takıldım. İsteiğim sonucu bir türlü alamıyorum. Vermiş olduğum ihtimallerin bir kısmı çalışmıyor.

Yardımcı olabilir misiniz?

Teşekkürler,
------------------------------------------------------------------------------------------------
Private Sub Komut146_Click()
On Error Resume Next

If Açılan_Kutu144 And Açılan_Kutu147 <> "" Then
DoCmd.OpenReport "Rpr_Turnover_Season", acViewPreview, "", "[Qry_Turnover_Season]![Principals]=[Forms]![Frm_Reports]![Açılan_Kutu144] and [Qry_Turnover_Season]![Season]=[Forms]![Frm_Reports]![Açılan_Kutu147]", acNormal

ElseIf Açılan_Kutu144 And Açılan_Kutu147 Is Null Then
DoCmd.OpenReport "Rpr_Turnover_Season", acViewPreview, "", , acNormal

ElseIf Açılan_Kutu144 <> "" And Açılan_Kutu147 = "" Then
DoCmd.OpenReport "Rpr_Turnover_Season", acViewPreview, "", "[Qry_Turnover_Season]![Principals]=[Forms]![Frm_Reports]![Açılan_Kutu144]", acNormal

ElseIf Açılan_Kutu144 = "" And Açılan_Kutu147 <> "" Then
DoCmd.OpenReport "Rpr_Turnover_Season", acViewPreview, "", "[Qry_Turnover_Season]![Season]=[Forms]![Frm_Reports]![Açılan_Kutu147]", acNormal

End If

End Sub

Merhaba,
kodlarında eksiklik var, 1.satırda



And deyiminden önce Açılan Kutu144 ün durumunu değerlendirmemişsiniz, Doğrusu şu şekilde olmalı;


yani şart eklemelisiniz. Aynı şekilde 2. Elseif bloğunda da şart yok, buraya da eklemelisiniz. 3. ve 4. Elseif bloklarında her iki açılan kutu için şart belirtmişsiniz. Bunlarda sorun tok, Büyük ihtimalle 1. ve 2. raporlarınız açılmıyordur. Şartları ekledikten sonra tüm raporlarınız çalışacaktır.

Cevabınız için çok teşekkür ediyorum. Aşağıdaki şekilde değiştirdim ancak 1 ve 2 çalışıyor ama 3 ve 4 çalışmıyor.

----------------------------------------------------------------

Private Sub Komut146_Click()
On Error Resume Next

If Açılan_Kutu144 <> "" And Açılan_Kutu147 <> "" Then
DoCmd.OpenReport "Rpr_Turnover_Season", acViewPreview, "", "[Qry_Turnover_Season]![Principals]=[Forms]![Frm_Reports]![Açılan_Kutu144] and [Qry_Turnover_Season]![Season]=[Forms]![Frm_Reports]![Açılan_Kutu147]", acNormal
ElseIf Açılan_Kutu144 Is Null And Açılan_Kutu147 Is Null Then
DoCmd.OpenReport "Rpr_Turnover_Season", acViewPreview, "", , acNormal
ElseIf Açılan_Kutu144 <> "" And Açılan_Kutu147 Is Null Then
DoCmd.OpenReport "Rpr_Turnover_Season", acViewPreview, "", "[Qry_Turnover_Season]![Principals]=[Forms]![Frm_Reports]![Açılan_Kutu144]", acNormal
ElseIf Açılan_Kutu144 Is Null And Açılan_Kutu147 <> "" Then
DoCmd.OpenReport "Rpr_Turnover_Season", acViewPreview, "", "[Qry_Turnover_Season]![Season]=[Forms]![Frm_Reports]![Açılan_Kutu147]", acNormal
End If

End Sub

IsNull ifadesini gözden kaçırmışım3. ve 4. seçeneklerde kullanmış olduğunuz komutları

Çok teşekkür ederim onur_can. Vermiş olduğun bilgi ile sorunumu çözdüm.