Çözüldü Bağlantılı combobox'a veri mdb dosyasından veri çekmek?

[s.savas]

Merhaba arkadaşlar.
veriler isimli tablodan baskanlik isimli alanı Combobox1 e yüklüyorum.

Private Sub UserForm_Initialize()
ComboBox1.Column = baglan.Execute("select distinct [baskanlik]  from [veriler]").getrows
End Sub

Combobox1'in change olayı ile de veriler isimli tablonun baskanlik alanı ile ilişkili birimler alanını Combobox2 ye yüklemek istiyorum.
Aşağıdaki kodu düzenlenledim hata mesajı almıyorum ancak veri de alamıyorum. Nerede hata yapıyorum.

Private Sub ComboBox1_Change()
Call BAGLANTI
If ComboBox2.Value = "" Then
ComboBox3.Value = Empty
Else
ComboBox2.Column = con.Execute("select [birim] from veriler where baskanlik='" & ComboBox1.Value & "'").getrows
End If
End Sub

 

[s.savas]

ComboBox1

Merhaba arkadaşlar.
Combobox1 ile ilişkili ilk veriyi aşağıdaki kod ile Combobox2 ye çekmeyi başardım.

Private Sub UserForm_Initialize()
ComboBox1.Column = baglan.Execute("select distinct [baskanlik]  from [veriler]").getrows
End Sub

Private Sub ComboBox1_Change()
If ComboBox1.Value = "" Then
ComboBox2.Value = Empty
Else
ComboBox2.Column = baglan.Execute("select distinct [birim] from veriler where baskanlik='" & ComboBox1.Value & "'").getrows
End If
End Sub

Şimdi Combobox2 ile ilişkili olan verileri de Combobox3'e çekmeye çalışıyorum.
Şu şekilde denedim ve hata mesajı aldım.
Nerede hata yapıyorum.

Private Sub ComboBox2_Change()
If ComboBox2.Value = "" Then
ComboBox3.Value = Empty
Else
ComboBox3.Column = baglan.Execute("select * from veriler where baskanlik='" & ComboBox2.Value & "' and [birim]='" & ComboBox3.Value & "'")
End If
End Sub

 

[s.savas]

Combobox2 deki kodları şu şekilde değiştirdim. Ancak hala hata mesajı alıyorum.

Private Sub ComboBox2_Change()
If ComboBox1.Value = "" Then
ComboBox2.Value = Empty
Else
ComboBox3.Column = baglan.Execute("select distinct [alt_birim] from [veriler] where baskanlik =" & ComboBox1.Value & " and birim= " & ComboBox2.Value).getrows
End If
End Sub

 

[Haluk]

Deneme şansım yok ama, aşağıdaki gibi bir deneyin ....

ComboBox3.Column = baglan.Execute("select distinct [alt_birim] from [veriler] where baskanlik ='" & ComboBox1.Value & "' and birim= '" & ComboBox2.Value & "'").getrows

.

 

[s.savas]

Deneme şansım yok ama, aşağıdaki gibi bir deneyin ....

ComboBox3.Column = baglan.Execute("select distinct [alt_birim] from [veriler] where baskanlik ='" & ComboBox1.Value & "' and birim= '" & ComboBox2.Value & "'").getrows

.

Teşekkür ederim üstat.
Trafikteyim şu an. Eve varınca sonucu yazarım.

SM-A705FN cihazımdan Tapatalk kullanılarak gönderildi

 

[s.savas]

Haluk hocam teşekkür ederim, sorun çözülmüştür.