(17/01/2020, 00:23)berduş yazdı: strSQLCmb = Replace(strSQLCmb, "%", "*") '<--eklendi ekleyerek denediniz mi
69. mesajda yer alan dosyadaki kodu aşağıdaki gibi düzenleyerek dener misiniz?
Sub CmbDldr()
On Error Resume Next
X = ActiveControl.SelStart
ActiveControl.Value = ActiveControl.Text
ActiveControl.SelStart = X
Err.Clear
strSQLCmb = " where Not IsNull(id)"
If Len(Nz(cmboAdArama.Value, "")) > 0 Then strSQLCmb = strSQLCmb & " and Ad like '*" & cmboAdArama.Value & "*'"
If Len(Nz(cmboSoyadArama.Value, "")) > 0 Then strSQLCmb = strSQLCmb & " and Soyad like '*" & cmboSoyadArama.Value & "*'"
If Len(Nz(cmboYasArama.Value, "")) > 0 Then strSQLCmb = strSQLCmb & " and Yas like '*" & cmboYasArama.Value & "*'"
strSQLCmb = Replace(strSQLCmb, "%", "*") '<--eklendi
cmboAdArama.RowSource = "select distinct ad from Tablo1 " & strSQLCmb
cmboSoyadArama.RowSource = "select distinct Soyad from Tablo1 " & strSQLCmb
cmboYasArama.RowSource = "select distinct Yas from Tablo1 " & strSQLCmb
End Sub
Sayın hocam problemi sonunda çözdüm şükür.
Ado değilde sadece select yöntemiyle ve Listboxun rowsource özelliğiyle.
sadece bir problem var o da resimdeki gibi tek tırnak çıkması.
strSQL = "Select * From Tablo1 where Not IsNull(id)" böyle olursa kod tek tırnak çıkmıyor sorun yok.
strSQL = "Select id,FORMAT(Tarih, 'dd.mm.yyyy') as
'Tarih
',Ad,Soyad,Yas,format(Telefon,'(###) ### ## ##')as
'Telefon
' From Tablo1 where Not IsNull(id)" Böyle olursa kodlar muazzam çalışıyor fakat tek tırnak çıkıyor.
strSQL = "Select id,FORMAT(Tarih, 'dd.mm.yyyy') as Tarih,Ad,Soyad,Yas,format(Telefon,'(###) ### ## ##')as Telefon From Tablo1 where Not IsNull(id)" Böyle olursa kodlar çalışmıyor tek tırnakta çıkmıyor sütun başlıklarında.
Bu arada kodlardaki not isnull yerine Len kullandım çünkü isnull olayı problen yapıyor mesela soyad combo boşssa bile dolu olarak algılıyordu.
Yani kısaca ekteki dosyada sadece resimdeki tek tırnak problemi kaldı.
Sub Ara koduda altta Listboxun rowsourcesi ile
Sub Ara()
On Error Resume Next
X = ActiveControl.SelStart
ActiveControl.Value = ActiveControl.Text
ActiveControl.SelStart = X
Err.Clear
' strSQL = "Select * From Tablo1 where Not IsNull(id)"
strSQL = "Select id,FORMAT(Tarih, 'dd.mm.yyyy') as 'Tarih',Ad,Soyad,Yas,format(Telefon,'(###) ### ## ##')as 'Telefon' From Tablo1 where Not IsNull(id)"
If Len(Nz(cmboAdArama.Value, "")) > 0 Then strSQL = strSQL & " and Ad like '" & BasKrt & cmboAdArama.Value & SonKrt & "'"
If Len(Nz(cmboSoyadArama.Value, "")) > 0 Then strSQL = strSQL & " and Soyad like '" & BasKrt & cmboSoyadArama.Value & SonKrt & "'"
If Len(Nz(cmboYasArama.Value, "")) > 0 Then strSQL = strSQL & " and Yas like '" & BasKrt & cmboYasArama.Value & SonKrt & "'"
With Lstbox
.ColumnCount = 6
.ColumnWidths = "2Cm;2Cm;3Cm;3Cm;3Cm;3Cm"
.ColumnHeads = True
.RowSource = ""
.RowSource = strSQL
.Requery
Lstbox = .ItemData(.ListCount - 1) 'son satira gider Listboxun
' .Selected(.ListCount - 1) = True 'True olursa son satira gider Listboxun
' .ListIndex = .ListCount - 1 'son satira gider Listboxun
End With
End Sub