(07/05/2020, 18:14)POWER yazdı: Ekteki örnek işinizi görüyormu ? İncelermisiniz...
elinize sağlık çok güzel olmuş
(07/05/2020, 18:43)berduş yazdı: aramalar arasına 1 boşluk bırakmalısınız buton kodu
Dim AraStr() As String
Dim SqlStr As String
Dim xBit, xBas As Integer
Me.Metin5.Value = Trim(Me.Metin5.Value)
If Len(Me.Metin5 & "") = 0 Then Exit Sub
AraStr = Split(Me.Metin5, " ")
xBit = UBound(AraStr)
xBas = LBound(AraStr)
LstSql = "SELECT kron.kronik FROM kron GROUP BY kron.kronik, kron.[kronik] having "
For x = xBas To xBit
SqlStr = SqlStr & " and [kronik] like '*" & AraStr(x) & "*'"
Next x
LstSql = LstSql & Mid(SqlStr, 5)
Me.Liste1.RowSource = LstSql
mesela alerji ve depresyon için
yazmanız yeterli
ellerinize sağlık çok güzel çalışıyor