Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Büyüktür Küçüktür İşaretlerine Göre Filtrelemeyi Yapabilme

husem
husem
Access Cevaplanmış Soruları
9
912

Büyüktür Küçüktür İşaretlerine Göre Filtrelemeyi Yapabilme

Çözüldü #1
husem
Aktif Üye
husem
Bul
Aktif Üye
Adı Soyadı: Hü.... Do....
Yaşı: 44
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 25/02/2025,22:53
Yorumları: 515
Konuları: 122
Kayıt Tarihi: 08/03/2009
Teşekkür Puanı: 54
Mesleğiniz: ....
merhaba sayın üstadlarım,
büyüktür küçüktür işaretlerine göre filtrelemeyi yapamadım,
yardımcı olabilirmisiniz?

[img][Resim: do.php?img=11412][/img]
.rar büyük küçük seçimine göre sırala.rar (Dosya Boyutu: 72,42 KB | İndirme Sayısı: 4)
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#2
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,12:29
Yorumları: 8.533
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
ben sadece ilksecim için yaptım diğeri için benzer şekilde siz de yapabilirsiniz
ilksecim = Replace(ilksecim, ",", ".") satırını eklemelisiniz Vba maalesef , "virgül"olan ifadeyi sayısal olarak görmüyor . "nokta " ile değişmeli
ayrıca siz sorguda = "eşittir" kullanmışsınız ona gerek yok eşittir/büyük küçük işaretleri zaten ilksecim içinde var
ayrıca sayısal ifadelerde ' "tek tırnak" kullanılmaz
Private Sub FILTRELE()


ilksecim = Nz(Me.ARALIK1 & Me.DEGER1)
ilksecim = Replace(ilksecim, ",", ".")
ikincisecim = Nz(Me.ARALIK2 & Me.DEGER2)


If IsNull(Me.ARAMUSTERI) Then MUS = "[RECETE_FIYATLARI].MUSTERI" Else MUS = "'" & Me.ARAMUSTERI & "'"
If IsNull(Me.ARARENKNO) Then RNO = "[RECETE_FIYATLARI].RENK_NO" Else RNO = "'" & Me.ARARENKNO & "'"
If IsNull(Me.ARARENK) Then RNK = "[RECETE_FIYATLARI].RENK" Else RNK = "'" & Me.ARARENK & "'"
If IsNull(Me.ARAPARABIRIMI) Then PBIRIM = "[RECETE_FIYATLARI].PARA_BIRIMI" Else PBIRIM = "'" & Me.ARAPARABIRIMI & "'"


sql = "SELECT RECETE_FIYATLARI.ID, RECETE_FIYATLARI.KAYIT_TARIHI AS KayıtTarihi, RECETE_FIYATLARI.MUSTERI AS Müşteri, RECETE_FIYATLARI.RENK_NO AS [Renk No], RECETE_FIYATLARI.RENK, RECETE_FIYATLARI.RENK_FIYATI AS RenkFiyatı, RECETE_FIYATLARI.PARA_BIRIMI AS Birimi From RECETE_FIYATLARI"
xxx = " WHERE (RECETE_FIYATLARI.MUSTERI=" & MUS & ") AND (RECETE_FIYATLARI.RENK_NO=" & RNO & ") AND (RECETE_FIYATLARI.RENK=" & RNK & ") AND (RECETE_FIYATLARI.PARA_BIRIMI=" & PBIRIM & ") AND (RECETE_FIYATLARI.RENK_FIYATI " & ilksecim & ")"
Debug.Print Sql & xxx
Me.Liste15.RowSource = Sql & xxx

Me.Liste15.Requery

End Sub
Cevapla
#3
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,12:29
Yorumları: 8.533
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
yada aşağıdaki gibi bu durumda replace() ile değiştirmeye gerek kalmaz
Private Sub FILTRELE()

If IsNull(Me.ARAMUSTERI) Then MUS = "[RECETE_FIYATLARI].MUSTERI" Else MUS = "'" & Me.ARAMUSTERI & "'"
If IsNull(Me.ARARENKNO) Then RNO = "[RECETE_FIYATLARI].RENK_NO" Else RNO = "'" & Me.ARARENKNO & "'"
If IsNull(Me.ARARENK) Then RNK = "[RECETE_FIYATLARI].RENK" Else RNK = "'" & Me.ARARENK & "'"
If IsNull(Me.ARAPARABIRIMI) Then PBIRIM = "[RECETE_FIYATLARI].PARA_BIRIMI" Else PBIRIM = "'" & Me.ARAPARABIRIMI & "'"

sql = "SELECT RECETE_FIYATLARI.ID, RECETE_FIYATLARI.KAYIT_TARIHI AS KayıtTarihi, RECETE_FIYATLARI.MUSTERI AS Müşteri, RECETE_FIYATLARI.RENK_NO AS [Renk No], RECETE_FIYATLARI.RENK, RECETE_FIYATLARI.RENK_FIYATI AS RenkFiyatı, RECETE_FIYATLARI.PARA_BIRIMI AS Birimi From RECETE_FIYATLARI"
xxx = " WHERE (RECETE_FIYATLARI.MUSTERI=" & MUS & ") AND (RECETE_FIYATLARI.RENK_NO=" & RNO & ") AND (RECETE_FIYATLARI.RENK=" & RNK & ") AND (RECETE_FIYATLARI.PARA_BIRIMI=" & PBIRIM & ") AND (RECETE_FIYATLARI.RENK_FIYATI" & Me.ARALIK1 & Format(Nz(Me.DEGER1, 0), "0,00") & ");"

Me.Liste15.RowSource = Sql & xxx

Me.Liste15.Requery

End Sub
ama bence kriter yapınızı değiştirmeniz daha uygun mesela ilgili alanlar boşsa where sorgusuna hiç eklenmemeli
Cevapla
#4
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,12:29
Yorumları: 8.533
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
If IsNull(Me.ARAMUSTERI) Then MUS = "[RECETE_FIYATLARI].MUSTERI" Else MUS = "'" & Me.ARAMUSTERI & "'" yerine
If IsNull(Me.ARAMUSTERI) Then MUS = "" Else MUS = " and [RECETE_FIYATLARI].MUSTERI='" & Me.ARAMUSTERI & "'" gibi bir yöntem daha uygun olur
bu durumda
xxx = " WHERE (RECETE_FIYATLARI.MUSTERI=" & MUS & ") AND (RECETE_FIYATLARI.RENK_NO=" & RNO & ") AND (RECETE_FIYATLARI.RENK=" & RNK & ") AND (RECETE_FIYATLARI.PARA_BIRIMI=" & PBIRIM & ") AND (RECETE_FIYATLARI.RENK_FIYATI" & Me.ARALIK1 & Format(Nz(Me.DEGER1, 0), "0,00") & ") kodu yerine

xxx = mus & RNO ......
if len(xxx & "")>0 then xxx=" where " & mid(xxx,4) gibi kullanılabilir
Cevapla
#5
husem
Aktif Üye
husem
Bul
Aktif Üye
Adı Soyadı: Hü.... Do....
Yaşı: 44
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 25/02/2025,22:53
Yorumları: 515
Konuları: 122
Kayıt Tarihi: 08/03/2009
Teşekkür Puanı: 54
Mesleğiniz: ....
(10/12/2021, 00:28)berduş yazdı: If IsNull(Me.ARAMUSTERI) Then MUS = "[RECETE_FIYATLARI].MUSTERI" Else MUS = "'" & Me.ARAMUSTERI & "'" yerine
If IsNull(Me.ARAMUSTERI) Then MUS = "" Else MUS = " and [RECETE_FIYATLARI].MUSTERI='" & Me.ARAMUSTERI & "'" gibi bir yöntem daha uygun olur
bu durumda
xxx = " WHERE (RECETE_FIYATLARI.MUSTERI=" & MUS & ") AND (RECETE_FIYATLARI.RENK_NO=" & RNO & ") AND (RECETE_FIYATLARI.RENK=" & RNK & ") AND (RECETE_FIYATLARI.PARA_BIRIMI=" & PBIRIM & ") AND (RECETE_FIYATLARI.RENK_FIYATI" & Me.ARALIK1 & Format(Nz(Me.DEGER1, 0), "0,00") & ") kodu yerine

xxx = mus & RNO ......
if len(xxx & "")>0 then xxx=" where " & mid(xxx,4) gibi kullanılabilir

sn üstad, bu haliyle çözüldü, belirttiğim aralıkta filtreleme yapıyor,

ilksecim = Nz(Me.ARALIK1 & Me.DEGER1)
ilksecim = Replace(ilksecim, ",", ".")
ikincisecim = Nz(Me.ARALIK2 & Me.DEGER2)
ikincisecim = Replace(ikincisecim, ",", ".")


If IsNull(Me.ARAMUSTERI) Then MUS = "[RECETE_FIYATLARI].MUSTERI" Else MUS = "'" & Me.ARAMUSTERI & "'"
If IsNull(Me.ARARENKNO) Then RNO = "[RECETE_FIYATLARI].RENK_NO" Else RNO = "'" & Me.ARARENKNO & "'"
If IsNull(Me.ARARENK) Then RNK = "[RECETE_FIYATLARI].RENK" Else RNK = "'" & Me.ARARENK & "'"
If IsNull(Me.ARAPARABIRIMI) Then PBIRIM = "[RECETE_FIYATLARI].PARA_BIRIMI" Else PBIRIM = "'" & Me.ARAPARABIRIMI & "'"


sql = "SELECT RECETE_FIYATLARI.ID, RECETE_FIYATLARI.KAYIT_TARIHI AS KayıtTarihi, RECETE_FIYATLARI.MUSTERI AS Müşteri, RECETE_FIYATLARI.RENK_NO AS [Renk No], RECETE_FIYATLARI.RENK, RECETE_FIYATLARI.RENK_FIYATI AS RenkFiyatı, RECETE_FIYATLARI.PARA_BIRIMI AS Birimi From RECETE_FIYATLARI"
xxx = " WHERE (RECETE_FIYATLARI.MUSTERI=" & MUS & ") AND (RECETE_FIYATLARI.RENK_NO=" & RNO & ") AND (RECETE_FIYATLARI.RENK=" & RNK & ") AND (RECETE_FIYATLARI.PARA_BIRIMI=" & PBIRIM & ") AND (RECETE_FIYATLARI.RENK_FIYATI " & ilksecim & ") AND (RECETE_FIYATLARI.RENK_FIYATI " & ikincisecim & ")"
Debug.Print Sql & xxx
Me.Liste15.RowSource = Sql & xxx

Me.Liste15.Requery
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#6
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,12:29
Yorumları: 8.533
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
3. mesajdaki kodu denediniz mi? replace ile değiştirmeye gerek kalmıyor.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task