Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
12/11/2009 10:22
Konu Sahibi
siberonik
Yorumlar
3
Okunma
1701
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

siberonik

Üye
 38
 14
 4
 20/05/2009
0
 İstanbul
 
 Ofis 2003
 02/04/2011,19:02
Çözüldü 

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub cmdFiltre_Click()
On Error GoTo Err_cmdFiltre_Click
Dim TaliID As String
Dim TeklifVeren As Long

TaliID = Me.TaliIDSecim
TeklifVeren = Me.TeklifVerenSecim

Me.Filter = "TaliID = '" & TaliID & "'" And "TeklifVeren =  " & TeklifVeren & ""
'Üst satırda veri türü uyuşmazlığı nerede? Acaba ayraçlarda mı bi hata yapıyorum. Ölçütler tek tek çalışıyor. Fakat ikisi birlikte veri türü uyuşmazlığına sebep oluyor.
Me.FilterOn = True

Exit_cmdFiltre_Click:
Exit Sub

Err_cmdFiltre_Click:
    MsgBox Err.Description
    Resume Exit_cmdFiltre_Click

End Sub


Açıklamalar kodun içinde. Yardımcı olabilirsenizi sevinirim.


siberonik, 20-05-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

Seruz

Uzman
SE.... UZ....
 47
 1.564
 7
 30/10/2008
814
 Tekirdağ
 BT Şefi
 Ofis XP
 30/11/2018,14:06
Çözüldü 
Tırnaklarda hata gördüm.
Aşağıdaki şekilde deneyin.

Kod:
Me.Filter = "TaliID = '" & TaliID & "' And TeklifVeren =  " & TeklifVeren


Bu tür durumlarda hem yazmayı hemde kontrol etmeyi kolaylaştırması için,
kriterleri ayrı ayrı değişkenlere ayarlamak kullanım kolaylığı sağlar.

Kod:
Dim Kriter1, Kriter2
Kriter1="TaliID = '" & TaliID & "'"
Kriter2="TeklifVeren = " & TeklifVeren 
Me.Filter = Kriter1 & " And " & Kriter2


TeklifVeren değişkeni Long veri türüymüş, kodları düzelttim


Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs

Kullanici Avatari

siberonik

Üye
 38
 14
 4
 20/05/2009
0
 İstanbul
 
 Ofis 2003
 02/04/2011,19:02
Çözüldü 
Cevabınız için teşekkür ederim. Şimdi bende gördüm hatamı. Dediğiniz şekilde ayrı kriterlerle daha mantıklı olacak.

Kod:
Me.Filter = "TaliID = '" & TaliID & "' And TeklifVeren = " & TeklifVeren & ""


Peki şöyle bir durum var. Mesela buradaki kriterler daha fazla olacak. Böyle bir durumda kriterler için kullandığım denetimlerin bazıları boş kalabilir. Yani istediğim alanlara göre filtreleme yapacağım. Bu durumda formda kriter alanını boş bıraktığımda Null değeri olduğundan devam etmiyor. Bende onu şu şekilde yaptım.

Kod:
If Not IsNull(Me.TaliIDSecim) Then TaliID = Me.TaliIDSecim
If Not IsNull(Me.TeklifVerenSecim) Then TeklifVeren = Me.TeklifVerenSecim


Fakat alanlar null ise bu sefer o alanlardaki bütün kayıtların gelmesini istiyorum.
Mesela TaliID alanına göre filtre uygulayıp Teklif veren alanınıpas geçebilirim. Veya bunun tersi TeklifVeren alanına göre filtreleyip TaliID alanını pas geçebilirim. Veya her ikisine göre filtre yapabilirim. Sanırım filtre yapmayacağım alanlar için Like kullanacağım ama yapamadım. Biraz uzun oldu sanırım anlatmak istediğim Img-grin


siberonik, 20-05-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

Nurullah_Serdar

Aktif Üye
 37
 568
 21
 22/11/2008
189
 Giresun
 
 Ofis 2007
 09/10/2018,12:51
Çözüldü 
bu kodu dener misin?
dim filter as string
if me.TaliID<>"" then
filter="TaliID = '" & me.TaliID & "'"
end if
if me.TeklifVeren <>"" then
if filter<>"" then
filter=filter & "And TeklifVeren = " & me.TeklifVeren
else
filter="TeklifVeren = " & me.TeklifVeren
end if
end if

me.filter=filter


İyiki Varsın Access Img-grin


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Bir Veri Kutusunun Değerini, Başka Bir Veri Kutusuna Bağımlı Yapabilir Miyim ? A_day 10 194 18/11/2018, 22:24
Son Yorum: A_day
Çözüldü Ölçüt İfadesinde Tür Uyuşmazlığı Hatası accessdelisi 2 75 23/10/2018, 04:24
Son Yorum: accessdelisi
Çözüldü Veri Tabanındaki Kayıtlı Bilgiyi 2. Veri Tabanında Bulunan Aynı Değişkenlere Kayıt cevahir1 10 537 24/04/2018, 12:03
Son Yorum: cevahir1
Çözüldü Dmax Sorunu (Veri Türü Kısa Metin Olan Tabloda) Rıfat KARA 15 681 23/01/2018, 23:36
Son Yorum: Rıfat KARA
Çözüldü Ölçüt İfadesinde Veri Türü Uyuşmazlığı Hatası mmert06 3 253 19/12/2017, 00:55
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.