(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.