#1
SELECT MSysObjects.Name, MSysObjects.Type FROM MSysObjects WHERE (((MSysObjects.Type)=4));
#2
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 SubPrivate 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
#3
#4
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