(11/12/2018, 12:41)ozanakkaya yazdı: Ekleme sorgusu veya ado ile sorgudaki verileri diğer tabloya aktarmak için kod eklemeniz gerekiyor. Kodu yazabilmem için örneği görmem gerekli.

Sub Ekle()

 

On Error GoTo ErrorHandler

 

  

Dim strSQL As String

Dim rs As DAO.Recordset



  

strSQL = "SELECT  * FROM SrgMdrTemp "

 

Set rs = CurrentDb.Recordsets(strSQL)

 

With rs

   

    If Not .BOF And Not .EOF Then

        .MoveLast

        .MoveFirst

 

        While (Not .EOF)

CurrentDb.Execute "INSERT INTO "

       

            .MoveNext

 

        Wend

       

    End If

   

    .Close

 

End With

 

ExitSub:

    Set rs = Nothing

 

    Exit Sub

ErrorHandler:

    Resume ExitSub

End Sub

Bu şekil bir kod var ama Set rs = CurrentDb.Recordsets(strSQL) burda hata veriyor

strSQL = "SELECT  * FROM SrgMdrTemp " bunda yazan SrgMdrTemp veri tablosu değil sorgu tablosu