[ファイルを開く] ダイアログを表示する方法
概要 今回は、Access 2000 以降で [ファイルを開く] ダイアログを表示する方法です。 .....あっ、今アナタ、こう思いましたね？ [ファイルを開く] ダイアログ？ FAQ だね、FAQ。 Access 2000 には [ファイルを開く] ダイアログを表示する機能は無いんだから。 アレでしょ、Developer 版に付属しているコモンダイアログ コントロールを使うか、Excel 経由で GetOpenFileName メソッドを呼び出すか、さもなくば Windows API を使うっていう。 あ、それとも Access 2002 から追加された新機能の FileDialog メソッドを使う方法かな？ でもそれだと Access 2000 では使えないから、やっぱり最初の 3 つの方法でしょ。 そんなの他のサイトにもたくさん載ってるし、毎週どこかの掲示板に上がってくる定番ネタじゃ
ダイアログボックスを表示する方法: 覚え書き
以下の関数を標準モジュールに貼り付ける。 Function GetFileName(OpenOrSaveFlg As Boolean) As String Dim returnValue As Integer Dim strFilePath As String WizHook.Key = 51488399 'WIZHOOKを有効化する returnValue = WizHook.GetFileName( _ 0, "", "", "", strFilePath, "", _ "テキストファイル (*.txt,*.csv,*.tab)|*.txt|*.csv|*.tab", _ 0, 0, 0, OpenOrSaveFlg _ ) WizHook.Key = 0 ' WizHook 無効化 GetFileName = strFilePath End Function 呼び出す側のプログラム例
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
