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