[ تمت الإجابة ]وضع رسالة على الزر

استخدم هذا الكود

Sub FollowYourHyperLink()
Dim YourServerPath, YourFileName

If Len(Me.ÑÞã_ÇáæÇÑÏ & "") = 0 Then
MsgBox " no file "
Exit Sub
End If

' ÍÏÏ Ïáíá ÇáÓíÑÝÑ åäÇ
YourServerPath = CurrentProject.Path & "\ÇáæÇÑÏ\"
' ÍÏÏ ÇÓã ÇáãáÝ æäæÚå
YourFileName = Me.ÑÞã_ÇáæÇÑÏ & ".PDF" 'áÇÍÞÉ ÇÓã ÇáãáÝ

Me.Application.FollowHyperlink YourServerPath & YourFileName

End Sub

اخي ابو يوسف بارك الله فيك

الرسالة التي عملتها هي عندما تنسى اضافة رقم الوارد في النموذج .

وانا اريد الرسالة عند عدم وجود الملف في فولدر الوارد

بمعنى تم تعبئة النموذج بكل خاناته مثلا ورقم الوارد ايضا وعند الضغط مشاهدة الملف يعطيني رسالة بعدم وجود الملف في الفولدر ( عندما لا يكون الملف موجود فعلا في الفولدر)

+1

وبارك الله فيك

اذا اليك هذا الكود

Sub FollowYourHyperLink()
On Error GoTo err_nofile
Dim YourServerPath, YourFileName

If Len(Me.ÑÞã_ÇáæÇÑÏ & "") = 0 Then
MsgBox " no number "
Exit Sub
End If

YourServerPath = CurrentProject.Path & "\ÇáæÇÑÏ\"
YourFileName = Me.ÑÞã_ÇáæÇÑÏ & ".PDF" 'áÇÍÞÉ ÇÓã ÇáãáÝ
Me.Application.FollowHyperlink YourServerPath & YourFileName
Exit Sub
err_nofile:
If Err.Number = 490 Then
MsgBox " no file "
Else
MsgBox Err.Description
End If
End Sub

اخي ابو يوسف

الله لا يحرمني منك

وجعلك ممن يقال له ابشر بروح وريحان ورب راضى غير غضبان

الف الف شكر ...................+1

والسلام عليكم

البرنامج موجود بالمرفقات بعد تعديل الكود

الارتباطات1.rar