تفضل أخي figo82eg 🙂
Private Sub OpenPDFBtn_Click()
Dim DesPath As String
Dim D As String: D = "\"
DesPath = (BECurrentPath & D & [Text10] & D & [نوع الخطاب] & D & [Combo1] & D & [Combo2] & D & [crn] & D & [crn] & ".pdf")
'Debug.Print DesPath
If IsFileExists(DesPath) Then
FollowHyperlink DesPath
Else
MsgBox "لم يتم العثور على الملف", vbOKOnly, "تنبيه"
End If
End Sub
ارشيف - Moosak.rar