在应用程序中， 我们有可能需要打开其他应用程序，比如调用系统的计算器，也有打开指定的文件编辑的需求；
access对于此类操作的方法还是很多的，这里介绍用超链接打开指定文件

Dim fdg As Office.FileDialog
Dim filePath As String
Set fdg= Application.FileDialog(msoFileDialogOpen)
With fdg
.Title = "选择想要打开的文件"
.AllowMultiSelect = False
.Show
End With
filePath = fdg.SelectedItems.Item(1) '选择文件的路径
Me.打开文件.Hyperlink.Address = filePath '超链接打开文件