Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Lıke Operatörü

H@K@N
H@K@N
Access Cevaplanmış Soruları
14
976

Lıke Operatörü

#7
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Dün,10:12
Yorumları: 8.592
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.059
C*e*l*o*y*c*e hocamın da belirttiği gibi dosya eklemeniz çözümü bulmayı kolaylaştırır 
strSorgu = strSorgu & " AND personel.ad LIKE '" & TextBoxBox1.Text & "*'"
şeklinde dener misiniz?
Cevapla
#8
H@K@N
Aktif Üye
H@K@N
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 38
Konum:
Ofis Versiyonu:
Son Oturumu: 15/06/2022,09:55
Yorumları: 51
Konuları: 20
Kayıt Tarihi: 12/03/2020
Teşekkür Puanı: 0
Ekte dosya ekledim.


Ara butonunu textbox ve combobaxlara göre çalıştıramadım. Filtreleme yapmıyor maalesef.
.rar çalışmam.rar (Dosya Boyutu: 101,55 KB | İndirme Sayısı: 3)
Son Düzenleme: 23/03/2022, 22:13, Düzenleyen: H@K@N.
Cevapla
#9
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Dün,10:12
Yorumları: 8.592
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.059
(23/03/2022, 22:08)H@K@N yazdı: Ara butonunu
ara butonunuzda kod göremedim?
Cevapla
#10
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Dün,10:12
Yorumları: 8.592
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.059 
Private Sub btn_arama_Click()
Dim baglan As New Connection
Dim rs As New Recordset

 baglan.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\master.accdb;"
strSorgu = "select * from [personel] WHERE personel.id > 0"

If Len(Trim(TextBox3.Value & vbNullString)) > 0 Then
strSorgu = strSorgu & " AND personel.ad='" & TextBox3.Text & "'"
Else
strSorgu = strSorgu & " AND personel.ad LIKE '" & TextBox3.Text & "%'"
End If
rs.Open strSorgu, baglan, adOpenKeyset, adLockPessimistic
ListBox1.ColumnCount = rs.Fields.Count
If rs.RecordCount <> 0 Then ListBox1.Column = rs.GetRows Else ListBox1.Clear
rs.Close
baglan.Close
End Sub
Cevapla
#11
H@K@N
Aktif Üye
H@K@N
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 38
Konum:
Ofis Versiyonu:
Son Oturumu: 15/06/2022,09:55
Yorumları: 51
Konuları: 20
Kayıt Tarihi: 12/03/2020
Teşekkür Puanı: 0
textBox a hakan ismini yazdığımda ismi hakan olanları getiriyor. Ama H,Ha,Hak yazdığımda hiçbir veri gelmiyor. Ad alanına birebir yazmak gerekiyor. Ne yaptıysam olmadı. Başaramadım.
.rar calışmam.rar (Dosya Boyutu: 96,94 KB | İndirme Sayısı: 2)
Cevapla
#12
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Dün,10:12
Yorumları: 8.592
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.059
Sadece başlangıcı mi uyacak?
Kod:
If Len(Trim(TextBox3.Value & vbNullString)) > 0 Then
strSorgu = strSorgu & " AND personel.ad='" & TextBox3.Text & "'"
Else
strSorgu = strSorgu & " AND personel.ad LIKE '" & TextBox3.Text & "%'"
End If
yerine
Kod:
If Len(Trim(TextBox3.Value & vbNullString)) > 0 Then strSorgu = strSorgu & " AND personel.ad LIKE '" & textBox3.Text & "%'"
yazarak dener misiniz
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task