عرض الصور وملف الـ pDF

[nogom]

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

اخواني عندي فورم فيه اضافة صورة او ملف PDF خارج اكسس 

وشغال معي تمام ولكن المشكلة في عرض المرفق

حطيت حقل (Image) عند العرض البيانات تظهر الصور  اما اذا كان المرفق ملف PDF لايظهر

غير وحطيت حقل (WebBrowser) عند عرض البيانات اذا كانت صورة تظهر بشكل كبير كما في الصورة الأولى وانا اريد ان تظهر بحجم صغير 

ولكن كانت الملف المرفق هو PDF تظهر لي هذه الرسالة كما في الصورة الثانية

اريد انا ان يظهر رمز الأيقونة وعند الصغط عليها يفتح

[د.كاف يار]

اخي الكريم تفضل الطريقة

قم بإدراج اطار صورة 

الصق هذا الفكشن في اي مكان داخل VBA

Public Function DownloadImage(ByVal URL As String) As String
   On Error GoTo catch
   Dim oWinHTTP As Object
   Dim FileNumber As Integer
   Dim Destination As String
   Dim buffer() As Byte
   
   DoCmd.Hourglass True


   Destination = CurrentProject.Path & "\tmp." & Mid$(URL, InStrRev(URL, ".") + 1)
   
   Set oWinHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
   oWinHTTP.Open "POST", URL, False
   oWinHTTP.send
   
   If oWinHTTP.Status = 200 Then
      FileNumber = FreeFile
      Open Destination For Binary Lock Read Write As #FileNumber
      
      buffer = oWinHTTP.ResponseBody
      Put #FileNumber, , buffer
      
      Close #FileNumber
      DownloadImage = Destination
   End If
   DoCmd.Hourglass False
   
finally:
    Erase buffer
    Set oWinHTTP = Nothing
    Exit Function
catch:
    DoCmd.Hourglass False
    MsgBox "Error number" & Err.Number & vbCrLf & "Description : " & Err.Description, vbExclamation, "DownloadImage()..."
    Close 'close all open files
    Resume finally
End Function

بعد ان يتم تحميل الصورة و تخزينها في الذاكرة المؤقته يتم استدائها بنفس الرابط الذي تم تحميلها من

من خلال الكود التالي

Me.picture1.Picture = DownloadImage("http://stylis7.com/up/uploads/images/stylis7-4e2761ce34.png")

 

تفضل المثال

مثال لجلب الصورة من رابط.mdb

تم تعديل أغسطس 29, 2019 بواسطه د.كاف يار

[nogom]

5 ساعات مضت, د.كاف يار said:

اخي الكريم تفضل الطريقة

قم بإدراج اطار صورة 

الصق هذا الفكشن في اي مكان داخل VBA

Public Function DownloadImage(ByVal URL As String) As String
   On Error GoTo catch
   Dim oWinHTTP As Object
   Dim FileNumber As Integer
   Dim Destination As String
   Dim buffer() As Byte
   
   DoCmd.Hourglass True


   Destination = CurrentProject.Path & "\tmp." & Mid$(URL, InStrRev(URL, ".") + 1)
   
   Set oWinHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
   oWinHTTP.Open "POST", URL, False
   oWinHTTP.send
   
   If oWinHTTP.Status = 200 Then
      FileNumber = FreeFile
      Open Destination For Binary Lock Read Write As #FileNumber
      
      buffer = oWinHTTP.ResponseBody
      Put #FileNumber, , buffer
      
      Close #FileNumber
      DownloadImage = Destination
   End If
   DoCmd.Hourglass False
   
finally:
    Erase buffer
    Set oWinHTTP = Nothing
    Exit Function
catch:
    DoCmd.Hourglass False
    MsgBox "Error number" & Err.Number & vbCrLf & "Description : " & Err.Description, vbExclamation, "DownloadImage()..."
    Close 'close all open files
    Resume finally
End Function

بعد ان يتم تحميل الصورة و تخزينها في الذاكرة المؤقته يتم استدائها بنفس الرابط الذي تم تحميلها من

من خلال الكود التالي

Me.picture1.Picture = DownloadImage("http://stylis7.com/up/uploads/images/stylis7-4e2761ce34.png")

 

تفضل المثال

مثال لجلب الصورة من رابط.mdb 228 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 7 downloads

يعطيك العافية يا غالي

ولكن انا عندي الملفات المرفقة اما صور او PDF تمام 

اذا كانت صور وعملت عرض بيانات تظهر اما اذا كان الملف PDF لايظهر في اطار الصورة ما الحل

[د.كاف يار]

6 دقائق مضت, nogom said:

يعطيك العافية يا غالي

ولكن انا عندي الملفات المرفقة اما صور او PDF تمام 

اذا كانت صور وعملت عرض بيانات تظهر اما اذا كان الملف PDF لايظهر في اطار الصورة ما الحل

بالطبع اخي الكريم لن يظهر ملف PDF في اطار صورة و يجب ان تعي ذلك تماما

لكن توجد طرق اخرى مثلا

اضافة عارض ملفات PDF خلف اطار الصورة 

جعل اطار الصورة و اطار عارض ملفات PDF  جعلها جميعا مخفية

في حال ان الرابط المدخل في مربع النص بصيغة صورة يتم عرض اطار الصورة 

اما في حال النهاية الطرفية للرابط هي PDF يتم اخفاء اطار الصورة و اظهار اطار عارض ملفات PDF

 

مجرد فكرة و لك حرية الاختيار

تم تعديل أغسطس 29, 2019 بواسطه د.كاف يار

[nogom]

الان, د.كاف يار said:

بالطبع اخي الكريم لن يظهر ملف PDF في اطار صورة و يجب ان تعي ذلك تماما

لكن توجد طرق اخرى مثلا

اضافة عارض ملفات PDF خلف اطار الصورة 

جعل اطار الصورة و اطار عارض ملفات PDF  جعلها جميعا مخفية

في حال ان الرابط المدخل في مربع النص بصيغة صورة يتم عرض اطار الصورة 

اما في حال النهاية الطرفية للرابط هي PDF يتم اخفاء اطار الصورة و اظهار اطار عارض ملفات PDF

 

مجرد فكرة و لك حرية الاختيار

ممكن الطريقة 

عم عذبك معي

[د.كاف يار]

ابشر اعطيني شوية وقت و اتمنى من الاخوان مشاركتنا بالفكرة و الحلول

[د.كاف يار]

تفضل الملف بعد التعديل اخي الكريم

سيتم قراءة آخر ثلاث احرف من النهاية الطرفية لأي رابط مدخل 

 

pdf - imge.accdb

[m.r]

خوية بلا زحمة هذا الكود يصير اخليه على مستعرض ويب حتى يصغر عرض الـ pdf لان من ارفق مسار ملف pdf يتم عرض الملف بحجم كبير

[nogom]

في ٢٩‏/٨‏/٢٠١٩ at 19:54, د.كاف يار said:

تفضل الملف بعد التعديل اخي الكريم

سيتم قراءة آخر ثلاث احرف من النهاية الطرفية لأي رابط مدخل 

 

pdf - imge.accdb 512 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 14 downloads

يعطيك العافية ياغالي

حملت الملف ولكن لايعمل يظهر لي عدة اخطاء

[د.كاف يار]

تفضل التعديل اخي الكريم

pdf - imge.accdb

[nogom]

46 دقائق مضت, د.كاف يار said:

تفضل التعديل اخي الكريم

pdf - imge.accdb 496 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 3 downloads

 

[ابو جودي]

في ٢٨‏/٨‏/٢٠١٩ at 11:35, nogom said:

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

اخواني عندي فورم فيه اضافة صورة او ملف PDF خارج اكسس 

وشغال معي تمام ولكن المشكلة في عرض المرفق

حطيت حقل (Image) عند العرض البيانات تظهر الصور  اما اذا كان المرفق ملف PDF لايظهر

غير وحطيت حقل (WebBrowser) عند عرض البيانات اذا كانت صورة تظهر بشكل كبير كما في الصورة الأولى وانا اريد ان تظهر بحجم صغير 

ولكن كانت الملف المرفق هو PDF تظهر لي هذه الرسالة كما في الصورة الثانية

اريد انا ان يظهر رمز الأيقونة وعند الصغط عليها يفتح

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