اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


at_aziz
إذهب إلى أفضل إجابة Solved by أبو إبراهيم الغامدي,

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

  • 2 months later...

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

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

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

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

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

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

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

والمشكله انه

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

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

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

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

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

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 للسيرفر على كل الأجهزة ومن ثم تضع الصورة في مجلد الصورة برقم الموظف..

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

 

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

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

  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information