使用快捷方式打开access 2000到特定的窗体

时　间:2009-07-21 05:32:37
作　者:82077802   ID：4070  城市：杭州
摘　要:使用快捷方式打开Access 2000到特定的窗体
正　文:

可以创建这样一个快捷方式通过将窗体拖从到桌面数据库窗口，或通过在 / cmd 命令行开关。
警告 ： 如果您按照此示例，则修改示例数据库 Northwind.mdb。 可以备份 Northwind.mdb 文件，并在数据库的副本上执行这些步骤。

方法 1
可以将表单从数据库窗口拖直接到桌面中。 这样做请按照下列步骤操作：
打开示例数据库 Northwind.mdb。
选择在数据库窗口中的客户窗体。
还原，并放置 Microsoft Access，让您可以看到该桌面和 Microsoft Access。
将客户窗体拖放到桌面上。 请注意您现在具有一个快捷方式在桌面上，名为"快捷方式客户罗斯文"。
关闭 Microsoft Access。
双击该快捷方式在桌面上。 请注意 Microsoft Access 会启动与示例数据库 Northwind.mdb 中打开的客户窗体。
方法 2
下面的示例演示如何创建两个快捷方式启动 Access，并打开订单或雇员窗体：
右键单击桌面，指向 新建 ，然后单击 快捷方式 。
在此 创建快捷方式 对话框创建使用下面的命令行的在以下两个快捷方式 （一次一个）：
注意 ： 下面的示例在一行的末尾的下划线 (_) 用作行继续符。 重新创建此示例时，下划线删除行的末尾。
   C:\Program Files\Microsoft Office\Office\Msaccess.exe _
   C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb _
   /cmd "Orders"
      
   C:\Program Files\Microsoft Office\Office\Msaccess.exe _
   C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb _
   /cmd "Employees"
      
注意 ： 这些快捷方式都假设 Microsoft Access 安装在 C:\Program Files \Microsoft Office\Office\ 文件夹中。
打开示例数据库 Northwind.mdb 并创建新的模块中的以下功能：
Function CheckCommandLine()
    ' Check value returned by Command function.
    If Command = "Orders" Then
         DoCmd.OpenForm "Orders"
    ElseIf Command = "Employees" Then
         DoCmd.OpenForm "Employees"
    Else
    Exit Function
    End If
End Function
     
如下所示创建一个新的宏，并将其保存为 AutoExec：
操作
-------
RunCode
AutoExec 操作
-----------------------------------
RunCode
函数名称： CheckCommandLine()
关闭 Microsoft Access。 在桌面上双击第一个快捷方式。 请注意 Microsoft Access 会启动与示例数据库 Northwind.mdb 中打开订单窗体。
关闭 Microsoft Access。 在桌面上双击第二个快捷方式。 请注意 Microsoft Access 会启动与 Employees 窗体示例数据库 Northwind.mdb 中打开。
如果您单击 工具 菜单上的 选项 ，然后单击 高级 选项卡，您将看到在 / cmd 命令行参数 框中的值。

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店