AccessTr.neT

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