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.
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
Hallo,
was genau steht in "Me!PfadManual" ?
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
ah, okay. Ne viel bessere Lösung. Danke.
Carl