Formdan Rapora Filtre Uygulaması Nasıl Yapılır.

Formdan Rapora Filtre Uygulaması Nasıl Yapılır. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Formdan Rapora Filtre Uygulaması Nasıl Yapılır. (/konu-formdan-rapora-filtre-uygulamasi-nasil-yapilir.html)

Sayfalar: 1 2 3 4 5

Formdan Rapora Filtre Uygulaması Nasıl Yapılır. - Oğuz Türkyılmaz - 16/11/2018

Merhabalar. Amacım Ek dosyada F_020_PortfoyArama formu üzerindeki açılan kutularda yapılan seçimlere göre, Başlangıç ve bitiş değerleri olarak girilen tutarlar arasında kalan kayıtların süzülerek R_006_PortfoyEslesenKayitlar adlı raporda ekrana getirilmesidir. Vakit ayırıp ilgilenenlere şimdiden teşekkür ederim.
[Resim: do.php?imgf=154239162440161.jpg]

[Resim: do.php?imgf=154239162440161.jpg]

Cvp: Formdan Rapora Filtre Uygulaması Nasıl Yapılır. - berduş - 17/11/2018

oğuz bey raporunuzun sorgusu zaten alıcı ve satıcı arasındaki ilişkiye dayanıyor
"müşteri tipi" tanımlamasına neden ihtiyaç var?

Cvp: Formdan Rapora Filtre Uygulaması Nasıl Yapılır. - Oğuz Türkyılmaz - 17/11/2018

(17/11/2018, 12:38)haliliyas yazdı: oğuz bey raporunuzun sorgusu zaten alıcı ve satıcı arasındaki ilişkiye dayanıyor
"müşteri tipi" tanımlamasına neden ihtiyaç var?

Müşteri tipi Satıcıyı seçtiğimde aranacak değerleri satıcıların fiyatları arasında arayacak Alıcıyı seçtiğimde aranacak değerleri alıcıların fiyatlarında arayacak.

Cvp: Formdan Rapora Filtre Uygulaması Nasıl Yapılır. - berduş - 17/11/2018

Dilerim işiniz yarar
rapor için özel sorgu oluşturdum

hatalı kodu düzeltip yeniden ekledim

Cvp: Formdan Rapora Filtre Uygulaması Nasıl Yapılır. - Oğuz Türkyılmaz - 17/11/2018

(17/11/2018, 15:20)haliliyas yazdı: Dilerim işiniz yarar
rapor için özel sorgu oluşturdum

Elinize Sağlık. Formda Kayıtlarda ara butonuna bastığımda Aşağıdaki hata mesajı ile karşılaştım.
[Resim: do.php?imgf=154245855628791.jpg]

Cvp: Formdan Rapora Filtre Uygulaması Nasıl Yapılır. - berduş - 17/11/2018

If Me.cboMusteriTipi = "Al?c?" Then
      strSQL = "SELECT srg_satici.Adisoyadi AS SaticiAdi, srg_satici.Lokasyon_1, srg_alici.Adisoyadi AS AliciAdi, srg_alici.Lokasyon_1, " & _
                "srg_satici.kirabedeli AS kiralayaverenbedel, srg_alici.kirabedeli AS kiralayanbedel, srg_satici.Sat??Bedeli " & _
                "AS satici, srg_alici.Sat??Bedeli AS alici, srg_satici.MobilNo_1, srg_alici.MobilNo_1, srg_satici.OdaTipi, " & _
                "srg_alici.OdaTipi, srg_satici.esyali, srg_alici.esyali, srg_satici.Site?cinde, srg_alici.Site?cinde" & _
               "FROM srg_satici INNER JOIN srg_alici ON (srg_satici.EmlakKategorisi = srg_alici.EmlakKategorisi) AND " & _
                "(srg_satici.EmlakTipi = srg_alici.EmlakTipi)" & _
               "WHERE (((srg_alici.Sat??Bedeli)<= " & CCur(Me.txtBitisDegeri) & "And " & _
                "srg_alici.Sat??Bedeli)>=" & CCur(Me.txtBaslangicDegeri) & " ) AND " & _
                "((srg_alici.musteritipi)='Al?c?') AND ((srg_alici.EmlakTipi)='" & Me.cboEmlakTipi & "') AND " & _
                "((srg_alici.EmlakKategorisi)='" & Me.cboEmlakKategorisi & "'));"
End If

sonda 2 parantez kullanmışım
tek parantez olacaktı
bir de satır başlarındaki " işaretinden sonra 1 boşluk olacaktı
If Me.cboMusteriTipi = "Al?c?" Then
      strSQL = "SELECT srg_satici.Adisoyadi AS SaticiAdi, srg_satici.Lokasyon_1, srg_alici.Adisoyadi AS AliciAdi, srg_alici.Lokasyon_1, " & _
                " srg_satici.kirabedeli AS kiralayaverenbedel, srg_alici.kirabedeli AS kiralayanbedel, srg_satici.Sat??Bedeli " & _
                " AS satici, srg_alici.Sat??Bedeli AS alici, srg_satici.MobilNo_1, srg_alici.MobilNo_1, srg_satici.OdaTipi, " & _
                " srg_alici.OdaTipi, srg_satici.esyali, srg_alici.esyali, srg_satici.Site?cinde, srg_alici.Site?cinde" & _
               " FROM srg_satici INNER JOIN srg_alici ON (srg_satici.EmlakKategorisi = srg_alici.EmlakKategorisi) AND " & _
                " (srg_satici.EmlakTipi = srg_alici.EmlakTipi)" & _
               " WHERE (((srg_alici.Sat??Bedeli)<= " & CCur(Me.txtBitisDegeri) & " And " & _
                " srg_alici.Sat??Bedeli)>=" & CCur(Me.txtBaslangicDegeri) & " ) AND " & _
                " ((srg_alici.musteritipi)='Al?c?') AND ((srg_alici.EmlakTipi)='" & Me.cboEmlakTipi & "') AND " & _
                " ((srg_alici.EmlakKategorisi)='" & Me.cboEmlakKategorisi & "');"
End If