AccessTr.neT

Bul · 26/05/2016, 13:35

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)

Bul · 26/05/2016, 14:46

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.

Bul · 26/05/2016, 15:20

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.

Bul · 26/05/2016, 15:37

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.

Bul · 26/05/2016, 16:52

Sanırım hallettik hocam. Yönlendirmeleriniz için teşekkür ederim.
Sorunsuz çalışan arama formunu cevabım ekine ekledim.

AccessTr.neT

Formda Veri Arama Problemi

Formda Veri Arama Problemi

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

Giriş yap

Hesap oluştur

Konu Linkleri