在access中用VBA實(shí)現(xiàn)被選定的表記錄插入到另一個(gè)表？

把下面的過程放到任何一個(gè)模塊中PublicSubCreateTabel(rstAsDAO.Recordset,TabelNameAsString)DimTSAsTableDefsDimTAsTableDefDimFAsDAO.FieldSetTS=CurrentDb.TableDefsSetT=NewTableDefrst.MoveFirstForEachFInrst.FieldsT.Fields.AppendT.CreateField(F.Name,F.Type,F.Size)NextT.Name=TabelNameTS.AppendTSetTS=NothingSetT=NothingSetF=NothingEndSub具體的調(diào)用方式就是CreateTabel recorset對(duì)象,表名就可以在當(dāng)前數(shù)據(jù)庫(kù)中生成一個(gè)新表了結(jié)構(gòu)和recorset相同但沒有數(shù)據(jù)，如果你要復(fù)制數(shù)據(jù)，一行SQL就搞定了