AccessTr.neT
döngüde tablo ismlerini kullanmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: döngüde tablo ismlerini kullanmak (/konu-dongude-tablo-ismlerini-kullanmak.html)



döngüde tablo ismlerini kullanmak - accessman - 29/04/2012

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


Cvp: döngüde tablo ismlerini kullanmak - accessman - 29/04/2012

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




Cvp: döngüde tablo ismlerini kullanmak - esrefigit - 16/07/2012

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


Cvp: döngüde tablo ismlerini kullanmak - Seruz - 28/07/2012

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/aa210657%28v=office.11%29.aspx


Cvp: döngüde tablo ismlerini kullanmak - accessman - 28/08/2012

çok teşekkürler