Bei Fehler msg-box anzeigen

[Carl]

Ich habe hier selbst geschrieben code, der nicht funktioniert.

Ich möchte, dass der Button die Datei "Application.FollowHyperlink Me!PfadManual" öffnet. Wenn diese Datei nicht vorhanden ist, soll eine Msg-Box angezeigt werden.

Code [Auswählen] Erweitern


Private Sub Lösungen_Click()
On Error GoTo Err_Handler
     Application.FollowHyperlink Me!PfadManual
Exit_Err_Handler:
     Exit Sub
Err_Handler:
     MsgBox "Zu dieser workorder gibt es keine richtigen Ergebnisse!", 64, "Auswertungsdatei nicht nötig:"
     Resume Exit_Err_Handler
End Sub


Die msg-Box funktioniert, nur öffnet der Code die Datei auch dann nicht, wenn sie vorhanden ist.

Welchen Fehler habe ich gemacht?

Carl

[DF6GL]

Hallo,

was genau steht in "Me!PfadManual"  ?

Code [Auswählen] Erweitern

Private Sub Lösungen_Click()

Dim strFN as String
On Error GoTo Err_Handler
strFN= nz(Me!PfadManual,"")
If Dir(strFN) <>"" Then
     FollowHyperlink strFN
Else
    MsgBox "Die Datei " & strFN & " gibt es nicht.", 64, "Errormeldung"
End If

Exit_Err_Handler:
     Exit Sub
Err_Handler:

MsgBox "Fehler " & Err.Number & " " & Err.Description & " ist aufgetreten"
          Resume Exit_Err_Handler
End Sub


[Carl]

ah, okay. Ne viel bessere Lösung. Danke.

Carl