كيفية عمل زر امر لاستعراض ملفات tiff خارجية

[pingo22]

السلام عليكم ورحمة الله وبركاته

اعمل على برنامج للخطابات الواردة من خلال ادخال بعض البيانات الخاصة بكل خطاب مع عرض صورة كل خطاب

مرفق مع البرنامج فولدر "files" يحتوي على صور الموضوعات بامتداد tiff وكل صورة تم تسميتها بكود معين ويوجد خانة كود الخطاب في الجدول الاساسي

المطلوب عملية ربط بين كل كود لكل موضوع مع صورة الموضوع المرفقة بفولدر "files" من خلال زر "استعرض الخطاب" لكي يتم استعراض صورة الخطاب

وشكراً 

Desktop.rar

[ابوخليل]

تفضل

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command27_Click()
Dim i As String
i = Me.k_code
ShellExecute Me.hwnd, "open", CurrentProject.Path & "\files\" & i & ".tif", "", "", 1
End Sub

 

Downloads.rar

[pingo22]

أخي الفاضل ابوخليل شكرا جزيلا على مجهودك الرااائع هو المطلوب بالفعل

جعله الله ف ميزان حسناتك