اذهب الي المحتوي
أوفيسنا

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


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

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

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

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

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

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

 

sa3.rar

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

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

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

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
رابط هذا التعليق
شارك

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

 

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

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

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

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

 

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

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

 

شكرا

جعفر

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

منذ ساعه, سلمان الشهراني said:

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

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

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

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

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

30 دقائق مضت, jjafferr said:

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

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

33 دقائق مضت, jjafferr said:

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

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

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

هممم

12 دقائق مضت, أبو إبراهيم الغامدي said:

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

 

منذ ساعه, jjafferr said:

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

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

في الفترة بين 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
رابط هذا التعليق
شارك

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

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

تم تعديل بواسطه أبو إبراهيم الغامدي
  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

مجهود جبار وعمل تشكر عليه
زاك الله من علمه ووسع عليك في رزقك والف شكر لك وكلمة شكراً لاتكفى ولكن لك دعوات في ظهر الغيب
كفييت ووفيت وعمل اكثر رائع

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

  • 4 weeks later...
  • 1 year later...
في ٢٩‏/٤‏/٢٠١٩ at 15:49, أبو إبراهيم الغامدي said:

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

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

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

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

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

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

5 ساعات مضت, ناقل 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

 

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

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

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

في ٢٨‏/٤‏/٢٠١٩ at 20:25, أبو إبراهيم الغامدي said:

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

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

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

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

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

1 ساعه مضت, احمد الفلاحجي said:

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

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

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

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

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

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

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

 

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

الكسل..

الوقت..

 

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

Dashboard2003.mdb

 

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

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

10 دقائق مضت, أبو إبراهيم الغامدي said:

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

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

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

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

11 دقائق مضت, أبو إبراهيم الغامدي said:

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

الكسل..

الوقت..

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

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

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

13 دقائق مضت, أبو إبراهيم الغامدي said:

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

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

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

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

21 دقائق مضت, أبو إبراهيم الغامدي said:

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

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

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

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

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

6 ساعات مضت, أبو إبراهيم الغامدي 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

 

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

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

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

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

 

5 ساعات مضت, احمد الفلاحجي said:

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

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

1.png

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

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

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

Important Information