ファイル登録機能を追加する：フォルダ選択Dlg:Access物販向け顧客管理

顧客マスターにファイル登録機能を追加します。ここでは登録ボタンをクリックすると、フォルダ選択ダイアログボックスを開くようにします。ＶＢＡコードは標準モジュールを作成し、そこに入力します。

フォルダ選択ダイアログボックスは、掲載済みのTipsのＶＢＡコードをそのまま使用しました。

■フォルダ選択ダイアログボックスのＶＢＡコードを標準モジュールに入力する

標準モジュール［Module1］が作成されるので、そこに下記のＶＢＡコードを入力します。

Option Compare Database

Public Function SelectFolder_FileDialog() As String
    Dim dlgfolder As FileDialog
    
    'ダイアログのタイトル
    Application.FileDialog(msoFileDialogFolderPicker).Title _
        = "フォルダを選択してください"
    
    '初期のフォルダ
    Application.FileDialog(msoFileDialogFolderPicker).InitialFileName _
        = "c:\windows\"
    
    If Application.FileDialog(msoFileDialogFolderPicker).Show = -1 Then
        'ファイルが選択された
        SelectFolder_FileDialog = _
        Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
    Else
        SelectFolder_FileDialog = ""
    End If

End Function



入力したＶＢＡコードを動作させるために、ライブラリを追加します。

メニューの［ツール］～「参照設定］をクリックします。


参照設定ダイアログボックスが開きます。
参照可能なライブラリ ファイルで、「Microsoft Office 15.0 Object Library」にチェックします。


［登録］ボタンのクリックイベント内に、上で作成したSelectFolder_FileDialogを呼び出すＶＢＡコードを入力します。

Private Sub コマンド50_Click()
    Dim sdir As String
    
    sdir = SelectFolder_FileDialog
End Sub



フォームビューにし［登録］ボタンをクリックします。


するとフォルダ選択ダイアログボックスが開きます。



関連する記事
ファイル選択ダイアログ（Office Object Library　を使用)
複数ファイル選択ダイアログ（Office Object Library　を使用)
Option Explicit で変数宣言を強制する
Access VBA　参照設定の設定変更