عرض البيانات في نموذج منبثق او عرضها في النموذج الاساسي عند الضغط على صورة الموظف

[kanory]

23 ساعات مضت, أبو إبراهيم الغامدي said:

إن شاء الله لن أخيبك، وسوف أعمل على هذا ما اتسع له وقت..

عند الرجوع إلى المشاركة التي جاء منها المثال؛ وجدت أني سبق وعملت على عارض الصور، فقمت بتحسين عرض الصور وبرمجة النموذج المنبثق.. لكني لست راضيا عن هذا العمل..

سوف أقوم في قابل الأيام؛ بعد توفيق الله ومشيئته بتحسن العمل لكي يعمل على مستعرض الويب بالكامل..

ما شاء الله تبارك الله

ملك دمج المتصفح مع الاكسس الاستاذ @أبو إبراهيم الغامدي بارك الله فيك .....

[Eng.Qassim]

لماذا تظهر معي هذه المشكلة ؟

وكما قال استاذي @kanory

ملك دمج المتصفح مع الاكسس الاستاذ @أبو إبراهيم الغامدي

[at_aziz]

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

اخواني الكرام 

حصلت معي مشكله في المثال السابق  اللي عدله استاذي الغالي @أبو إبراهيم الغامدي

ماعرفت كيف احلها

المشكله  هي انه لما قسمت قاعدة البيانات الى واجهه امامية وقاعدة بيانات 

وجعلت الملف اللي فيه الجدوال  والمجلد اللي فيه الصور  على السيرفر 

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

والمشكله انه

اصبحت الصور لاتظهر في الواجهه الاماميه الي موزعه على الاجهزة الاخرى المرتبطه بقاعدة البيانات في السيرفر

تظهر فقط على جهاز السيرفر

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

وايضا نقدر نضيف صور للموظف من اي جهاز على الشبكه مرتبط بقاعدة البيانات على السيرفر

مرفق المثال المطلوب التعديل عليه

Qiyas.zip

[أبو إبراهيم الغامدي]

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

أهلا بك..

3 ساعات مضت, at_aziz said:

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

في الشفرة التالية عدل الدليل الموصل للصور  إلى الدليل الموصل للسيرفر

Function WorkerCard(F As Form)
  Dim RS As dao.Recordset
  Dim ImgFile As String
  Dim H As String

  Set RS = CurrentDb.OpenRecordset("select * From WorkerSubQ where " _
                                  & "[Depart Id]=" & Nz(F.cboDepart, True))
  If RS.RecordCount = 0 Then Exit Function
  Do Until RS.EOF
    ImgFile = CurrentProject.Path & "\" & RS!Worker & ".jpg"   '... الدليل هنا يشير إلى قاعدة البيانات الواجهة
    H = H & "<div class='card'>"
    H = H & "<div class='container'>"
    H = H & "<a href=#ID:" & RS!WorkerID & "><img src='" & ImgFile & "'></a>"
    H = H & "<h3><b>" & RS!Worker & "</b></h3>"
    H = H & "<p>" & RS!Depart & "</p>"
    H = H & "</div>"  ' end of container
    H = H & "</div>"  ' end of card
  RS.MoveNext
  Loop
  WorkerCard = H
  Set RS = Nothing
End Function

 

 

3 ساعات مضت, at_aziz said:

وايضا نقدر نضيف صور للموظف من اي جهاز على الشبكه مرتبط بقاعدة البيانات على السيرفر

لم توضح لي الطريقة التي تستخدمها في إضافة الصور.. وفي تصوري أسهل طريقة أن تعمل  Map Driver للسيرفر على كل الأجهزة ومن ثم تضع الصورة في مجلد الصورة برقم الموظف..

لن يكون باستطاعتي مساعدتك بالقدر الكافي لأنه يوجد لدي بيئة مماثلة لبئية السيرفر.. 

 

تنبيه للجميع..

في المرات القادمة أرجو فتح مشاركة جديدة مع الإشارة إلى الموضوع السابق لكي يتمكن من يجيب على مشاركتك بأفضل إجابة خاصة به 😉🤑

[at_aziz]

جزاك الله خير وبارك فيك استاذنا الغالي ابا ابراهيم

الف شكر لك والله يعطيك الصحة والعافيه

ان  شاء الله بجرب على السيرفر  اذا رجعت للدوام 

احترامي لك