Eng.Qassim

الكود التالي تقريبا يعطي تاريخ الميلاد فقط يحتاج تعديل ..اذا كان عدد الايام المدخلة اكبر من ايام تاريخ اليوم يقوم بزيادة 1 الى تاريخ الميلاد شوية تعذرني كوني مشغول لكن تلك الجزئية اعتقد سهلة Private Sub CmdBirth_Click() Dim yearValue As Integer Dim monthValue As Integer Dim dayValue As Integer Dim today As Date Dim dateOfBirth As Date yearValue = CInt(Me.T1) monthValue = CInt(Me.T2) dayValue = CInt(Me.T3) today = Date dateOfBirth = DateAdd("yyyy", -yearValue, today) dateOfBirth = DateAdd("m", -monthValue, dateOfBirth) dateOfBirth = DateAdd("d", -dayValue, dateOfBirth) Me.YY = dateOfBirth End Sub

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

السلام عليكم استاذ @kkhalifa1960 Me.M2 = [S2] Me.YY = Format([S1], "yyyy") & "/" & [S2] & "/" & Format([S3], "d") لاتحتاج الى فورمات لانها تعيد فقط الشهر بدون تاريخ

هو هذا اللي اريده ...عاشت ايدك ابو جودي مع اعتذاري للاخوة الاساتذة @kkhalifa1960... @Foksh عندنا ...مهما تعبت على البرنامج ...يبقى شكل التقرير جدا مهم ويجلب الزبائن

استغفر الله استاذ عمر ..انا مجرد تلميذعند الجميع كلهم اساتذتي ..لكن ..والحق يقال ..لا غنى عن اساتذتي @ابوخليل.. @jjafferr

نعم استاذي ..المتغير هو الراتب الاسمي للموظف ..وتلك نقطة جدا مهمة في نظام الرواتب طبعا لكل دولة ضوابطها و قوانينها ..لكن بشكل عام ان هناك علاوة سنوية و ترفيع كل 5 او 4 سنوات واتذكر ان لديك استاذ @ابوخليل مشاركة منذ زمن بهذا الموضوع ..والحل كان جدا رائع

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

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

وين راحوا الشباب ؟😘

عمل رائع استاذ @kkhalifa1960

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

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

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

الف مبروك للاساتذة @عمر ضاحى و @Foksh على الترقية رغم اني تمنيت اضافة اخونا @شايب

السلام عليكم السؤال ..لماذا الاستعلام لايأخذ الباراميتر من النموذج ؟

بالتوفيق

صدقا نسيته لولا انك تذكرني

وعليكم السلام شوف هذه المشاركة

طبعا ...لان اسلوب مصدر البيانات اختلف

اسف جدا ..يمكن كان تعديلي على الملف المضغوط 20231002.accdb

الظاهر انك لم تستدعي الدالة عند فتح التقر 20231002.rar

ممكن توضح مطلبك على صورة الجدول او الاستعلام ؟

تفضل التعديل 20231002.rar

من اين يأخذ النموذج A2 بياناته؟ على كل حال استخدم الدالة TempVars قبل اغلاق النموذج لكل سجل كي يحتفظ بالبيانات وعند فتح التقرير اجعله مصدر بيانات الحقول لديك

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