طلب تكويد فورم (استيراد وعرض ملفات "صور" او "PDF")

**عمر ضاحى** · مارس 22, 2022

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

معي طلب مساعده من حضراتكم

مش متأكد اذا كان هذا الطلب صعب ام لا

لكن لا اظنه صعب على عمالقه الاكسيس هنا

انا عامل نموذج وداخله اخر فرعي

لاستيراد روابط ملفات (صور او مستندات)

والمطلوب كما موضح بالصور

--------------------

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

Req_Link_img.rar

تم تعديل مارس 22, 2022 بواسطه عمر ضاحى

**ابو جودي** · مارس 23, 2022

اتفضل

Req_Link_img.accdb

**Moosak** · مارس 23, 2022

مهندسنا الغالي @ابو جودي قام بعمل الجزء الأول من الطلب 🙂

وأنا أكملت الجزء الثاني .. وهو عرض الصور في الفورم الآخر .. 🙂

وهذه هي النتيجة :

132728154_ShowImages.gif.755769304b2c98f773e19a95e962351b.gif

<< ملاحظة >> الحد الأقصى لعدد الصور القابل عرضها هو 16 صورة .. ولعرض المزيد يجب تعديل تصميم النموذج وزيادة خانات الصور ومن ثم تعديل الكود ليقبل أكثر من ذلك. 🙂

المرفق :

Req_Link_img.accdb

**د.كاف يار** · مارس 23, 2022

تفضل هذه المشاركة بلغة html

image.png.30b01a96833c7112a33520c874dcd76b.png

Dim db As DAO.Database, rs As DAO.Recordset
Dim sFile As String, FSO As Object, oFile As Object, HtmlText As String
Dim oFSO As Object, oFolder As Object, i As Integer, x As String
HtmlText = "<!DOCTYPE html><html><head><meta charset='utf-8' /><title></title>"
HtmlText = (HtmlText) & "<style>.cursor {cursor: pointer;}.hover-shadow:hover {box-shadow: 0 4px 8px 0 rgba(0, 0, 0, 0.2), 0 6px 20px 0 rgba(0, 0, 0, 0.19);}.div {padding:10px;text-align:center;float:left;margin-left:1%;width:21%;height:133px;}</style></head><body>"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(CurrentProject.Path & "\Images")

    Set rs = CurrentDb.OpenRecordset("SELECT * FROM Link where ID=" & ID)
    
    If Not rs.BOF And Not rs.EOF Then
        rs.MoveFirst
        While (Not rs.EOF)
        x = x & vbNewLine & "<div class='div'><img class='hover-shadow cursor' src='" & rs.Fields(1) & "' style='width:100%;height:133px;'><div>" & rs.Fields(2) & "</div></div>"
            rs.MoveNext
        Wend
    End If
    rs.Close
    Set rs = Nothing
    
    HtmlText = (HtmlText) & x & "</body></html>"
    
    sFile = CurrentProject.Path & "\" & ID & ".html"
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set oFile = FSO.CreateTextFile(sFile)
    oFile.WriteLine HtmlText
    oFile.Close
    Set FSO = Nothing
    Set oFile = Nothing
    Me.WebBrowser257.ControlSource = "=""" & sFile & """"
    Me.WebBrowser257.Object.Silent = True
    WebBrowser257.Visible = True

images.zip

**عمر ضاحى** · مارس 23, 2022

12 ساعات مضت, ابو جودي said:

اتفضل

Req_Link_img.accdb 620 kB · 9 downloads

ابو جودا

اولا باعتذر على التأخر فى الرد
لان اليوم ما قعدت فى الشغل بسبب شغل خارجي

قسم بالله كنت اشعر انك ستكون اول من يضع الرد هنا لا ادري ليه

بارك الله فيك وجعله فى ميزان حسناتك

ابداع ابداع :fff: :fff: :fff: :fff: :fff: :fff: :fff: :fff: :fff: :fff: :fff:

4 ساعات مضت, Moosak said:

مهندسنا الغالي @ابو جودي قام بعمل الجزء الأول من الطلب 🙂

وأنا أكملت الجزء الثاني .. وهو عرض الصور في الفورم الآخر .. 🙂

وهذه هي النتيجة :

<< ملاحظة >> الحد الأقصى لعدد الصور القابل عرضها هو 16 صورة .. ولعرض المزيد يجب تعديل تصميم النموذج وزيادة خانات الصور ومن ثم تعديل الكود ليقبل أكثر من ذلك. 🙂

المرفق :

Req_Link_img.accdb 676 kB · 4 downloads

انا كنت حاسس ان ده مستحيل

لكن المستحيل فى ايديكم سهل

ربنا يكرمكم ويحفظكم من كل سوء

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

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

تفضل هذه المشاركة بلغة html

Dim db As DAO.Database, rs As DAO.Recordset
Dim sFile As String, FSO As Object, oFile As Object, HtmlText As String
Dim oFSO As Object, oFolder As Object, i As Integer, x As String
HtmlText = "<!DOCTYPE html><html><head><meta charset='utf-8' /><title></title>"
HtmlText = (HtmlText) & "<style>.cursor {cursor: pointer;}.hover-shadow:hover {box-shadow: 0 4px 8px 0 rgba(0, 0, 0, 0.2), 0 6px 20px 0 rgba(0, 0, 0, 0.19);}.div {padding:10px;text-align:center;float:left;margin-left:1%;width:21%;height:133px;}</style></head><body>"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(CurrentProject.Path & "\Images")

    Set rs = CurrentDb.OpenRecordset("SELECT * FROM Link where ID=" & ID)
    
    If Not rs.BOF And Not rs.EOF Then
        rs.MoveFirst
        While (Not rs.EOF)
        x = x & vbNewLine & "<div class='div'><img class='hover-shadow cursor' src='" & rs.Fields(1) & "' style='width:100%;height:133px;'><div>" & rs.Fields(2) & "</div></div>"
            rs.MoveNext
        Wend
    End If
    rs.Close
    Set rs = Nothing
    
    HtmlText = (HtmlText) & x & "</body></html>"
    
    sFile = CurrentProject.Path & "\" & ID & ".html"
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set oFile = FSO.CreateTextFile(sFile)
    oFile.WriteLine HtmlText
    oFile.Close
    Set FSO = Nothing
    Set oFile = Nothing
    Me.WebBrowser257.ControlSource = "=""" & sFile & """"
    Me.WebBrowser257.Object.Silent = True
    WebBrowser257.Visible = True

هذه نقطة تحول ما كنت اظن انها موجوده بالاكسيس

ما شاء الله

ابداع

شايف كود خليط بين ال VBA + HTML

ما كنت اتصور انه ممكن

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

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

images.zip 2.12 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads

**ابو جودي** · مارس 23, 2022

اعتذر لم يسعفنى الوقت لتنقيذ المطلب الثانى وعندما هممت لتحقيقه وجدت اساتذتى الافاضل بارك الله فيهم كفوا ووفوا

**عمر ضاحى** · مارس 23, 2022

10 ساعات مضت, ابو جودي said:

اعتذر لم يسعفنى الوقت لتنقيذ المطلب الثانى وعندما هممت لتحقيقه وجدت اساتذتى الافاضل بارك الله فيهم كفوا ووفوا

ولا يهمك يكفينى شرف زيارتك ومساعدتك لى

ربنا يبارك لك فى عافيتك وعلمك

**عمر ضاحى** · مارس 23, 2022

10 ساعات مضت, Moosak said:

مهندسنا الغالي @ابو جودي قام بعمل الجزء الأول من الطلب 🙂

وأنا أكملت الجزء الثاني .. وهو عرض الصور في الفورم الآخر .. 🙂

وهذه هي النتيجة :

<< ملاحظة >> الحد الأقصى لعدد الصور القابل عرضها هو 16 صورة .. ولعرض المزيد يجب تعديل تصميم النموذج وزيادة خانات الصور ومن ثم تعديل الكود ليقبل أكثر من ذلك. 🙂

المرفق :

Req_Link_img.accdb 676 kB · 8 downloads

ممكن اطلب اضافه صغيره ؟

وهو اذا ضغطة على الصوره يتم فتحها لى (سواء كانت صوره او ملف مستندي )

**Moosak** · مارس 24, 2022

9 ساعات مضت, عمر ضاحى said:

ممكن اطلب اضافه صغيره ؟

من عينيه 🙂

مع تحسين بسيط لشكل الصور .. بس فيه مشكلة بسيطة أنه ملفات ال PDF ما يتم عرض صورة مصغرة لها ولكن تفتح عادي كرابط 🙂

image.png.a98a00a7459e8e93306013668829b9ff.png

تفضل :

Req_Link_img.accdb

**عمر ضاحى** · مارس 24, 2022

تسلملى عيونك

ويبارك فيك

الف الف شكر

هذا هو المطلوب

تسجيل الدخول

طلب تكويد فورم (استيراد وعرض ملفات "صور" او "PDF")

الردود الموصى بها

عمر ضاحى

ابو جودي

Moosak

د.كاف يار

عمر ضاحى

ابو جودي

عمر ضاحى

عمر ضاحى

Moosak

عمر ضاحى

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information