(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