Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

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

feraz
feraz
Access Cevaplanmış Soruları
109
14667

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

#75
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Dün,21:51
Yorumları: 8.548
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
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
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: berduş - 17/01/2020, 00:23
Task