DoCmd.SetWarnings False
DoCmd.RunSQL "insert into [U_koju_tabelu] select [Iz_koje_tabele].* from [Iz_koje_tabele];"
DoCmd.SetWarnings True