Skip to main content

#EvdeKal

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
2436

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

Çözüldü #1
Avatar: feraz
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 43
Konum: -
Ofis Versiyonu: Ofis 2016 32 Bit
Son Oturumu: Bugün,02:11
Yorumları: 1.732
Konuları: 44
Kayıt Tarihi: 30/03/2013
Rep Puanı: 219
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ı: 7)
.rar Ado ile filtreli Listbox ve Comboboxlar(icerik ve esit olarak).rar (Dosya Boyutu: 247,9 KB | İndirme Sayısı: 7)
Cevapla
#2
Avatar: feraz
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 43
Konum: -
Ofis Versiyonu: Ofis 2016 32 Bit
Son Oturumu: Bugün,02:11
Yorumları: 1.732
Konuları: 44
Kayıt Tarihi: 30/03/2013
Rep Puanı: 219
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ş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,01:11
Yorumları: 4.027
Konuları: 58
Kayıt Tarihi: 30/07/2014
Rep Puanı: 620
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ı: 14)
Cevapla
#4
Avatar: feraz
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 43
Konum: -
Ofis Versiyonu: Ofis 2016 32 Bit
Son Oturumu: Bugün,02:11
Yorumları: 1.732
Konuları: 44
Kayıt Tarihi: 30/03/2013
Rep Puanı: 219
(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
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 43
Konum: -
Ofis Versiyonu: Ofis 2016 32 Bit
Son Oturumu: Bugün,02:11
Yorumları: 1.732
Konuları: 44
Kayıt Tarihi: 30/03/2013
Rep Puanı: 219
Ü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)
Son Düzenleme: 13/01/2020, 23:12, Düzenleyen: feraz.
Cevapla
#6
Avatar: berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,01:11
Yorumları: 4.027
Konuları: 58
Kayıt Tarihi: 30/07/2014
Rep Puanı: 620
% 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
Task