Arama butonu ile boş liste kutusuna veri çağırmak
#1
Arama butonuna basıldığında metin kutusundakini arayıp liste kutusunda gösterecek(liste kutusu boşken), listede buluna kayda tıklandığındada bulunan kaydın öğrenciler formunu açacak koda ihtiyacım var.
örnek ekte lütfen yardım


Eklenti Dosyaları
.rar   ARAMA BUTONU.rar (Boyut: 1,15 MB / İndirilme: 84)



  Alıntı
Bu mesajı beğenenler:
#2
inceleyiniz...


Eklenti Dosyaları
.rar   ARAMA BUTONU.rar (Boyut: 1,15 MB / İndirilme: 114)



  Alıntı
Bu mesajı beğenenler:
#3
sayın dazi ara butonu basıldığı zaman aranan kaydı bulmak istiyorum. ve arama butonuna basıldıktan sonra liste kutusunda veriler görünmeli.saygılar



  Alıntı
Bu mesajı beğenenler:
#4
Form1 in geçerli olduğunda olay yordamına
Visual Basic
  1. Me.Liste16.RowSource = ""



yazılarak liste kutusu boş görünüme kavuşturuldu
Arama için Sorgu1 oluşturuldu
SQL
  1. SELECT OGRENCİLER.OGRENCİNO, OGRENCİLER.OGRENCİAD, OGRENCİLER.OGRENCİSOYAD, OGRENCİLER.SINIF,
  2. OGRENCİLER.SUBE, OGRENCİLER.OKUL, OGRENCİLER.TC
  3. FROM OGRENCİLER
  4. WHERE (((OGRENCİLER.OGRENCİNO)
  5. LIKE "*" & [Forms]![Form1]![noara] & "*") AND ((OGRENCİLER.OGRENCİAD)
  6. LIKE "*" & [Forms]![Form1]![adara] & "*") AND ((OGRENCİLER.OGRENCİSOYAD)
  7. LIKE "*" & [Forms]![Form1]![soyadara] & "*") AND ((OGRENCİLER.SINIF)
  8. LIKE "*" & [Forms]![Form1]![Açılan Kutu14] & "*") AND ((OGRENCİLER.TC)
  9. LIKE "*" & [Forms]![Form1]![tcara] & "*"));



Ara butonunun olay yordamına
Visual Basic
  1. Dim vSearchString0 As String
  2. Dim vSearchString As String
  3. Dim vSearchString1 As String
  4. Dim vSearchString2 As String
  5.  
  6. Me.Metin1.SetFocus
  7. vSearchString0 = Me.Metin1.Text
  8. Me.noara.Value = vSearchString0
  9. Me.Liste16.RowSource = "Sorgu1"
  10. Me.Liste16.Requery
  11.  
  12. Me.Metin3.SetFocus
  13. vSearchString = Me.Metin3.Text
  14. Me.adara.Value = vSearchString
  15. Me.Liste16.RowSource = "Sorgu1"
  16. Me.Liste16.Requery
  17.  
  18. Me.Metin5.SetFocus
  19. vSearchString1 = Me.Metin5.Text
  20. Me.soyadara.Value = vSearchString1
  21. Me.Liste16.RowSource = "Sorgu1"
  22. Me.Liste16.Requery
  23.  
  24. Me.Metin9.SetFocus
  25. vSearchString2 = Me.Metin9.Text
  26. Me.tcara.Value = vSearchString2
  27. Me.Liste16.RowSource = "Sorgu1"
  28. Me.Liste16.Requery


yazılarak ilk isteğiniz sağlandı.

Liste kutusunun tıklandığında olay yordamına
Visual Basic
  1. DoCmd.OpenForm "OGRENCİLER", , , "[OGRENCİLER]![OGRENCİNO]=[Forms]![Form1]![liste16]"
  2. DoCmd.Close acForm, "Form1"


yazılarak bulunan kayıdın detay ekranına ulaşıldı.Kolay gelsinSmile


Eklenti Dosyaları
.rar   ARAMA BUTONU.rar (Boyut: 1,15 MB / İndirilme: 125)



  Alıntı
Bu mesajı beğenenler:
#5
sayın dazi elinize sağlık tam istediğim gibi olmuş. form1 açıldığında ;
"form1 veya raporu yüklediğinizde 1 hata oluştu.
microsoft office access tarafından tanınmadiği için denetimler ve özellikleri yoksayılacak bir form veya rapor yüklediniz." mesajı veriyor. sorun değil tekrar teşekkürler yardımlarınız için



  Alıntı
Bu mesajı beğenenler:
#6
sayın dazi arama butonunda liste kutusunda bulunan sonuçları excele nasıl aktarabilirim acaba



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Açılır Menüdeki Veriyi Metin Kutusuna Aktarma Pasham 1 215 19-02-2026, 21:18
Son Mesaj: adnan
  [FORM] Metin Kutusundaki Değeri Başka Bir Metin Kutusuna Aktarmak TheREDROSE 2 422 02-08-2024, 11:56
Son Mesaj: TheREDROSE
  Ileri Butonu Sona Geldiğinde Uyarı Vermiyor Yeni Kayıt Açıyor. programmer67 2 467 25-06-2024, 16:49
Son Mesaj: programmer67
  [VBA] Metin Içerisindeki Kelimeler Ile Arama Yapma ekremer1969 6 1.329 22-06-2024, 16:15
Son Mesaj: dsezgin
  [FORM] Arama Sorunu Pasham 0 377 08-04-2024, 14:32
Son Mesaj: Pasham
  Acceste Liste Kutusundan Seçilen Veriyi Metin Kutusuna Gönderme Pasham 24 1.437 04-04-2024, 01:18
Son Mesaj: halily
  [FORM] Inputbox Kutusuna Girilen Değere Pasword Maske Uygulama orderyazbim 2 482 22-01-2024, 22:12
Son Mesaj: orderyazbim
  [SORGU] Onay Kutusuna Göre Sorgu Listesi Oluşturma 88888888 6 821 31-07-2023, 16:40
Son Mesaj: 88888888

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 2 Ziyaretçi