(21/10/2020, 18:58)ozanakkaya yazdı:

Dim rst As New ADODB.Recordset

Dim i, GSayi1, GSayi2 As Integer

Dim GAlan, GTabloAdi As String



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



GTabloAdi = "YeniTablo"



GSayi1 = Val(Left([Metin1], InStr(1, [Metin1], "-") - 1)) - 1

GSayi2 = Val(Mid([Metin1], InStr(1, [Metin1], "-") + 1)) - 1







For i = GSayi1 To GSayi2

    GAlan = GAlan & "," & rst.Fields(i).Name

Next i



    GAlan = Right(GAlan, Len(GAlan) - 1)







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





End Sub

Metin kutusuna 1-2 şeklinde tire koyarak yazmalısın.

ilginize teşekkürler, yalnız burada aralıktaki tüm alanları aktarıyor.
Benim istediğim ise sadece yazılan alanların aktarılması, 3-7 yazarsam; 3. ve 7. alanı (sadece 2 alan) aktarsın. aradaki alanları atlasın.

iyi akşamlar.