AccessTr.neT
Access Ado İle Bağlantılı Comboboxlar Yardım - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Access Ado İle Bağlantılı Comboboxlar Yardım (/konu-access-ado-ile-baglantili-comboboxlar-yardim.html)

Sayfalar: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19


Cvp: Access Ado İle Bağlantılı Comboboxlar Yardım - feraz - 16/01/2020

(16/01/2020, 23:16)berduş yazdı:
(16/01/2020, 22:47)feraz yazdı: Set Lstbox.Recordset = rs  burda listboxa veriler Ado dan geldiği için heralde % olarak kullanılmalı
galiba gözden kaçırdığım nokta buymuş. ama bugün Excel dosyasını recordset ile bağlamak için  kullanırken de  "*"sorun çıkarmamıştı

1 buçuk saattir her yolu deniyorum tık yok.
Aslında aklımda bir fikşr var lakin problem çıkarır diye uğraşmak istemiyorum.


Cvp: Access Ado İle Bağlantılı Comboboxlar Yardım - feraz - 16/01/2020

Alttaki gibi yapınca veriler listboxa geldi şimdi  strSQL bunu ayarlarsam heralde olacak Img-grin



Lstbox.RowSource = "select distinct * from Tablo1"



Cvp: Access Ado İle Bağlantılı Comboboxlar Yardım - berduş - 17/01/2020

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



Cvp: Access Ado İle Bağlantılı Comboboxlar Yardım - feraz - 17/01/2020

(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



Cvp: Access Ado İle Bağlantılı Comboboxlar Yardım - berduş - 17/01/2020

69. mesajdaki dosyada zaten len() kullanmamış mıydım?


Cvp: Access Ado İle Bağlantılı Comboboxlar Yardım - feraz - 17/01/2020

(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?

Denedim değişen birşey göremedim.Sadece 80.mesajdaki olayı çözersek tamamdır bence Img-grin