Skip to main content

AccessTr.neT


Formda Veri Arama Problemi

av.fatihberber
av.fatihberber
4
1490

Formda Veri Arama Problemi

#1
Arkadaşlar daha önce bir kaç çalışmamda yine sizlerin yardımı ile yapmıştım ama şu an başka bir çalışmamda form arama işlemini yapamıyorum. 

Ekteki dosyada seçilen kritere göre arama yapılıp, listede kriter çift tıklanınca ilgili kayıt (uye_bilgi_formu) açılsın istiyorum. ancak bir yerlerde hata yapıyorum sanırım. Ama kodlamada bir sıkıntım var..

Yardımlarınız için teşekkür ederim.  (Not: veriler gerçek değildir)
.rar deneme.rar (Dosya Boyutu: 90,86 KB | İndirme Sayısı: 7)
av.fatihberber, 11-06-2010 tarihinden beri AccessTr.neT Üyesidir.
Cevapla
#2
Sayın av.fatihberber,

Bahsettiğiniz talebinize yönelik olarak;

Öncelikle,kendi adıma şu an itibarı ile eklediğiniz uygulamanızı inceleme imkanım olmamaktadır fakat ilk etapta bir bilgilendirme olması adına,aşağıdaki açıklamaların yapılması uygun görülmüştür.

Nasıl bir arama işlemi uyguladığınızı bilmemekle birlikte,belki aşağıda bağlantısı yazılı konuyu incelemek sureti ile bir fikir edinebilirsiniz.

Form Üzerinden Veri Arama

Alıntı:listede kriter çift tıklanınca ilgili kayıt (uye_bilgi_formu) açılsın istiyorum.

İfadenize yönelik olarak da;

Kod:
DoCmd.OpenForm "acilacak_formun_adi", , , "[formdaki_alan_adi]=" & Me.liste_denetiminin_adi
ya da

Kod:
DoCmd.OpenForm "acilacak_formun_adi", , , "[formdaki_alan_adi]=" & Me.liste_denetiminin_adi.Column(listedeki_sutun_degeri)
benzeri kod kalıbı satırları ile deneyebilirsiniz.

Burada dikkat edilmesi gereken husus;kriter kısmında eğer listedeki alan değeri METİN (String) ise TEK TIRNAK şeklinde yazılmalı,değilse buna gerek yoktur.

ÖRNEK

Kod:
DoCmd.OpenForm "acilacak_formun_adi", , , "[formdaki_alan_adi]='" & Me.liste_denetiminin_adi & "'"
Bilginize…iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#3
Kod:
Private Sub aragorun_Change()
Dim vSearchString, sqlwhere As String
vSearchString = Me.aragorun.Text
Me.aragizli.Value = vSearchString

    
Select Case Me.Çerçeve130.Value
    Case 1
        sqlwhere = "  tablo_uye_listesi.[ADI] like '" & "*" & Me.aragizli.Value & "*" & "' order by tablo_uye_listesi.[ADI] ;"
    Case 2
        sqlwhere = " tablo_uye_listesi.[SOYADI] like '" & "*" & Me.aragizli.Value & "*" & "' order by  tablo_uye_listesi.[SOYADI] ;"
   Case 3
        sqlwhere = " tablo_uye_listesi.[TC KİMLİK NO] like  '" & "*" & Me.aragizli.Value & "*" & "' order by tablo_uye_listesi.[TC KİMLİK NO] ;"
   
End Select


Me.bulunan.RowSource = "tablo_uye_listesi.[TC KİMLİK NO], tablo_uye_listesi.[ADI], tablo_uye_listesi.[SOYADI], tablo_uye_listesi.[TC KİMLİK NO], FROM tablo_uye_listesi where " & sqlwhere


End Sub



Private Sub bulunan_DblClick(Cancel As Integer)
DoCmd.OpenForm "uye_bilgi_formu", , , "TC KİMLİK NO=" & Me.bulunan.Column(3)


End Sub

Kodlarım bu şekilde ama yine çalışmıyor.
av.fatihberber, 11-06-2010 tarihinden beri AccessTr.neT Üyesidir.
Cevapla
#4
Sayın av.fatihberber,

uygulamanızı kısa süreli imkan nedeni ile ancak inceleme imkanı buldum ve kendi adıma aşağıdaki açıklamaları yazmayı uygun görmekteyim.

her durumda ilk olarak bakındığım nesne tablo yapısı olduğu gerekçesi ile oluşturduğunuz tabloyu incelediğimde,aşağıda bağlantısı yazılı konudaki hususları incelemenizi ve bu hususlara göre uygulamanızı yeniden düzenlemenizi faydalı bulduğumu ve tavsiye ettiğimi belirtmeliyim.

Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler

son olarak;
bir önceki mesajda da dikkat çekmek istediğim gibi,kriter ifadesi eğer SAYI değil de METİN olacaksa bunun için TEK TIRNAK içerisinde belirtmek gerekmektedir.

bundan dolayı,bulunan adlı listenin ÇİFT TIKLANDIĞINDA olay yordamındaki kodu aşağıdaki ile değiştirerek kullanmalısınız.

Kod:
DoCmd.OpenForm "uye_bilgi_formu", acNormal, , "[TC KİMLİK NO]='" & Me.bulunan & "'"
çünkü;

1) kriter alan adı Kimlik değil TC KİMLİK NO olduğu için,

2) TC KİMLİK NO alan veri türü METİN olduğu için.

bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#5
Sanırım hallettik hocam. Yönlendirmeleriniz için teşekkür ederim.
Sorunsuz çalışan arama formunu cevabım ekine ekledim.
.rar deneme.rar (Dosya Boyutu: 91,99 KB | İndirme Sayısı: 16)
av.fatihberber, 11-06-2010 tarihinden beri AccessTr.neT Üyesidir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da