路径问题

1.Access恐不支持相对路径；

2.通过对Office库的引用后，使用如下方法可弹出打开对话框,从而得到文件绝对路径:

        Dim fd As FileDialog
        Set fd = Application.FileDialog(msoFileDialogOpen)

示例:

        Dim fd As FileDialog
        Set fd = Application.FileDialog(msoFileDialogOpen)
        With fd
            .Title = "打开"
            .AllowMultiSelect = False
            .Filters.Clear
            .Filters.Add "数据库账套", "*.mdb"
            .Filters.Add "数据库账套(2007~2010)", "*.accdb"
            .ButtonName = "打开账套(&O)"
            theAddTextBox "请选择一个数据库账套，或单击“取消”按钮以退出！"
            If .Show = -1 Then
                Paths = .SelectedItems(1)         '选择的文件路径
            Else
                '在打开的对话框中,单击了“取消”按钮时的代码

            End If
        End With
        Set fd = Nothing