AccessTr.neT

Tam Versiyon: döngüde tablo ismlerini kullanmak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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