Hayır işaretli değil. İlk önce Excel'de aynı kitapta diğer sayfadan sorgulayıp, verileri çekmiştim.
Access de de geçerli mi diye denedim, çalıştı.
Bende işe yaramadı.
DAO ile denedim * olarak kod çalışıyor.
Örnek dosya ekte görsel olarak çok kötü ama fikir verir.
Bende DAO ile denemiştim * olarak çalışıyor.DAO yu kullanmamıştım önceden.
Metin1 e * ile aratın yada
Sql içine* ekleyin denerseniz örnek dosyayı ekledim ve sizinkinide deneyeceğim.
Sub ara()
Dim rs As DAO.Recordset, intI As Integer
Dim fld
Dim xx, yy
Form1AltForm.Form.RecordSource = "select * from Tablo1 where aa like '" & Metin1.Text & "'" ' 'Alttaki gibide olur
' Form1AltForm.Form.RecordSource = "Tablo1"
Set rs = Form1AltForm.Form.RecordsetClone
If rs.RecordCount = 0 Then GoTo son
Do Until rs.EOF
xx = xx & rs(0) & Chr(10)
rs.MoveNext
Loop
' MsgBox "(aa) sütun verileri: " & vbNewLine & "------" & vbNewLine & xx
For Each fld In rs.Fields
yy = yy & fld.Name & Chr(10)
Next
Set Me.Liste1.Recordset = Form1AltForm.Form.RecordsetClone
'MsgBox "Sütun Adlari: " & vbNewLine & "------" & vbNewLine & yy
Set rs = Nothing
Exit Sub
son:
Set rs = Nothing
'MsgBox "Kayit yok", vbCritical
End Sub
(03/02/2020, 12:38)alicimri yazdı: Örnek dosya ekte görsel olarak çok kötü ama fikir verir.
Dosyadaki listboxa veri gelmedi a yada b yada diğerleribi girince
Sayın feraz
"*" karakteri kullanınca benim istediğim sonucu vermiyor. Belirlediğim harfleri içeren tüm kelimeleri getiriyor