Arkadaslar Merhaba,

asagida ki kod forumdan alinmsitir. Bu kod veri tabanindaki butun tablo ve sorgulari getirmektedir (conboya). Ben butun tablo ve sorgulari degil, belirli tablo ve sorgularin gelmesi icin bu kodda nasil degisiklikler yapabilirim. (ornegin; a, b c, d tblolari gelsin. k.l.m.n sorgulari gelsin. Digerlerini istemiyorum. kodun icine bu tablo ve sorgu isimlerini yazabilirmiyiz.

*******************************
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
Dim s As String
'Önce tablolarý al
For Each obj In dbs.AllTables
If Left(obj.Name, 4) <> "mSys" Then s = s & obj.Name & ";"
Next
'Þimdi de sorgularý
For Each obj In dbs.AllQueries
s = s & obj.Name & ";"
Next
If s <> "" Then Kaynaklar.RowSource = s
**********************************

Selamlar