Skip to main content

AccessTr.neT


Access Ado İle Bağlantılı Comboboxlar Yardım

Access Ado İle Bağlantılı Comboboxlar Yardım

#76
(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 Img-grin


[Resim: 5cefICtN.JPG]



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
.rar Ado Sql ComboboxAra_hy7.rar (Dosya Boyutu: 142,51 KB | İndirme Sayısı: 3)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Access Ado İle Bağlantılı Comboboxlar Yardım - Yazar: feraz - 17/01/2020, 00:36
Task