Question

在access中用VBA实现被选定的表记录插入到另一个表

子窗口中导入了源表的记录，鼠标选中记录，点击审核通过按钮，将选中的记录添加至新表 新案例信息表。求问这个VBA编程怎么做！求按钮代码

Answer 1

把下面的过程放到任何一个模块中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具体的调用方式就是CreateTabel　recorset对象,表名就可以在当前数据库中生成一个新表了结构和recorset相同但没有数据，如果你要复制数据，一行SQL就搞定了