(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.
Dim rst As New ADODB.Recordset
Dim GSayi1, GSayi2 As Integer
Dim GAlan, GTabloAdi As String
rst.Open "SELECT * FROM KISILER", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
GTabloAdi = "YeniTablo"
If InStr(1, Me.Metin1, "-") = 0 Then
GAlan = rst.Fields(Metin1 - 1).Name
Else
GSayi1 = Val(Left([Metin1], InStr(1, [Metin1], "-") - 1)) - 1
GSayi2 = Val(Mid([Metin1], InStr(1, [Metin1], "-") + 1)) - 1
GAlan = rst.Fields(GSayi1).Name & "," & rst.Fields(GSayi2).Name
End If
DoCmd.RunSQL "SELECT " & GAlan & " INTO " & GTabloAdi & " FROM KISILER;"
(21/10/2020, 19:51)ozanakkaya yazdı: [ -> ]Dim rst As New ADODB.Recordset
Dim GSayi1, GSayi2 As Integer
Dim GAlan, GTabloAdi As String
rst.Open "SELECT * FROM KISILER", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
GTabloAdi = "YeniTablo"
If InStr(1, Me.Metin1, "-") = 0 Then
GAlan = rst.Fields(Metin1 - 1).Name
Else
GSayi1 = Val(Left([Metin1], InStr(1, [Metin1], "-") - 1)) - 1
GSayi2 = Val(Mid([Metin1], InStr(1, [Metin1], "-") + 1)) - 1
GAlan = rst.Fields(GSayi1).Name & "," & rst.Fields(GSayi2).Name
End If
DoCmd.RunSQL "SELECT " & GAlan & " INTO " & GTabloAdi & " FROM KISILER;"
merhaba,
Kodu çalıştırdığımıza ekrana gelen ekli mesaj kutularını nasıl iptal edebiliriz?
Bize sormadan direkt işlemleri yapsın.
şimdiden teşekkürler,
iyi çalışmalar.
Docmd.runsql Kodunun üstüne
docmd.setWarnings false
Üstüne de
docmd. SetWarnings true
Kodu ekle
DoCmd.RunSQL
Yukarıdakinisilip alttakiniekleyin.
CurrentDb.Execute