(21/10/2020, 17:33)ozanakkaya yazdı:

Dim rst As New ADODB.Recordset

Dim i, GSayi As Integer

Dim GAlan, GTabloAdi As String



rst.Open "SELECT * FROM Table1", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly



GTabloAdi = "YeniTablo"

GSayi = Me.Metin1 - 1



For i = GSayi To GSayi

    GAlan = rst.Fields(i).Name

Next i



DoCmd.RunSQL "SELECT " & GAlan & " INTO " & GTabloAdi & " FROM Table1;"

Referanslara Microsoft ActiveX Data Objects 2.8 Library referansını eklemelisin.

Formda Metin1'e 2 yazarsan YeniTablo isimli tablo oluşturup Table1'deki 2. sütunu yeni tabloya aktarır.

Çok teşekkürler,

burada yeni tabloya bir adet yerine iki alanı ekletmek istersek, yani 3. alan ile 5. alanı yan-yana eklesin dersek; nasıl bir düzenleme yapmamız gerekecek?

iyi Çalışmalar.