Skip to main content

AccessTr.neT M.

Kayıt Ol

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

feraz
Access Cevaplanmış Soruları
109
1473

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

Çözüldü #1
Avatar: feraz
Aktif Üye
feraz
Aktif Üye
Adı Soyadı: Za....
Yaşı:  42
Konum: -
Ofis Versiyonu: Ofis 2016 32 Bit
Son Oturumu: Bugün,20:06
Yorumları: 649
Konuları: 34
Kayıt Tarihi: 30/03/2013
Rep Puanı: 103
Merhaba.

Ado ile bağlantılı comboboxlar yapmaya çalıştım lakin başaramadım.
Yardımcı olanlara teşekkürler şimdiden.
1 adet Excel dosyaysı ekliyorum orda örnek var bağlantılı comboboxlar.Buna göre olacak.

Örnek Access dosyasınıda ekliyorum.
Alttaki kod bu konu ile ilgili bu kadar ilerleyebildim.


PHP Kod: 
Sub Combo(ByVal Tablo As String)

    On Error Resume Next
    
    If Tablo <> "" Then
        cmboAdArama.RowSource = "select distinct Ad from '" & Tablo & "'"
        cmboSoyadArama.RowSource = "select distinct Soyad from '" & Tablo & "'"
        cmboYasArama.RowSource = "select distinct Yas from '" & Tablo & "'"

  Else
        cmboAdArama.RowSource = "select distinct Ad from Tablo1"
        cmboSoyadArama.RowSource = "select distinct Soyad from Tablo1"
        cmboYasArama.RowSource = "select distinct Yas from Tablo1"
  End If
    

End Sub

Private Sub cmboAdArama_Change()
    Call Ara
    Call Combo(strSQL)
End Sub

Private Sub Form_Load()
    txtid.Enabled = False
    txtTelefon.InputMask = "\(000) 000\ 00\ 00"
    Call Ac
    Call Combo("")
End Sub

.rar Ado Sql ekle güncelle sil Listbox ve Listview Combobox.rar (Dosya Boyutu: 111 KB | İndirme Sayısı: 6)
.rar Ado ile filtreli Listbox ve Comboboxlar(icerik ve esit olarak).rar (Dosya Boyutu: 247,9 KB | İndirme Sayısı: 6)
Cevapla
#2
Avatar: feraz
Aktif Üye
feraz
Aktif Üye
Adı Soyadı: Za....
Yaşı:  42
Konum: -
Ofis Versiyonu: Ofis 2016 32 Bit
Son Oturumu: Bugün,20:06
Yorumları: 649
Konuları: 34
Kayıt Tarihi: 30/03/2013
Rep Puanı: 103
Yazmayı unutmuşum listbox formundaki comboboxlarla işlem olacak.

Giftteki hata çözülürse sanırım olay tamam olacak.

[Resim: do.php?img=9439]

Cevapla
...........
#3
Avatar: berduş
berduş
berduş
Uzman
Adı Soyadı: ha....
Yaşı:
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu:
Yorumları: 2.829
Konuları: 59
Kayıt Tarihi: 30/07/2014
Rep Puanı: 516
baya şeyi değiştirmek zorunda kaldım
dilerim işinize yarar
.rar Ado Sql ComboboxAra_hy.rar (Dosya Boyutu: 103,81 KB | İndirme Sayısı: 12)

Cevapla
#4
Avatar: feraz
Aktif Üye
feraz
Aktif Üye
Adı Soyadı: Za....
Yaşı:  42
Konum: -
Ofis Versiyonu: Ofis 2016 32 Bit
Son Oturumu: Bugün,20:06
Yorumları: 649
Konuları: 34
Kayıt Tarihi: 30/03/2013
Rep Puanı: 103
(13/01/2020 12:55)berduş Adlı Kullanıcıdan Alıntı: baya şeyi değiştirmek zorunda kaldım
dilerim işinize yarar
Elinize sağlık biraz denedim ve kodları inceledim biraz.
Sonuç olumlu elinize sağlık.Akşam tam incelerim.

Bende biraz ilerşemiştim o dosyayıda ekleyeyim ve onun üzerindende uğraşayım lakin sizinkini kullanacak gibiyim Img-grin

.rar Ado Sql ekle güncelle sil Listbox ve Listview Combobox 2.rar (Dosya Boyutu: 114,99 KB | İndirme Sayısı: 2)
Cevapla
...........
#5
Avatar: feraz
Aktif Üye
feraz
Aktif Üye
Adı Soyadı: Za....
Yaşı:  42
Konum: -
Ofis Versiyonu: Ofis 2016 32 Bit
Son Oturumu: Bugün,20:06
Yorumları: 649
Konuları: 34
Kayıt Tarihi: 30/03/2013
Rep Puanı: 103
Son Düzenleme: 13/01/2020, 23:12, Düzenleyen: feraz.
Üstad eklediğin dosyayı tam inceledim ve sorgu kullanarak yapmışsınız.Sorgusuzda vardır belki bir yol.

Aslında ben bayağı ilerledim.
Bu kod çalışmıyor % den dolayı.

Visual Basic Code 
    If cmboAdArama.Value <> "" Then strSQL = strSQL & " and Ad like '%" & cmboAdArama.Value & "%'"
    If cmboSoyadArama.Value <> "" Then strSQL = strSQL & " and Soyad like '%" & mboSoyadArama.Value & "%'"
    If cmboYasArama.Value <> "" Then strSQL = strSQL & " and Yas like '%" & cmboYasArama.Value & "%'"


Alttaki gibi % siz olunca kod muazzam çalışıyor bende anlamadım neden olmuyor.
Birde bu isnull olayı ne gıcıkmış Access teImg-grin


Visual Basic Code 
    If cmboAdArama.Value <> "" Then strSQL = strSQL & " and Ad like '" & cmboAdArama.Value & "'" 'Calisan
    If cmboSoyadArama.Value <> "" Then strSQL = strSQL & " and Soyad like '" & mboSoyadArama.Value & "'" 'Calisan
    If cmboYasArama.Value <> "" Then strSQL = strSQL & " and Yas like '" & cmboYasArama.Value & "'" 'Calisan

.rar Ado Sql ekle güncelle sil Listbox ve Listview Combobox 4.rar (Dosya Boyutu: 113,51 KB | İndirme Sayısı: 5)
Cevapla
#6
Avatar: berduş
berduş
berduş
Uzman
Adı Soyadı: ha....
Yaşı:
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu:
Yorumları: 2.829
Konuları: 59
Kayıt Tarihi: 30/07/2014
Rep Puanı: 516
% yerine * kullanmayı denediniz mi?

Bu arada sorgusuz da olur olmasına ama sorgu kodunu Sql misali kodun içine ekledikten sonra sorgusuz yapmanın pek bir espirisi kalmiyor. Daha çok zaman harcamak zorunda kalıyorsunuz, en az 4 alan için birbirleriyle ilişkili kodları ve olası hataları düşünüp kodları ona göre yazmak zaman ve emek gerektiriyor.

Cevapla
...........

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

Yorum yapmak için üye olmanız gerekiyor

ya da