Eng.Qassim

جرب المرفق select.accdb

وعليكم السلام .. انت تقول بانك عامل نموذج مصدر بياناته ذلك الاستعلام من الطبيعي انه يظهر لك السجلات التي لم تعمل عليها سلكت.. ربما لم افهم مطلبك بشكل دقيق

انظر للتعديل .. NB.accdb

وعليكم السلام طالما انك تستطيع التصفية في نفس النموذج فلماذا تعمل نموذجين للاختيار؟ على كل حال ضع الكود التالي عند زر تاكيد Forms![Frm_employer]![Job].Value = Me.grade.Value DoCmd.Close Forms![Frm_employer]![Job].Requery

انتبه لشغلة .. اكسس وضعته مايكروسوفت

الكود ده هيكنني هيكنني .....🤣

ليست هذه المشكلة ...لديه سعر التكلفة =مجموع سعرالوارد/مجموع كمية الوارد بعض الحقول في كمية الوارد= صفر... وهذه عملت مشكلة ايضا

نعم لم يعطي خطا في ال 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 جدا مهمة وجميلة فهي تقوم بخزن السجل الذي نختاره خلف قاعدة البيانات ونقوم باستدعائها عند الحاجة