döngüde tablo ismlerini kullanmak

iyi günler

Kod:
SELECT MSysObjects.Name, MSysObjects.Type FROM MSysObjects WHERE (((MSysObjects.Type)=4));

bu satırla bağlı tablo isimleri alınıyor
bunu döngü içinde nasıl kullanabilirim
teşekkürler

aşağıdaki kod yazılımında nerede hatam var

Kod:
Private Sub YEkle_Click() 

On Error Resume Next

Dim cnr As New ADODB.Recordset

Set cnr = New ADODB.Recordset

Dim sql As String

Dim tablo_adi As String

sql = "select * from tablo_isimleri"

cnr.Open sql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic

cnr.Edit

tablo_adi = cnr("name")

 DoCmd.TransferDatabase acLink, "ODBC", "ODBC;DSN=tolga", acTable, tablo_adi, tablo_adi, False

cnr.Next

cnr.Close

End Sub

yapmak istediğim tablo_isimleri tablosunun name alanındaki değerleri baştan son kayıta kadar ODBC işlemine tabi tutmak
teşekkürler

doğru kod bu imiş
en azından işimi görüyor
hatalarımı ustalar düzeltsin

Kod:
Private Sub Komut1_Click()

Dim rs As New ADODB.Recordset

Dim ilk, son As Integer

Dim tablo_adi As String

rs.Open "tablo_isimleri", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rs.MoveFirst

ilk = rs("id")

rs.MoveLast

son = rs("id")

rs.MoveFirst

For x = ilk To son

tablo_adi = rs("name")

    DoCmd.TransferDatabase acLink, "ODBC", "ODBC;DSN=tolga", acTable, tablo_adi, tablo_adi, False

rs.MoveNext

Next x

Set rs = Nothing

End Sub

alltable diye bir kodu vardırma bütüntablo isimleri i getiriyordu kodu deposunda vardı

Sub AllTables()

 Dim obj As AccessObject, dbs As Object

 Set dbs = Application.CurrentData

 ' Search for tables in AllTables collection.

 For Each obj In dbs.AllTables

 ' Table name

 Msgbox obj.Name

 Next obj

End Sub

http://msdn.microsoft.com/en-us/library/...11%29.aspx

çok teşekkürler

döngüde tablo ismlerini kullanmak

accessman

accessman

esrefigit

Seruz

accessman