Ekte bir çalışmam var. Form1 de liste ve açılan kutu var. Açılan kutuya her hangi bir sorgu olmaksızın liste0 ın seviye alanını (benzer veri tekrarı olmaksızın (sorgu4 gibi)) açılan kutuya alabilirmiyim? Açılan kutu ya ilgili alan sorgu ile alınması durumunda veri eğer çok ise zaman alacak ve program yavaşlayacak. Halihazırdaki listeden ilgili alanı açılan kutuya nasıl alabilirim?

SELECT Tablo1.seviye
FROM Tablo1
GROUP BY Tablo1.seviye;

Sayın Celoyce gönderdiğim çalışmadaki sorguda sizin gönderdiğiniz gibi. Ben istiyorum ki söz konusu yazdığınız ifadenin işini, form1 deki listenin seviye sütunundaki verileri alarak yapsın. İkinci bir sorgu yürümeden doğrudan listeden aslın.

Private Sub Form_Load()

    Me.Açýlan_Kutu5.RowSource = "SELECT distinct seviye FROM Tablo1"

End Sub

Eğer sorgu2 den alınıyorsa resimdeki gibi olabilir.
Yani listbox sorgu2 den alıyorsa Sql kısmına sorgu2 yazılır sorgu1 den alınıyorsa sorgu1 yazılır bu şekilde listbox ve combobox bağlantılı gibi bişey olur.

Option Compare Database



Const Sql As String = "SELECT distinct seviye FROM sorgu2"



Private Sub Form_Load()

    kutu

End Sub



Private Sub Komut4_Click()

    Liste0.Requery

    kutu

End Sub



Sub kutu()

    Me.Açılan_Kutu5.RowSource = sql

End Sub

Sayın Feraz teşekkür ederim, elinize sağlık