Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [VBA] Tüm alanlarda arama yapmak.

[VBA] Tüm alanlarda arama yapmak.
alican60
Yeni Üye 15-40

*
Kayıt Tarihi: 29.12.2012
Toplam 12 konu açtı.
Toplam 33 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 0
#1
25-05-2013, 20:26
Formdaki metin kutusuna no veya ürün adı yazıp Kayıt Bul düğmesine tıklayınca metin kutusuna yazdığım veriyi tüm alanlarda nasıl arama yaptırabilirim.


Eklenti Dosyaları
.rar   ÜRÜNLER.rar (Boyut: 62,69 KB / İndirilme: 74)



  Bul
  Alıntı
Bu mesajı beğenenler:
dazi
Access Takımı

*
Kayıt Tarihi: 27.12.2011
Toplam 25 konu açtı.
Toplam 782 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013 TR,
Beğeniler: 0 / 1
#2
26-05-2013, 03:30 (En son düzenleme: 26-05-2013, 03:37 dazi.)
örneğiniz bende açılmadı bir örnek düzenledim inceleyiniz.
Formun yüklendiği olay yordamına
Visual Basic
  1. Private Sub Form_Load()
  2.   On Error GoTo ErrorHandler
  3.     Dim rs As DAO.Recordset
  4.     Dim db As Database
  5.     Dim lstItem As ListItem
  6.     Dim strSQL As String
  7.     Set db = CurrentDb()
  8.     strSQL = "SELECT * from srg_kisiler"
  9.     Set rs = db.OpenRecordset(strSQL)
  10.     With Me.ListView0
  11.         .View = lvwReport
  12.         .GridLines = True
  13.         .FullRowSelect = True
  14.          .ListItems.Clear
  15.         .ColumnHeaders.Clear
  16.     End With
  17.     With Me.ListView0.ColumnHeaders
  18.         .Add , , "Adı", 2000, lvwColumnLeft
  19.        .Add , , "Soyadı", 2000, lvwColumnLeft
  20.        .Add , , "Yaşı", 2000, lvwColumnLeft
  21.        .Add , , "Memleketi", 2500, lvwColumnLeft
  22.     End With
  23.       rs.MoveFirst
  24.     Do Until rs.EOF
  25.             Set lstItem = Me.ListView0.ListItems.Add()
  26.         lstItem.Text = rs!adi
  27.         lstItem.SubItems(1) = rs!soyadi
  28.         lstItem.SubItems(2) = rs!yasi
  29.         lstItem.SubItems(3) = rs!memleketi
  30.             rs.MoveNext
  31.     Loop
  32.     rs.Close
  33.     DoCmd.Echo True
  34. ErrorHandlerExit:
  35.     Exit Sub
  36. ErrorHandler:
  37.     If Err = 3021 Then
  38.         Resume Next
  39.     Else
  40.         MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description
  41.         Resume ErrorHandlerExit
  42.     End If
  43.  
  44. End Sub



yazınız.kayıt bul butonun tıklandığında olay yordamına
Visual Basic
  1. On Error GoTo ErrorHandler
  2.     Dim rs As DAO.Recordset
  3.     Dim db As Database   
  4.     Dim strSQL As String
  5.     Set db = CurrentDb()
  6.        strSQL = "SELECT  * FROM srg_kisiler WHERE adi=  '" & Me.TextBox1 & " ' Or soyadi = '" & Me.TextBox1 & " ' Or yasi = '" & Me.TextBox1 & " ' Or memleketi = '" & Me.TextBox1 & " '"
  7.     Set rs = db.OpenRecordset(strSQL)
  8.     With Me.ListView0
  9.         .View = lvwReport
  10.         .GridLines = True
  11.         .FullRowSelect = True
  12.         .ListItems.Clear
  13.         .ColumnHeaders.Clear
  14.     End With
  15.     With Me.ListView0.ColumnHeaders
  16.        .Add , , "Adı", 2500, lvwColumnLeft
  17.        .Add , , "Soyadı", 1000, lvwColumnLeft
  18.        .Add , , "Yaşı", 1200, lvwColumnLeft
  19.        .Add , , "Memleketi", 1200, lvwColumnLeft
  20.     End With
  21.     rs.MoveFirst
  22.     Do Until rs.EOF
  23.         Set lstItem = Me.ListView0.ListItems.Add()
  24.         lstItem.Text = rs!adi
  25.         lstItem.SubItems(1) = Nz(Trim(rs!soyadi))
  26.         lstItem.SubItems(2) = Nz(Trim(rs!yasi))
  27.         lstItem.SubItems(3) = Nz(Trim(rs!memleketi))
  28.          rs.MoveNext
  29.     Loop
  30.     rs.Close
  31.     DoCmd.Echo True
  32. ErrorHandlerExit:
  33.     Exit Sub
  34. ErrorHandler:
  35.     If Err = 3021 Then
  36.         Resume Next
  37.     Else
  38.         MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description
  39.         Resume ErrorHandlerExit
  40.     End If


yazıldı.
Listview adını,alan adlarını sorgu adını aranacak kelimenin yazıldığı metin kutusu adını kendinize göre ayarlayın


Eklenti Dosyaları
.rar   ayhanlist.rar (Boyut: 27,78 KB / İndirilme: 106)



  Bul
  Alıntı
Bu mesajı beğenenler:
alican60
Yeni Üye 15-40

*
Kayıt Tarihi: 29.12.2012
Toplam 12 konu açtı.
Toplam 33 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 0
#3
26-05-2013, 08:06
Teşekkür ederim istediğim gibi olmuş.



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Access Ile Web Den Veri Almak Ve Güncelleme Yapmak. karamurat42 0 343 08-10-2024, 15:42
Son Mesaj: karamurat42
  [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
  Liste Arama Kutusundan Kayıt Silme CarpeDiem 12 863 21-07-2023, 10:31
Son Mesaj: onur_can
  Toplu .csv, .xlsx, .xls, .xml Dosya Aktarımı Yapmak adnnfrm 2 575 22-06-2023, 19:04
Son Mesaj: dsezgin
  [FORM] Forma Arama Ekleyemedim :( finishim 16 1.133 16-05-2023, 12:44
Son Mesaj: finishim
  [SORGU] Sorgu Tasarımında Tarihler Ve Arama Kriter Kullanma feraz 8 843 06-04-2023, 12:31
Son Mesaj: halily
  Liste Kutusunda Arama uzays 2 505 12-01-2023, 16:14
Son Mesaj: uzays

Foruma Git:


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