Eng.Qassim

مرحبا بك استاذ @jo_2010 بالنسبة للمطلب الثاني ليست لدي فكرة عنه LAB_GOOD.rar

حول ملفك الى نسخة 2013 او اقل

حتى ينتقل المؤشر على نفس الحقل عند الضغط على انتر تجعل ال stop tab=yes والبقية تجعلها NO

استعلام التوحيد لايمكن الاستغناء عنه في بعض مشاريعي اقوم بعمل الاستعلامات التي احتاج لاخراجها بشكل موحد ثم انسخ ال sql لها لكي اوحدها في استعلام واحد ثم امسح الاستعلامات طبعا تلك الطريقة غير احترافية ...المحترف يقوم بأنشاء استعلام توحيد مباشرة

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

بالتوفيق يارب

الاداة شغالة تمام ناجح.rar

جميل جدا مشاركة الاخوة الاساتذة... بصراحة لم اجازف واحولها الى اللغة العربية لانها تحتاج الى وقت و تدقيق لغوي فمثلا 10/4/2024 تقرأ ..العاشر من نيسان سنة الفين واربع وعشرين .. اعذروني فأنا ضعيف بقواعد اللغة العربية.. كل عام وانتم بالف خير ...نسأل الله تعالى ان يتقبل صيام الجميع ...عيد مبارك عليكم جميعا اللهم فرج على اخوتنا وابناءنا في غزة ..

وجدت هذا الملف في مكتبتي ..لكنه باللغة الانجليزية عسى ان ينفعك text date.rar

اعتقد هذه الطريقة تستخدم للملفات المحذوفة وليس الجداول (حصرا)

رأيي مع استاذي @ابوخليل جدول الانتظار فيه حقل yes/No وسوف يظهر فقط الفواتير في حال الانتظار ولانحتاج الى جدول اخر لالحاق البيانات ...الصور ادناه توضح المطلوب 1- 2- 3- استرجاع من الانتظار :عند الضغط على حقل اختيار تفتح لنا القائمة برقم الطاولة ..اما ان نضيف لها او نغلقها

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

اعتقد كمرحلة اولى عمل جدول للصادر وجدول للوارد وجدول للاقسام والمشاريع والمقاولين

سؤال مهم وربما يسبب مشاكل في بعض الاحيان ارجو ملاحظة الاستعلامات لرؤية الفرق Null & Empty.accdb

عمل جميل استاذ @Foksh لكنه لايحدث ان كان المعرف ترقيم تلقائي

في البداية كان سؤالك هكذا !! وهذا ما عملت عليه... referenceNo يتغير حسب اسم المشروع ويبدأ بالعد من جديد في بداية السنة الجديدة

بالتأكيد.. في استعلام mtb1 ...اعمل المعيار تحت الحقل ts هكذا: <=[Forms]![Form1]![txtP]

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

مشاركة مع الاساتذة عملت جدول جديد تلافيا لعدم فهمي للجداول الموجودة ادخل اسم المشروع عن طريق الكومبوبوكس Memos.rar

وعليكم السلام افتح النموذج وادخل النسبة التي تريدها ...تستطيع ان تفتح تقريرا بذلك مصدرة الاستعلام fatih.rar لم انتبه للجداول!!

وعليكم السلام اخ رعد اضافة لما تفضل به الاستاذ الفاضل @kkhalifa1960 المفروض معرفة المتبقي من القسط قبل ادخال مبلغ التسديد..مع ذلك ان اخطأ المستخدم في الرقم سوف تظهر له رسالة تنبيه طبعا نسيت تحديث المبلغ الواصل بعد ادخال مبلغ التسديد ...الموضوع يسير تسديدات الافراد.rar

السلام عليكم... اضافة لما تفضل به الاستاذ @Foksh لديك طريقتان : 1- تجعل خاصية popup =نعم و خاصية Modal =نعم ..بالنسبة للتقرير 2- تضع في زر فتح التقرير في النموذج السطر التالي: Docmd.Openreport "YourReport", acViewPreview, WindowMode:=acDialog

السلام عليكم.. بعد اذن اخي الاستاذ @kkhalifa1960 وضعت لك موديول يقوم بأستخلاص الارقام من الاحرف ...عسى ان يكون هذا طلبك DDTextToNumber.rar

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

السلام عليكم.. استاذ احمد...لماذا لا تعتمد سنوات الخدمة في احتساب الراتب عملت لك هذه الشفرة ..وهي شغالة بالنسبة (للبكلوريوس) لانها تبدأ من الدرجة السابعة فقط مرر سنوات الخدمة عبر startDate في الدالة Function IncreaseSalary(startDate As Double) As Double Dim years As Double Dim newSalary As Double years = startDate '7 If years <= 4 Then newSalary = 296 + ((years - 1) * 6) '6 ElseIf years > 4 And years <= 8 Then newSalary = 362 + ((years - 5) * 6) '5 ElseIf years > 8 And years <= 12 Then newSalary = 429 + ((years - 9) * 6) '4 ElseIf years > 12 And years <= 17 Then newSalary = 509 + ((years - 13) * 8) '3 ElseIf years > 17 And years <= 22 Then newSalary = 600 + ((years - 18) * 10) '2 ElseIf years > 22 And years <= 27 Then newSalary = 723 + ((years - 23) * 17) '1 Else newSalary = 910 + ((years - 28) * 20) End If IncreaseSalary = newSalary End Function