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

اظهار نتائج استعلام باستخدام html

سلمان الشهراني

بواسطه سلمان الشهراني
في قسم الأكسيس Access

 مشاركة
إذهب إلى الإجابة الإجابة بواسطة أبو إبراهيم الغامدي,

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

موصى به

قام بكتابته أبو إبراهيم الغامدي,

هذه النسخة الأخيرة من التعديل أرجو أن تكون فيها فائدة للجميع.. وأعتذر للجميع بإغلاق المشاركة.. Dashboard2003.mdb

التعديل النهائي لإجابة هذه المشاركة

أوصى به أبو إبراهيم الغامدي

  • Thanks
  • Like

3 reactions

Go to this post
سلمان الشهراني

سلمان الشهراني

قام بنشر
قام بنشر (معدل)

اخواني الاعزاء اسعدالله اوقاتكم
تم طرح موضوع بخصوص عمل شاشه خاصه بالشقق والفنادق والجميع ماقصر وفي مقدمتهم الاستاذ 

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

ولكن عند العمل على البرنامج احتجت الى اظهار فقط نتائج الاستعلام على الشاشة بإستخدام   html

 لا اطيل عليكم الشرح والفكره بالمرفق وهي عباره عن البرنامج وملف اكسل موضح فيه الحقول والاستعلامات المطلوب استخراج البيانات منها
وشاكر للجميع

 

sa3.rarFetching info...

تم تعديل بواسطه سلمان الشهراني
أبو إبراهيم الغامدي

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

قام بنشر
قام بنشر

أهلا @سلمان الشهراني

في هذا التعديل أنشأت وظيفة تعيد بيانات الاستعلامين التي أشرت إليها في المرفق، وضمنتها ببطاقة التعريف بالشكل التالي 

Function CardDetails(ID As Long)
On Error Resume Next
  Dim P1 As dao.Recordset, P4 As dao.Recordset
  Dim H As String
  Set P1 = CurrentDb.OpenRecordset("select * from qr_p1 where Apartment_No4=" & ID)
  Set P4 = CurrentDb.OpenRecordset("select * from qr_p4 where id=" & ID)
 
  H = H & "<p class='first'>" & P1!Name1 & "</p>"
  H = H & "<p><span>تاريخ الدخول</span>" & Format(P1!Date_Entry, "yyyy/mm/dd") & "</p>"
  H = H & "<p><span>المبلغ المدفوع</span>" & P1!Mdfo3 & "</p>"
  H = H & "<p><span>المبلغ المتبقي</span>" & P1!Residual & "</p>"
  H = H & "<p><span>مبالغ أخرى</span>" & P4!Total2 & "</p>"
  
  CardDetails = H
  
End Function

 

إليك المرفق: Dashboard2003.mdb

  • Like 7
jjafferr

jjafferr

قام بنشر
قام بنشر

السلام عليكم 🙂

 

اخوي ابو ابراهيم ،

احنا خلفيتنا اكسس ، ونستخدم WebBrowser ليدعم اعمالنا البسيطة في الاكسس ،

ولكنك تستخدم الاكسس ليدعم WebBrowser في نتائجه ، 

وشتان بين ذي الجار وذي الجار 🙂

 

في الواقع كنت استعمل WebBrowser كنتيجة او تقرير ، او للأخذ والعطاء مع احد مواقع الانترنت ،

بينما نجد انك تستعمله هنا كنموذج يمكن الاخذ والعطاء معه ، مع بقية كائنات قاعدة البيانات ، وهذا شيء جميل ولم ارى له مثيل (لا في المنتديات العربية ولا الاجنبية) ، وياريت تستثمر لنا من وقتك وتستعمل المثال اعلاه ، وتفرد فيه موضوع خاص وتشرح طريقة العمل ، لتعم الفائدة 🙂

 

شكرا

جعفر

  • Like 2
أبو إبراهيم الغامدي

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

قام بنشر
قام بنشر
  في 28‏/4‏/2019 at 16:12, سلمان الشهراني said:

اذا فيه امكانية يكون كل صف 6 شقق بدال 4

Expand  

نعم يمكن.. لكن سوف يؤثر هذا على طريقة عرض البيانات..

سوف أقوم بإعادة ترتيب البطاقة بشكل مختلف  ليتلائم مع الوضع الجديد.. إن شاء الله

  • Like 1
أبو إبراهيم الغامدي

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

قام بنشر
قام بنشر

أهلا بك أستاذ جعفر..

  في 28‏/4‏/2019 at 17:37, jjafferr said:

بينما نجد انك تستعمله هنا كنموذج يمكن الاخذ والعطاء معه ، مع بقية كائنات قاعدة البيانات ، وهذا شيء جميل ولم ارى له مثيل (لا في المنتديات العربية ولا الاجنبية)

Expand  

أنت تبالغ أستاذ! لو كان هناك طلب على هذا الأسلوب لكان أول من يبدع فيه أنت..

  في 28‏/4‏/2019 at 17:37, jjafferr said:

وياريت تستثمر لنا من وقتك وتستعمل المثال اعلاه ، وتفرد فيه موضوع خاص وتشرح طريقة العمل ، لتعم الفائدة 🙂

Expand  

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

  • Like 2
jjafferr

jjafferr

قام بنشر
قام بنشر

هممم

  في 28‏/4‏/2019 at 18:25, أبو إبراهيم الغامدي said:

أنت تبالغ أستاذ! لو كان هناك طلب على هذا الأسلوب لكان أول من يبدع فيه أنت..

Expand  

 

  في 28‏/4‏/2019 at 17:37, jjafferr said:

وهذا شيء جميل ولم ارى له مثيل (لا في المنتديات العربية ولا الاجنبية)

Expand  

في الواقع ، ولأول مرة ابوح بهذا الشيء بالتفصيل :

في الفترة بين 2003 و 2007 كنت اشارك في المنتدى الاجنبي https://www.experts-exchange.com/members/jjafferr.html

وفي سنة 2005 اصبحت احد افضل 15 مشارك/خبير في منتدى الاكسس هناك https://www.experts-exchange.com/questions/21454217/jjafferr-Top-15-Overall-HOF.html

وتدرّجت الى ان وصلت الرقم 10 على ما اتذكر ، وحصلت على اعلى شهادة يُعطيها الموقع آنذاك Genuis 🙂

 

لهذا السبب ، صدقني لما اقول ، ولازلت مُصر ، بأني لم ارى استعمال WebBrowser كما تستعمله انت ، كنموذج يحاكي بقية كائنات قاعدة البيانات 🙂

 

جعفر

  • Like 2
  • Thanks 1
  • 4 weeks later...
  • 1 year later...
ناقل

ناقل

قام بنشر
قام بنشر
  في 29‏/4‏/2019 at 12:49, أبو إبراهيم الغامدي said:

أهلا @سلمان الشهراني

جرب هذا التعديل: Dashboard2003.mdb

Expand  

انا اسف الموضوع قديم شوي لكن ..

ممكن اخي ابا ابراهيم شرح كيف تم تمرير فتح النموذج لعبارة لزر المزيد

بارك الله فيك ... واكرر اسفي مرة اخرى

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

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

قام بنشر
قام بنشر
  في 12‏/2‏/2021 at 22:28, ناقل said:

انا اسف الموضوع قديم شوي لكن ..

ممكن اخي ابا ابراهيم شرح كيف تم تمرير فتح النموذج لعبارة لزر المزيد

بارك الله فيك ... واكرر اسفي مرة اخرى

Expand  

أهلا بك عزيزي..

لا بأس إذا كان الأمر يتعلق بذات الموضوع..

زر الأمر "المزيد" عبارة عن رابط.. والروابط في HTML تحدث انتقال إلى شيء ما..

في حدث "قبل الانتقال" المتعلق بالروابط الموجودة على الصفحة: نقوم بإعاقة الرابط من الانتقال، وبعدها نأخذ بيانات الغرفة  -والتي سبق أن مررناها للرابط- ونضعها في وظيفة فتح النموذج.. هذا كل ما في الأمر.. 

<a href='" & "ID" & RS(0) & "' class='button'> المزيد </a>

خصيصة الرابط "href" مررنا إليها معرف الشقة، وعند النقر عليها يمرر المستعرض هذه القيمة إلى محدد نصي اسمه "URL" في حدث ما قبل الانتقال "BeforeNavigate2"..

بعد ذلك نعيد استخراج معرف الشقة ونمرره إلى وظيفة فتح النموذج 

Private Sub WebBrowser_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
    If URL Like "about:id*" Then
        'Debug.Print URL
        DoCmd.OpenForm "FM_2", , , "cstr(ID)=" & CStr(Mid(URL, 9)), , acDialog
        Cancel = True
  End If
End Sub

 

  • Like 2
  • Thanks 1
أبوبسمله

أبوبسمله

قام بنشر
قام بنشر

جزاك الله خيرا اخى ناقل ع رفعك للموضوع فلم اره الا الان

جزاك الله خيرا اخى واستاذى @أبو إبراهيم الغامدي

  في 28‏/4‏/2019 at 18:25, أبو إبراهيم الغامدي said:

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

Expand  

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

وجزاكم عنا كل خير

بالتوفيق اخوانى

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

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

قام بنشر
قام بنشر
  في 13‏/2‏/2021 at 06:20, احمد الفلاحجي said:

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

وجزاكم عنا كل خير

Expand  

أهلا بك عزيزي أحمد..

في الواقع لم أفعل ..

أما عن الاشكالات.. فمن أهمها..

استشعار أحداث وسوم صفحة المستعرص من داخل أكسس! وهذا بحمد الله تم الانتهاء منه..

جعل الصفحة تتفاعل مع تنسيقات الجيل الجديد.. وهذا بحمد الله تم الانتهاء منه..

 

أما العقبات.. فمن أقواها..

الكسل..

الوقت..

 

انظر إلى الفرق بين النسخة السابقة من المثال وبين النسخة التالية

Dashboard2003.mdb 552 kB · 75 downloads

 

  • Like 3
أبوبسمله

أبوبسمله

قام بنشر
قام بنشر

مرحبا بك استاذى العزيز

  في 13‏/2‏/2021 at 08:15, أبو إبراهيم الغامدي said:

أما عن الاشكالات.. فمن أهمها..

استشعار أحداث وسوم صفحة المستعرص من داخل أكسس! وهذا بحمد الله تم الانتهاء منه..

جعل الصفحة تتفاعل مع تنسيقات الجيل الجديد.. وهذا بحمد الله تم الانتهاء منه..

Expand  

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

  في 13‏/2‏/2021 at 08:15, أبو إبراهيم الغامدي said:

أما العقبات.. فمن أقواها..

الكسل..

الوقت..

Expand  

اما عن الكسل فاذكر نفسى واياكم بحديث سيدنا وحبيبنا وامامنا وشفعينا محمد صل الله عليه وعلى آله وسلم

اللهم إني أعوذ بك من الهم ، والحزن ، والعجز ، والكسل والجبن ، والبخل ، وغلبة الدين ، وقهر الرجال

اما عن الوقت فبارك الله فى اوقاتكم وملئها لكم بالخير والسعاده والسرور اينما كنتم

  في 13‏/2‏/2021 at 08:15, أبو إبراهيم الغامدي said:

انظر إلى الفرق بين النسخة السابقة من المثال وبين النسخة التالية

Expand  

سوف اطلع عليها بالتاكيد للتعلم صحيح اتعلم ببطىء ولكن الحمدلله رضا

جزاكم الله عنا كل خير اخوانى واساتذتى الكرام

أبوبسمله

أبوبسمله

قام بنشر
قام بنشر
  في 13‏/2‏/2021 at 08:15, أبو إبراهيم الغامدي said:

انظر إلى الفرق بين النسخة السابقة من المثال وبين النسخة التالية

Expand  

بسم الله ماشاء الله زادك الله من فضله وعلمه

تحكم رائع وروعه فالاداء و Responsive فعال جدا

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

ناقل

ناقل

قام بنشر
قام بنشر
  في 13‏/2‏/2021 at 05:36, أبو إبراهيم الغامدي said:

أهلا بك عزيزي..

لا بأس إذا كان الأمر يتعلق بذات الموضوع..

زر الأمر "المزيد" عبارة عن رابط.. والروابط في HTML تحدث انتقال إلى شيء ما..

في حدث "قبل الانتقال" المتعلق بالروابط الموجودة على الصفحة: نقوم بإعاقة الرابط من الانتقال، وبعدها نأخذ بيانات الغرفة  -والتي سبق أن مررناها للرابط- ونضعها في وظيفة فتح النموذج.. هذا كل ما في الأمر.. 

<a href='" & "ID" & RS(0) & "' class='button'> المزيد </a>

خصيصة الرابط "href" مررنا إليها معرف الشقة، وعند النقر عليها يمرر المستعرض هذه القيمة إلى محدد نصي اسمه "URL" في حدث ما قبل الانتقال "BeforeNavigate2"..

بعد ذلك نعيد استخراج معرف الشقة ونمرره إلى وظيفة فتح النموذج 

Private Sub WebBrowser_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
    If URL Like "about:id*" Then
        'Debug.Print URL
        DoCmd.OpenForm "FM_2", , , "cstr(ID)=" & CStr(Mid(URL, 9)), , acDialog
        Cancel = True
  End If
End Sub

 

Expand  

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

طيب سامحني لكثرة الاسئلة لان الغرض هو الاستفادة من المثال ......

لو حبينا نضيف زر بجوار الزر المزيد لفحح النموذج HTML ؟ هل ممكن ذلك ؟ وكيف تتم تمرير الامر للزر ؟؟

اشكرك لسعة صدرك أخي الفاضل 

 

  في 13‏/2‏/2021 at 06:20, احمد الفلاحجي said:

جزاك الله خيرا اخى ناقل ع رفعك للموضوع فلم اره الا الان

Expand  

بارك الله في أخي احمد

1.png

زائر
هذا الموضوع مغلق.
 مشاركة
الذهاب الي قائمه المواضيع

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

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

Important Information

  I accept