وهذا هو الكود المستخدم :
Private Sub crn_DblClick(Cancel As Integer)
'File_Path = "D:share\ACCOUNT\CONTACT\"
File_Path = Application.CurrentProject.Path & "\CONTACT\"
File_Name = Me.crn & ".pdf"
Name_Path = File_Path & File_Name
If Dir(Name_Path) <> "" Then
Application.FollowHyperlink Name_Path
Else
MsgBox "العقد صورة ايصال العميل غير محفوظة"
End If
End Sub
تغير او عمل تعديل على الرقم الموجود داخل خانة crn يتغير اسم ملف pdf بنفس التعديل الذى طراء على خانة crn تلقائى من خلال الاكسس الذهاب الى الملف وتعديله فهل يمكن عمل ذلك بالاكسس