DoCmd.SetWarnings False
satırından sonraki sorguyu alttaki şekilde değiştirirerek dener misiniz?DoCmd.Close , "Tbl_Gecici", acSaveYes
DoCmd.RunSQL "SELECT Sorgu5.adonemi AS Donemi,Tablo1.Personeadi, CCur(0) AS Aucreti, CCur(0) AS Bucreti INTO Tbl_Gecici " & vbCrLf & _
"FROM Tablo1 INNER JOIN Sorgu5 ON Tablo1.Personeadi = Sorgu5.Personeadi " & vbCrLf & _
"GROUP BY Tablo1.Personeadi, Sorgu5.adonemi, 0, 0, 0, """" " & vbCrLf & _
"ORDER BY Tablo1.Personeadi;"