RE: Tek Sütunlu Sorgu Oluşturma - truhi - 21/10/2020
(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.
RE: Tek Sütunlu Sorgu Oluşturma - ozanakkaya - 21/10/2020
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;"
RE: Tek Sütunlu Sorgu Oluşturma - truhi - 22/10/2020
(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;"
çok teşekkürler...
Re: Tek Sütunlu Sorgu Oluşturma - truhi - 22/10/2020
(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.
RE: Tek Sütunlu Sorgu Oluşturma - ozanakkaya - 22/10/2020
Docmd.runsql Kodunun üstüne
docmd.setWarnings false
Üstüne de
docmd. SetWarnings true
Kodu ekle
RE: Tek Sütunlu Sorgu Oluşturma - feraz - 22/10/2020
DoCmd.RunSQL
Yukarıdakinisilip alttakiniekleyin.
CurrentDb.Execute
|