AccessTr.neT

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.

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?

(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.

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

hatalı kodu düzeltip yeniden ekledim

(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.

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