Hediye Excel Kitabı Ve Altın Üyelik Çekiliş Sonuçları İçin [Tıklayınız]
 Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
27/03/2009 16:53
Konu Sahibi
kdurmaz
Yorumlar
4
Okunma
2111
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

kdurmaz

Üye
Kullanici Avatari
Üye
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)
Cevapla

Nurullah_Serdar

FaTSaLı
Kullanici Avatari
Aktif Üye
568
22/11/2008
189
Giresun
Ofis 2007
01/07/2013,13:21
Çö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
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
10.222
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Dün,23:58
Çö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


Cevapla

kdurmaz

Üye
Kullanici Avatari
Üye
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


Cevapla

esrefigit

Aktif Üye
Kullanici Avatari
Aktif Üye
599
30/10/2008
359
Konya
Ofis 2003
03/08/2017,11:47
Çö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
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Açılan Kutudan Çoklu Seçim Yapıp, Tablodan Tabloya Kayıt Etmek İstiyorum akses7989 9 285 07/12/2017, 20:12 akses7989
Çözüldü Arama Sonucunu Excele Aktarma bravekids 2 167 07/11/2017, 20:58 bravekids
Çözüldü Arama Butonu Hatası ers6886 3 134 27/10/2017, 23:00 ers6886
Çözüldü Formda,açılan Kutudan Veri Seçtiğimde Tablodan Veri Bulma 53rize 4 299 25/10/2017, 09:31 53rize
Çözüldü Sql Serverdan Sorgu İle Yerel Veri Tabanına Veri Yazdırma ertans 1 218 24/08/2017, 11:22 burhanb
 
 

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.