可以創建這樣一個快捷方式通過將窗體拖從到桌面數據庫窗口,或通過在 / 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\Ms
Access.exe _
C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb _
/cmd "Orders"
C:\Program Files\Microsoft Office\Office\Ms
Access.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 命令行參數 框中的值。