使用快捷方式打开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
     
如下所示创建一个新的宏，并�