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
