Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
27/03/2009 16:53
Konu Sahibi
kdurmaz
Yorumlar
4
Okunma
2219
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

kdurmaz


 42
 28
 7
 06/01/2009
0
 İstanbul
 
 Ofis 2007
 24/02/2017,16:41
Çözüldü 
Sevgili dostlar,

Sitenizden örneğini almış olduğum, birden fazla kritere göre veritabanında arama yapmaya yarayan formu kendi veritabanıma uygulamaya çalıştım fakat sanıyorum kodlarda bir takım hatalar yaptığımdan (kod kısmını çok bilmediğimden) arama yaparken hata veriyor.
Adı ve Soyadı kısmında bir sorun yok fakat diğer kriterlere göre arama yaptığımda oluşuyor hata.
Örneği ekliyorum. Derdime derman olun lütfen.

Saygılarımla,
Kadir DURMAZ


Ek Dosyalar
.mdb   veri_arama.mdb(Dosya Boyutu: 300 KB / İndirme Sayısı: 61)

Kullanici Avatari

Nurullah_Serdar


 37
 568
 21
 22/11/2008
189
 Giresun
 
 Ofis 2007
 09/10/2018,12:51
Çözüldü 
function kodunu bununla değiştir

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Private Function BuildFilter() As Variant
    Dim varWhere As Variant
    Dim varItem As Variant
    Dim intIndex As Integer

    varWhere = Null  ' Main filter
  
    
    ' Check for LIKE First Name
    If Me.txtFirstName > "" Then
        varWhere = varWhere & "[ADI] LIKE """ & Me.txtFirstName & "*"" AND "
    End If
    
    ' Check for LIKE Last Name
    If Me.txtLastName > "" Then
        varWhere = varWhere & "[SOYADI] LIKE """ & Me.txtLastName & "*"" AND "
    End If
    
    ' Check for tc kimlik no
    If Me.txttckimlikno > "" Then
        varWhere = varWhere & "[TCKIMLIKNO] = '" & Me.txttckimlikno & "' AND "
    End If
    
    ' Check for mahalle
    If Me.txtmahalle > "" Then
        varWhere = varWhere & "[MAHALLE] LIKE """ & Me.txtmahalle & "*"" AND "
    End If
    
      ' Check for baba adı
    If Me.txtbaba > "" Then
        varWhere = varWhere & "[BABAADI] LIKE """ & Me.txtbaba & "*"" AND "
    End If
   
    ' Check if there is a filter to return...
    If IsNull(varWhere) Then
        varWhere = ""
    Else
        varWhere = "WHERE " & varWhere  
        ' strip off last "AND" in the filter
        If Right(varWhere, 5) = " AND " Then
            varWhere = Left(varWhere, Len(varWhere) - 5)
        End If
    End If
    BuildFilter = varWhere 
End Function


İyiki Varsın Access Img-grin

Kullanici Avatari

ozanakkaya


OZ.... AK....
 41
 11.381
 466
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
Çözüldü 
sn kdurmaz,

aşağıdaki linkteki dersi kendi uygulamanıza göre uyarlarsanız tüm alanları tek bir textboxtan sorgulayabilirsiniz.

Form Üzerinden Veri Arama


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

kdurmaz


 42
 28
 7
 06/01/2009
0
 İstanbul
 
 Ofis 2007
 24/02/2017,16:41
Çözüldü 
Çok teşekkür ederim sevgili n_serdar ve sevgili sledgeab.

Problem çözüldü. Dediğim gibi benim sorunum kod bilmemekten kaynaklanıyor. Aslında bir dalıp öğreneyim diyorum şu kod meselesini ama gözümde büyüyor. Sizler olmasanız halimiz duman gerçekten.
Konu benim açımadan kapanmıştır.

Saygılarımla,
Kadir DURMAZ



Kullanici Avatari

esrefigit


 Belirtilmemiş
 599
 59
 30/10/2008
359
 Konya
 
 Ofis 2003
 20/09/2018,16:01
Çözüldü 
bu tip aramalarda sorgu üzerine ekleyeceğiniz Like ile arama hem daha hızlı hemde daha kolaydır .şayet direkt formun verisini süzdürmüyorsanz bu şekilde kod yazmanın anlamı yoktur. formda arayın sorgu ile arama yapma ve listeye doldurma örneği onlarca var


meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Ağda Dosyayı Çoklu Kullanıcı İle Paylaşmak m_demir 6 222 17/08/2018, 15:42
Son Yorum: m_demir
Çözüldü Açılan Kutuda Çoklu Sütun Arama Kodu ielmacilar 2 161 24/07/2018, 17:39
Son Yorum: ielmacilar
Çözüldü Arama Bölümünde İsim,telefon Müşteri Numarası Aratmak ( Müşteri Takip Programı) oillamp 5 297 31/05/2018, 11:38
Son Yorum: oillamp
Çözüldü Sorgular İle Arama Ve Raporlama Sorunu Merve D. 8 370 15/05/2018, 16:36
Son Yorum: Merve D.
Çözüldü Virgülle Ayrılmış Verilerin Arasından Arama Yapma Allback 2 213 26/04/2018, 08:49
Son Yorum: Allback

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