BANSYSTEMSBLOG

‘ファイル参照ダイアログ　
Private Sub 参照_Click()
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog(msoFileDialogFilePicker)
dlgOpen.Show
Me.添付ファイルパス = dlgOpen.SelectedItems(1)
End Sub
※2002、2003しか使えない。Access2000ではAPIを使用する。