Command 関数を使用すると、Access の起動に使用する コマンド ライン の 引数 部分を返すことができます。
解説
コマンド ラインから Access を起動すると、/cmd オプションに続くコマンド ラインの部分は、コマンドライン引数としてプログラムに渡されます。 Command 関数を使用すると、渡された引数を返すことができます。
データベースが開かれてからコマンドライン引数を変更するには:
-
[ファイル] メニューの [Access のオプション] をクリックします。
-
[アプリケーションの設定] ダイアログ ボックスの [詳細設定] をクリックします。
-
[コマンド ライン引数] ボックスに新しい引数を入力します。
Command 関数は、入力した新しい引数を返すようになります。
モジュールの Visual Basic for Applications (VBA) コード以外の場所で Command 関数を使用する場合、関数の後に空のかっこを含める必要があります。 たとえば、フォームのテキスト ボックスに Command 関数を使用するには、テキスト ボックスの ControlSource プロパティを次のように 式 に設定します。
=Command()
例
注: 次の例は、Visual Basic for Applications (VBA) モジュールでのこの関数の使用方法を示しています。 VBA の使用方法の詳細については、[検索] の横にあるドロップダウン リストで [開発者用リファレンス] を選び、検索ボックスに検索する用語を入力します。
次の例は、コマンドライン引数を指定して Access を起動する方法を示しています。また、Command 関数を使用してこの引数の値を返す方法についても示します。
この例をテストするには、[Windows スタート ] ボタンをクリックし、[ 実行] をクリックします。 [ 実行 ] ボックスに 1 行に次のコードを入力します。 (コマンド ライン情報の部分を引用符で囲む必要があります)。
"C:\Program Files\Microsoft Office\Office11\Msaccess.exe" _
"C:\Program Files\Microsoft Office\Office11\Samples\Northwind.mdb" /cmd "Orders"
次に、Northwind Traders サンプル データベースに新しいモジュールを作成し、次の Sub プロシージャを追加します。
Public Sub CheckCommandLine()
' Check the value returned by Command function and display
' the appropriate form.
If Command = "Orders" Then
DoCmd.OpenForm "Orders"
ElseIf Command = "Employees" Then
DoCmd.OpenForm "Employees"
Else
Exit Sub
End If
End Sub
このプロシージャを呼び出すと、Access で Orders フォームが開きます。 データベースを開くときに、このプロシージャを自動的に呼び出す AutoExec マクロを作成できます。
