Eng.Qassim

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

بصراحة لم اطلع على البرنامج كاملا..الدالة refereshعادة ماتعمل اهتزاز ارجع لكودك القديم

جرب التعديل ...بصراحة اللجان داخلة على بعضها 😄 مركز الاصلاح1.rar

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

اعتقد ان هذا الموضوع شبيه لما تريده

اضافة لما تفضل به استاذ ناقل .. يمكن استخدام الكود Dim PageNo As Integer PageNo = Me.CurrentRecord DoCmd.SelectObject acForm, "MyForm", True DoCmd.PrintOut acPages, PageNo, PageNo, , 1 ولطباعة الصفحة الحالية فقط ..اتبع الخطوات التالية

ياسلام على الابداع استاذ موسى ...كلك ذوق يافنان

بالخدمة استاذ طارق

احسنت اخي .. لم انتبه الى المسافة

هو لايذهب الى اول صفحة وانما يذهب لاول سجل في مربع التحرير والراجل حقه يهتز ..فانت محمله اكثر من طاقته يجب ان ننتبه الى ان استعلام SELECT لايتم فيه تغيير البيانات ولهذا لاتحتاج الى مربع تحرير ثانيا ..في رايي الاختصار في الاكواد مهم جدا حسب عمل الكود ... فللانتقال للاعلى بين السجلات استخدم If Me.CurrentRecord > 1 Then DoCmd.GoToRecord , , acPrevious End If وللانتقال الى الاسفل نستخدم If Me.CurrentRecord <= Me.RecordsetClone.RecordCount Then DoCmd.GoToRecord , , acNext End If و صلى الله وبارك.. انظر للمرفق.. عملت نموذج جديد اضافة لنموذجك القديم ولاحظ الفرق هو (يهز) بس قليل 😄 جداول.rar

وانت بالف خير

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

اسف على التاخير بسبب وعكة صحية ...ولو انك نبهتني من البداية لكان ايسر انظر للتعديل عسى انه يلبي طلبك مساعدات مرضية تعديل 1(1).rar

هناك الكثير من المشاركات في المنتدى...وهذ واحد منها

المشكلة تظهر عندي بعد غلق النموذج وليس عند الحفظ عملت On Error Resume Next فاختفت الرسالة

لصاحب السؤال اخي ناقل

لا اجزم باني فهمت السؤال بالكامل انظر لهذه المحاولة عسى انها تقرب المسافات لما تريد AAA.accdb

ممكن حضرتك ترفع االقاعدة على نسخة اقدم؟

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

اعتقد الموضوع مختلف استاذ ناقل

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

استاذ @ابو جودي عند تنفيذ الكود..كل الحقول والزرار تختفي

ممكن حضرتك تشرح المطلوب بالتفصيل؟

دكتورنا العزيز...احتمال فرحان ببدلة العيد والكود مش شغال معاك 😂 كل عام وانت بخير... الكود شغال وزي الفل

اعتقد باني فهمت مطلبك الثاني انظر للتعديل الثاني مساعدات مرضية تعديل 1(1).rar