DoCmd.RunSQL "INSERT INTO tbl_degerimiz ( id, degeriid, alanlar,yon,olc,mat,ort,basla,baslama, degerbaslikid ) SELECT id, degerliid,alanlar,yon,olc,mat,ort,basla,baslama, altdegerid FROM tbl_gecerli1 "
CurrentDb.Execute "Delete tTempFiles.* from tbl_gecerli1;"
DoCmd.SetWarnings True
DoCmd.Close
Else
DoCmd.Close
End If
Else
CurrentDb.Execute "Delete tTempFiles.* from tbl_gecerli1;"
DoCmd.Close
End If