4 karekterden sonra kayıt bulma

[kerrrim]

arkadaşlar ekte gönderdiğim örnekte daha önce yapılmış kayıt bul örneği var ama Benim istediğim 600- yazmadan diğer kelimelerle aramaya başlaması mesela KERİM yazdığım zaman 601-KERİM kayıdını bulması.eğer yardımcı olursanız sevinirim.
şimdiden teşekürler

 

[modalı]

Sayın kerrim,

Kodları şu şekilde deneyin:

Private Sub TextBox7_Updated(Code As Integer)
Dim txtSearchString As Variant
Dim strSQL As String
txtSearchString = Me![TextBox7]
If Not IsNull(Me![TextBox7]) Then
    strSQL = "SELECT [DOSYALAR].[ADI]FROM [DOSYALAR]"
    strSQL = strSQL & "WHERE (([DOSYALAR].[ADI]) Like '*" & txtSearchString & "*') "
    
   End If
Me!Metin1.RowSource = strSQL
End Sub

İyi çalışmalar

 

[kerrrim]

Teşekkürler sayın modalı.Çok sağolun.
KENDİNİZE ve UMUTLARINIZA İYİ BAKIN:hihoho: