path条件真假判定

阿木　发表于：2008-02-29 00:28:28 　

表中的每天记录，都与我的一个文件夹里面的文件一一对应．

我用VB做，将点击每条记录后，就会自动打开与这个记录相对应的文件．

代码如下：

Private Sub 链接_Click()
Dim path As String
    Set oApp = CreateObject("Excel.Application")
    path = CurrentProject.path & "\" & Me.文件 & ".xls"
    If oApp.Version = "11.0" Then
        oApp.AutomationSecurity = 1
    End If

Set oappwork = oApp.Workbooks.Open(path)

    oApp.Visible = True
    Set oApp = Nothing
End Sub

这个代码可以按要求打开文件，但会出现一个问题，就是如果与这条记录对应的文件未建立，那么程序就会发生错误，请大家帮忙改下程序！要求如下：

①如果与记录对应的文件存在的话，就打开此文件；

②如果与记录对应的文件不存在的话，就跳出提示框，提示文件不存在！～～

谢谢了～～

Top

竹笛发表于：2008-02-29 08:52:08

Private Sub 链接_Click()
Dim path As String

path = CurrentProject.path & "\" & Me.文件 & ".xls"

if dir(path)="" then

msgbox "文件不存在"

exit sub

end if

    Set oApp = CreateObject("Excel.Application")

    If oApp.Version = "11.0" Then
        oApp.AutomationSecurity = 1
    End If

Set oappwork = oApp.Workbooks.Open(path)

    oApp.Visible = True
    Set oApp = Nothing
End Sub

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

path条件真假判定