Ahmed_J

اخي العزيز هذا الكود يعمل شو هي المشكلة عندك فية Dim X Dim i i = DLookup("[الاسم]", "BeneficiaryT", "[card]=[رقم الهوية]") & " " & DLookup("[اسم الاب]", "BeneficiaryT", "[card]=[رقم الهوية]") & " " & DLookup("[العائلة]", "BeneficiaryT", "[card]=[رقم الهوية]") X = DLookup("[رقم الهوية]", "BeneficiaryT", "[card]=[رقم الهوية]") If Not IsNull(X) = True Then MsgBox "رقم الهوية" & " ( " & [card] & " ) " & " تم تسجيله مسبقاُ" & "بأسم" & " " & i, vbCritical, " تنبيه" Undo DoCmd.FindRecord X Else: Exit Sub: End If DoCmd.RefreshRecord

عاشت ايديكم استاتذي الاعزاء بارك الله فيكم وجعلها في ميزان حسناتكم طلبي بسيط والله (فتح نموذج البحث المتقدم ويكون البحث في النموذج الرئيسي والفرعي معا) يعني البحث عن اسماء رب العائلو وافراد العائلة معا وانا لااعرف كيف ربط بين النموذج الفرعي والرئيسي لكي يتم البحث تحياتي لكم

شكرا جزيلا لكم استاذ تي الاعزاء بارك الله فيكم لي طلب اخير في حقل القسط عندما نختار (تم الدفع) يصبح السجل في النموذج المستمر غير قابل للتعديل (Me.A.Enabled=False) وشكرا لكم

up

السلام عليكم استاذ @أبو عبدالله الحلوانى استاذ @Eng.Qassim لتواصلك معي دائما جزاكم الله خير الجزاء بصراحة لم اكن اتصور ان كود بهذه البساطة يستطيع ان يجلب قيمة من كل هذه الحقول بدالة (DLookup) 1- بالنسبة لسؤالك استاذ لماذا ارقام ؟؟ لانه سلم الرواتب للموظفين في تظامنا المالي بهذه الطريقة (الارقام) الدرجة والمرحلة فقط ويعتمد عليه الراتب الاسمي والمخصصات والضريبة وغيرها 2- اذا كان نظام الاكسس لايقبل بتسمية الحقول بارقام ؟ اوكي طريقتك هي الحل الانسب لي 3- واجهتني مشكلة اخرى بسيطة عن اضافة سجل جديد يظهر في حقل الراتب خطا (النوع) كما في الصورة

شكرا لك استاذي العزيز @الفلاحجى معقولة الاكسس الحلو مابيكمل لابد من حيلة ما لاكمال الحل؟؟؟

المشكلة لسة قائمة

شكرا لك استاذي العزيز @Eng.Qassim اعتقد ان المشكلة هي في دالة DLookup ساعمل بنصيحتك واتمنى اكمال برنامج للرواتب حسب نظامنا المالي وابسط االاكواد ولا نسى الشكر للاستاذ @ابوخليل لان اصل الكود له والاستاذ @د.كاف يار لكن لسه لااعرف لماذا عندما اغير اسم الحقل لايظهر الراتب؟ اتمنى ان اعرف السبب؟؟ تحياتي للجميع

استاذي العزيز @Eng.Qassim مرفق ملف الاستاذ ابو عبداللة لكني قمت بالتعديل علية وتغيير اسم الحقل واصبح الراتب لايظهر Test.accdb

استاذ @ أبو عبدالله الحلواني عاجز عن الشكر لك استاذي العزيز الملف يعمل جيدا فقط لي طلب آخر 1- ان الكود فيه بطيء في التنفيذ 2- عند تغيير اسم الحقل a1 (المرحلة) الى رقم لماذا لايعمل لان ملفي الاصلي ارقام ولايظهر الراتب وهذه الصورة الحقيقية لشكل الجدول تحياتي لك Test.accdb

استاذي العزيز الملف لايعمل

السلام عليكم اساتذتي الاعزاء ارجو التعديل عبى الملف المرفق لغرض اظهار قيمة من الجدول في النموذج الرئيسي عن طريق الكود بحيث عند اختيار مثلا قيمة الحقل GradeNO1 , A1 يظهر الناتج (910000) و GradeNO2 ,A1 بظهر الناتج (723000) و GradeNO1 , A3 يظهر الناتج (950000) وهكذا يعني كانه جدول الضرب كماف في الصورة تحياتي للجميع Test.accdb

up

up

السلام عليكم استاذنا العزيز @ابو جودي شكرا لك 1- لكن استاذي لايمكن اضافة اي سجل جديد؟ البرنامج لايعمل عن الضغط على (ابدا اضافة اقساط) 2-يتم اضافة شهر الى حقل التاريخ بالنموذج في حالة ان تاريخ الاستحقاق قد انتهى ولم يتم الدفع (يعني الشهر الذي لم يدفع فية لايحسب ويمدد له شهر) تحياتي لك استاذ

السلام عليكم اساتذتي الاعزاء مرفق برنامج لاستاذة ( ام عهود) الله يحفظها لاحتساب الاقساط الشهرية تم اضافة حقل القسط في الجدول G2 (تم الدفع ولم يتم الدفع) المطلوب: 1- اضافة شهر اخر او عدة اشهر الى النموذج في حالة لم يتم الدفع (يعني الشهر الذي لم يدفع فية لايحسب) 2- ايجاد الاقساط المدفوعة 3- ايجاد الاقساط الغير مدفوعة 4- اي اضافة تخدم عمل البرنامج وشكرا لتعاونكم za-AKSAT-Pro-LAST-.mdb

السلام عليكم ممكن نسخة تعمل على اوفيس 2010 شكر ا لك

up

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

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

السلام عليكم استاذ @ابو جودي هو لو قدرت ربط النموذج search بالنموذج form1 ومن ثم البحث بالجدولين عن طريق كود بدون دمجهم باستعلام ان امكن ذلك او يتم دمجهم باستعلام مع ربط النماذج ويتم البحث وشكرا لك

up

السلام عليكم تعديل اخر على الملف اتمنى ان يعجبك مساعدات.accdb

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

اخي العزيز جرب هذا التعديل تحياتي مساعدات.accdb