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"