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

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

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

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

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

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

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

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

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

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

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

Req_Link_img.rar

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

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

اتفضل

Req_Link_img.accdbFetching info...

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

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

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

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

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

المرفق :

Req_Link_img.accdbFetching info...

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

تفضل هذه المشاركة بلغة 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

images.zipFetching info...

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

في 23‏/3‏/2022 at 00:59, ابو جودي said:

اتفضل

Req_Link_img.accdb 620 kB · 9 downloads

Expand

ابو جودا

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

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

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

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

في 23‏/3‏/2022 at 09:03, Moosak said:

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

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

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

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

المرفق :

Req_Link_img.accdb 676 kB · 4 downloads

Expand

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

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

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

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

في 23‏/3‏/2022 at 13:21, د.كاف يار 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

Expand

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

ما شاء الله

ابداع

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

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

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

في 23‏/3‏/2022 at 13:21, د.كاف يار said:

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

Expand

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

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

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

في 23‏/3‏/2022 at 15:04, ابو جودي said:

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

Expand

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

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

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

في 23‏/3‏/2022 at 09:03, Moosak said:

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

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

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

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

المرفق :

Req_Link_img.accdb 676 kB · 8 downloads

Expand

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

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

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

في 23‏/3‏/2022 at 19:30, عمر ضاحى said:

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

Expand

من عينيه 🙂

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

تفضل :

Req_Link_img.accdbFetching info...

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

تسلملى عيونك

ويبارك فيك

الف الف شكر

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

تسجيل الدخول

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

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

عمر ضاحى

ابو جودي

Moosak

د.كاف يار

عمر ضاحى

ابو جودي

عمر ضاحى

عمر ضاحى

Moosak

عمر ضاحى

Join the conversation

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

تصفح الموقع

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

Support

Important Information