Skip to main content

AccessTr.neT M.


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

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

Çözüldü #1
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
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
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
(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
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
% 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