تحديد عدد سجلات النموذج المستمر التحكم بعدد عرض السجلات للنموذج المستمر

[ابو جودي]

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

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

ولازلت افكر بكيفة الحل 

تم حل المشكلة بفضل الله وتم تحديث المرفق

 

عدد السجلات للنموذج المستمر v.2.mdb

تم تعديل مارس 27, 2020 بواسطه ابا جودى
مشكلة بالمرفق

[أبوبسمله]

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

[ابو جودي]

15 دقائق مضت, أحمد الفلاحجى said:

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

صادفتنى الان مشكلة ولازلت افكر فى حل

لو تم مسح سجلات يحدث خلل   

 

اعتذر لاساتذتى لم انتبه لتلك المشكلة قبل المشاركة

[أبوبسمله]

2 دقائق مضت, ابا جودى said:

صادفتنى الان مشكلة ولازلت افكر فى حل

لو تم مسح سجلات يحدث خلل   

 

اعتذر لاساتذتى لم انتبه لتلك المشكلة قبل المشاركة

وعلام الاعتذار اخى واستاذى محمد فكلنا نخطىء ومن اخطائنا نتعلم الكثير بارك الله فيك

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

[أبوبسمله]

والان ظهرت المشكله الحقيقيه بعد اغلاق النموذج

لم تظهر البيانات 😀

[أبوبسمله]

اخى واستاذى العزيز محمد @ابا جودى

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

Private Sub Form_Open(Cancel As Integer)
 strSql = "SELECT TOP  10 tblData.ID, tblData.[NO], tblData.Locatin, tblData.SecName, tblData.DepName, tblData.RegDate FROM tblData;"
 Me.RecordSource = strSql
 Call RecordCount
 Call RecordCount
End Sub

 

[ابو جودي]

تم بفضل الله تعالى التغلب على المشكلة وتم حلها بحمد الله وتم تعديل المرفق

 

 عدد السجلات للنموذج المستمر v.2.mdb

[أبوبسمله]

13 دقائق مضت, ابا جودى said:

تم بفضل الله تعالى التغلب على المشكلة وتم حلها بحمد الله وتم تعديل المرفق

 

  عدد السجلات للنموذج المستمر v.2.mdb 484 kB · 1 تنزيلات

الحمدلله الذى بنعمته تتم الصالحات

احسنت بارك الله فيك وجزاك الله كل خير @ابا جودى

تم تعديل مارس 26, 2020 بواسطه أحمد الفلاحجى

[ابو جودي]

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

التصميم والأفكار والاكواد من بنات افكارى 

ام سبقنا اليه غيرنا 

[الحلبي]

استاذى ومعلمى الفاضل / مروض الاكسس / @ابا جودى

انت دائما منفرد وحصرى بأفكارك الجميلة 

ومش عارف ليه تحرمنا من ابداعاتك وتغيب عنا لعل يكون السبب خير ـ

كيف صحتك الأن يارب تكون بخير ويزيدك الله من الصحة ويبارك لك فى علمك

استاذى / @أحمد الفلاحجى

يعجز لسانى عن اى كلمات لما تقدمه لمساعدة الاخرين

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

[ابو جودي]

4 ساعات مضت, حلبي said:

استاذى ومعلمى الفاضل / مروض الاكسس / @ابا جودى

انت دائما منفرد وحصرى بأفكارك الجميلة 

ومش عارف ليه تحرمنا من ابداعاتك وتغيب عنا لعل يكون السبب خير ـ

كيف صحتك الأن يارب تكون بخير ويزيدك الله من الصحة ويبارك لك فى علمك

استاذى / @أحمد الفلاحجى

يعجز لسانى عن اى كلمات لما تقدمه لمساعدة الاخرين

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

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

ازيك يا دكتور والله وحشتوني جدا واشتاقت نفسي لكم 🌹 جدا جدا جدا

جزاكم الله خيرا

[رمهان]

اخينا وحبيبنا ابا جودي

لاشك ان لكم لمسات جميله 

ولكن انا لم افهم المشكله اولا ؟ فحسب فهمي عرض عشر سجلات في نموذج مستمر والتنقل كل عشره ؟ ولكن ماسيرة الحذف هنا ؟

ويمكن لو انزلت المرفق ان افهم ولكن عذرا ليس لدي كمبيوتر حاليا ولعله غدا باذن الله 

ولكنني تشوقت ان اعرف ونستفيد من بعض وتقبل تحياتي

[ابو جودي]

استاذى الجليل ومعلمى القدير الاستاذ @رمهان🌹

اشتاقت نفسي للقياكم كثيرا

انا باول الموضوع وضعت مرفق كمثال بالافكار التى دارت براسي وليس سؤال 

ولكن مع التجربة وجدت خلل بحدث عند مسح اى سجلات من الجدول

هذا لاننى اعتمدت على حقل الترقيم التلقائي 

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

وبفضل الله تعالى توصلت الى الحل وقمت باستبدال المرفق المعطوب بالاصدار المعدل

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

[jjafferr]

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

 

واذا عندي معيار في استعلام النموذج ؟

 

جعفر

[ابو جودي]

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

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

 

واذا عندي معيار في استعلام النموذج ؟

 

جعفر

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

استاذى الجليل ومعلمى القدير و والدى الحبيب 

اذا عندنا معيا فى استعلام النموذج نضيفه بالكود عادى

 

[jjafferr]

9 دقائق مضت, ابا جودى said:

اذا عندنا معيا فى استعلام النموذج نضيفه بالكود عادى

هل العمل الذي تقوم به هو لإثبات انه ممكن (Proof of Concept) 🙂

 

او حتى يستفيد منه الجميع ، المبتدئ والمحترف 😁

 

جعفر

[ابو جودي]

لا خالص والله انا احاول جاهدا كما تعلمت من اساتذتى ان اضع ابسط الحلول وباقى الافكار التى تعلوها لتعلم الفائدة

اى ان الاساس فيما اقدمه هو

حتى يستفيد منه الجميع ، المبتدئ والمحترف 😁

ولكن هذه الافكار خطرت ببالي بسبب سؤال 

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

ولما فوجئت بالخلل من المرفق الاول الذى قمت باستبداله

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

 

تم تعديل مارس 27, 2020 بواسطه ابا جودى

[ابو جودي]

طيب يا استاذى الجليل ومعلمي القدير و والدى الحبيب استاذ @jjafferr 🌹

هل افهم من رد حضرتك ان هذه الطريقة معقدة ولن تفيد الجميع 

وان كانت كذلك هل بمكن تبسيطها ام لا 

[رمهان]

اخي @ابا جودى

حملت المرفق بجهاز غير معرب فلم استطع تجربة المرفق بالشكل الصحيح

ولكن يبدو ان هناك استعلام غير موجود 

واحتاج افهم هل الهدف هو تصفح عدد محدد من السجلات في النموذج المستمر .. اي على شكل صفحات ؟ وهنا من يتحكم في عدد السجلات لكل صفحة( لكل نقرة زر الصفحة التالية) ؟ وكيف؟

ام ان الهدف شي اخر ؟؟؟؟؟ 

تحياتي 

[ابو جودي]

1 دقيقه مضت, رمهان said:

اخي @ابا جودى

حملت المرفق بجهاز غير معرب فلم استطع تجربة المرفق بالشكل الصحيح

ولكن يبدو ان هناك استعلام غير موجود 

واحتاج افهم هل الهدف هو تصفح عدد محدد من السجلات في النموذج المستمر .. اي على شكل صفحات ؟ وهنا من يتحكم في عدد السجلات لكل صفحة( لكل نقرة زر الصفحة التالية) ؟ وكيف؟

ام ان الهدف شي اخر ؟؟؟؟؟ 

تحياتي 

اهلا استاذى الجليل ومعلمى القدير الاستاذ @رمهان🌹

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

سوف اتيكم  بالاكواد والشرح سيدى

ولكن اعطنى دقائق انا اتصفح من الجوال لا يوجد انترنت فى الحاسوب

امهلنى لانقل ما اريد من ملفات الى الجوال اولا

[رمهان]

تمام ياحبيب الجميع

عايزك تضبط ارتفاع النموذج حتى يظهر فقط عشر سجلات ... تمام ياباشا ... وبعدها اضغط زر صفحة لاعلى او اسفل من الكيبورد .. هذا راح يعطيني الصفحة الثانية وحسب السجلات الظاهرة .. طيب وانت خبير هنا ازاي نترجمها لكود او ماكرو .. انت بتعرفها وانا حذكرك فقط والذكرى للمؤمنين .. باستخدام 

sendkeys "{pgdn}"

او كود رمهاني التالي تنقل للتالي 

DoCmd.GoToPage 1, , Me.InsideHeight - Me.FormHeader.Height

والتنقل لسابق واجب منزلي ابا جودي

هذا وانا جربت على مثال عندي غير مثالك 

وتقبل تحياتي وان شاء الله انه المطلوب ان احسنت الفهم

تم تعديل مارس 28, 2020 بواسطه رمهان
ارتفاع وليس عرض النموذج

[ابو جودي]

اتفضل استاذى اسف انا نسيت وكتبت عربي فى المرفق السابق داخل محرر الاكواد

تم تعديل هذا المرفق

 

 

عدد السجلات للنموذج المستمر v.2 (1).mdb

5 دقائق مضت, رمهان said:

تمام ياحبيب الجميع

عايزك تضبط عرض النموذج حتى يظهر فقط عشر سجلات ... تمام ياباشا ... وبعدها اضغط زر صفحة لاعلى او اسفل من الكيبورد .. هذا راح يعطيني الصفحة الثانية وحسب السجلات الظاهرة .. طيب وانت خبير هنا ازاي نترجمها لكود او ماكرو .. انت بتعرفها وانا حذكرك فقط والذكرى للمؤمنين .. باستخدام 

sendkeys "{pgdn}"

او كود رمهاني التالي تنقل للتالي 

DoCmd.GoToPage 1, , Me.InsideHeight - Me.FormHeader.Height

والتنقل لسابق واجب منزلي ابا جودي

هذا وانا جربت على مثال عندي غير مثالك 

وتقبل تحياتي وان شاء الله انه المطلوب ان احسنت الفهم

نعم سيدى ومعلمى ولكن لى هنا سؤال

الن تفرق هنا حجم واختلاف مقاس الشاشة من جهاز لاخر

[رمهان]

المرفق يعطيني خطأ بان هناك استعلام اسمه qryJudy وانا مش لاقيه

عالعموم شوف المشاركة السابقة وان شاء الله مفيده

تحياتي

5 دقائق مضت, ابا جودى said:

نعم سيدى ومعلمى ولكن لى هنا سؤال

الن تفرق هنا حجم واختلاف مقاس الشاشة من جهاز لاخر

حبيبي واخي اباجودي

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

تحياتي

[ابو جودي]

سوف اقوم بالتطبيق الان كما تفضلتم

وعلى كل هذه هى جملة الاستعلام التى استخدمتها

SELECT qryJudy.ID, * FROM (SELECT TOP 10 tblData.ID, tblData.[NO], tblData.Locatin, tblData.SecName, tblData.DepName, tblData.RegDate, Format(DCount("ID","tblData","ID <=" & [ID])) AS JudyID FROM tblData WHERE (((Format(DCount("ID","tblData","ID <=" & [ID])))<11)) ORDER BY tblData.ID DESC)  AS qryJudy ORDER BY qryJudy.ID;

 

[رمهان]

5 دقائق مضت, ابا جودى said:

سوف اقوم بالتطبيق الان كما تفضلتم

وعلى كل هذه هى جملة الاستعلام التى استخدمتها

SELECT qryJudy.ID, * FROM (SELECT TOP 10 tblData.ID, tblData.[NO], tblData.Locatin, tblData.SecName, tblData.DepName, tblData.RegDate, Format(DCount("ID","tblData","ID <=" & [ID])) AS JudyID FROM tblData WHERE (((Format(DCount("ID","tblData","ID <=" & [ID])))<11)) ORDER BY tblData.ID DESC)  AS qryJudy ORDER BY qryJudy.ID;

 

حبيبي واخي

اتفقنا انت تتكرم بالتطبيق

تحياتي

تم تعديل مارس 28, 2020 بواسطه رمهان