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

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

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

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

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

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

 

sa3.rar

تم تعديل أبريل 26, 2019 بواسطه سلمان الشهراني

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

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

أرجو منك رفع قاعدة البيانات على 2007

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

ابشر

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

تفضل

sa3.rar

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

للأسف لم استطع فتح قاعدة البيانات

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

حولتها بصيغة 2003

طيب اشوفها مره ثانيه ونزلها بس اتاكد ممكن حملت صيغة 2010

Dashboard2003.rar

تم تعديل أبريل 26, 2019 بواسطه سلمان الشهراني

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

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

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

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

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

مشالله تبارك الله مبدع 

حملت المرفق وبوافيك بالنتيجه 

تسلم وبيض الله وجهك

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

الله يعطيك العافيه جدا فوق الممتاز

بس عطني يوم او يومين ووافيك بالنتيجه النهائيه

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

استاذي

عاجز عن الشكر

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

100 ٪

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

وشاكر لك 

وكفيت ووفيت

[jjafferr]

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

 

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

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

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

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

 

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

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

 

شكرا

جعفر

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

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

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

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

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

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

الله يسعدك ويوفقك

وابد لاتعب حالك الموجوده لاغبار عليه جدا ممتازه

اذا شغلها فيه مشقه نكتفي بالموجود

 

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

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

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

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

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

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

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

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

[jjafferr]

هممم

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 كما تستعمله انت ، كنموذج يحاكي بقية كائنات قاعدة البيانات 🙂

 

جعفر

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

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

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

تم تعديل أبريل 29, 2019 بواسطه أبو إبراهيم الغامدي

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

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

[hafidcheraga]

سلام  عليكم 
ممكن عند تسجيل علي صفحة HTML تسجل البينات في قاعدة أكسس
وشكر

[ناقل]

في ٢٩‏/٤‏/٢٠١٩ 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

 

[ابوبسمله]

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 

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

الكسل..

الوقت..

 

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

Dashboard2003.mdb

 

[ابوبسمله]

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

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:

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

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