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 Subteş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