Eng.Qassim

على بركة الله استاذ @Amr Ashraf حتى تعملنا (واهس) بدخول معترك NET.

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

الف مبروك اخي @abouelhassan على ابداع اخينا واستاذنا @أبو عبدالله الحلوانى

هذا هو الهدف الاسمى..جزاك الله خخيرا استاذي

هو بينقط علينا شوية شوية 😄

اضافة لما تفضل به استاذي @أبو عبدالله الحلوانى انتبه دائما الى نوع البيانات Dim year1 As Date Dim year2 As Date Dim month1 As Date Dim month2 As Date year1 = Int(DatePart("yyyy", Vdate1)) year2 = Int(DatePart("yyyy", Vdate2)) month1 = Int(DatePart("m", Vdate1)) month2 = Int(DatePart("m", Vdate2)) If month2 < month1 Then DatDiffY = (year2 - year1) - 1 Else DatDiffY = year2 - year1 End If

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

شاهد هذه الطريقة حضور سائقي الملاكي 2022.rar

ما انا بعرف الصعايدة كلامهم كبير ومبيخش المية ربي يحفظ مصر.. واهل مصر يا غوالي امتنا

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

اعتقد لان option value تتعامل مع الارقام وليس مع النص ...فرقم 1 يجلب رقم 1 الذي يمثل العميل فلو حذفت الارقام من value list لحقل النوع فلن يجلب لك شيئا

احسنت استاذ ابو عبد الله.. دالة TemVar جدا مهمة وجميلة فهي تقوم بخزن السجل الذي نختاره خلف قاعدة البيانات ونقوم باستدعائها عند الحاجة

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

بصراحة لم اطلع على البرنامج كاملا..الدالة 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