Eng.Qassim

نعم لم يعطي خطا في ال Debug

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

فعلا اخي بشمهندس محمد ..ياما تعمل مشاكل عدم وجود المسافة شكرا لحضرتك على التنبيه هو فعلا كان يعمل على ID ..لن قلت انه ربما لديه مارب اخرى ☺️

وعليكم السلام استاذ نبيل وضعت لك مفتاح للسلك في جدول الوظيفة Database331n.accdb

وعليكم السلام ضع الكود بالشكل التالي stLinkCriteria = "[Sys_ID]=" & Me![Sys_ID] & "And [Sys_Year]=" & Me![Sys_Year] & "and [Sys_Type]='" & Me![Sys_Type] & "'"

على بركة الله استاذ @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 ولطباعة الصفحة الحالية فقط ..اتبع الخطوات التالية

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

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