DoCmd.CopyObject, "另一个ACCESS数据库路径","新库窗名称", acFORM, "窗体名称"
DoCmd.CopyObject 方法
在 Visual
Basic 中，CopyObject 方法执行 CopyObject 操作。
语法
表达式.CopyObject(DestinationDatabase, NewName, SourceObjectType, SourceObjectName)
表达式 一个代表 DoCmd 对象的变量。
参数
名称 必选/可选 数据类型 说明
DestinationDatabase 可选 Variant 字符串表达式 （字符串表达式：任一求值为一列连续字符的表达式。表达式的元素可以是：返回字符串或字符串 Variant (VarType 8) 的函数；字符串字面值、常量、变量或 Variant。），代表对象将复制到的数据库的有效路径和文件名。若要选择当前数据库，请将该参数保留为空白。
注释
在 Microsoft Access 项目 （Microsoft Access 项目：与 Microsoft SQL Server 数据库连接且用于创建客户端/服务器应用程序的 Access 文件。项目文件中不包含任何数据或基于数据定义的对象（如表和视图）。） (.adp) 中，必须将 destinationdatabase 参数保留为空白。如果在类库数据库 （类库数据库：可以从任意应用程序中调用的过程和数据库对象的集合。为了使用库中的项，必须先建立从当前数据库到类库数据库的引用。）中执行包含 CopyObject 方法的 Visual Basic 代码，并将该参数保留为空白，Microsoft Access 会将对象复制到类库数据库中。
NewName 可选 Variant 字符串表达式，代表要复制的对象的新名称。若要在复制到另一数据库时使用相同的名称，请将此参数保留为空白。
SourceObjectType 可选 AcObjectType AcObjectType 常量，代表要复制的对象的类型。
SourceObjectName 可选 Variant 字符串表达式，代表 sourceobjecttype 参数所选的那一类对象的有效名称。如果在类库数据库中运行包含 CopyObject 方法的 Visual Basic 代码，Microsoft Access 会先在类库数据库中查找具有此名称的对象，然后再在当前数据库中查找。
说明
使用 CopyObject 操作，可以将指定的数据库对象 （数据库对象：Access
数据库包含诸如表、查询、窗体、报表、页、宏和模块等对象。Access
项目包含诸如窗体、报表、页、宏和模块等对象。）复制到另外一个 Microsoft Access 数据库 （数据库：与特定主题或用途相关的数据的集合。在数据库内，关于特定实体的信息（如雇员或订单）分类归纳到表、记录和字段中。）中，也可以用新的名称复制到同一数据库或 Access 项目 （Microsoft Access 项目：与 Microsoft SQL
Server 数据库连接且用于创建客户端/服务器应用程序的 Access
文件。项目文件中不包含任何数据或基于数据定义的对象（如表和视图）。） (.adp)
中。例如，可以复制或备份另一个数据库中的已有对象，也可以快速地创建一个略有更改的类似对象。
对于该方法，必须包括 destinationdatabase 和/或 newname 参数。
如果将 sourceobjecttype 和 sourceobjectname 参数留空（对于 sourceobjecttype 参数将假设为默认常量 acDefault），Microsoft Access 将复制“数据库”窗口 （数据库窗口：在 Access 2003
和早期版本中，在打开数据库或项目时出现的窗口。它显示用于创建新的数据库对象和打开现有对象的快捷方式。在更高版本中，数据库窗口由导航窗格所取代。）中的选定对象。若要选择“数据库”窗口中的对象，可以使用
SelectObject 操作或 SelectObject 方法，并将 In Database Window
参数设置为“是”(True)。
如果指定 sourceobjecttype 和 sourceobjectname 参数，但是将 newname 或 destinationdatabase 参数之一留空，则必须包含 newname 或 destinationdatabase 参数的逗号。如果将末尾的参数留空，那么在指定的最后一个参数后面不要使用逗号。
示例
下面的示例使用 CopyObject 方法将 Employees 表复制到当前数据库，并为它指定一个新名称：
Visual Basic for Applications
DoCmd.CopyObject, "Employees Copy", acTable, "Employees"
