نجوم المشاركات

واجهات الأستاذ موسى تفتح النفس ، والشهية .. ومثاله جميل وشامل لجميع النماذج وبما ان برنامجك يرتكز على نموذجين فقط سأسحب لك صلاحيات لبرنامج عندي مشابه تماما لتصميمك ان شاء الله انتظرني ...

وهنا أيضا 🙂 :

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

لو تفقدت الاكواد في form1 لتمكنت من ضبطها الصق السطر التالي في حدث تحميل النموذج form1 Me.HomeUserName = guserName Me.HomeUserName هو اسم الحقل و guserName هو مصدر اسم المستخدم

تم التعديل تاريخ التفعيل وضعته بتاريخ بكرا 21 من اجل يفتح للكل ايضا يجب تفعيل الخاصية في نموذج التحكم اذا اردت الكود يعمل في نموذج التحكم لن يقبل منك ادخال تاريخ اليوم او اقل طيب كيف تفحص العملية هل هي شغالة او لا .. بمعنى نريد ندخل تاريخ اليوم 20 او 19 الطريقة افتح على التصميم واذهب الى جدول tbl_ctrl وعدل هناك الجدول مخفي اذا لم يظهر لديك فعل رؤية الملفات المخفية من الخيارات FinancialPrg5.rar

يوجد خلل بالكود فاتني ساصلحه ان شاء الله نعم .. وتحديد اليوم وتغييره متاح كما ترى

نحن هنا نساعد بعض ونتعاون ونأخذ من بعض مثلا : القوائم المختصرة في التقارير .. من هدايا الاستاذ جعفر

تفضل : اشياء كثيرة عملتها لك 1- نموذج تحكم ويوجد فيه : - تحديد اليوم الذي سيتم حماية وحجب الشهر السابق - التاريخ الذي عنده سوف يمنع كافة المستخدمين من الدخول الا المدير 2- ربط الازرار بنماذج الحسابات وانواعها والارصدة 3- اعداد النسخ الاحتياطي مع وقف التنفيذ ... التنفيذ سيتم بعد تقسيم قاعدة البيانات ... لان النسخ سيكون لقاعدة الجداول لمسات اخرى فنية ستجدها عند تصفحك FinancialPrg4.rar

فسر لي حبه حبه ، قبل الفطار بنكون مش مجمعين ، وبعد الفطار برضو بنكون مش مجمعين .

ممكن تضيف هذه امثلة لهذه الاخطاء وما هو الصحيح

تفضل كلمة المرور للجميع=1 ايضا .. اصلحت طلباتك السابقة الصلاحية تطبق على الازرار في النموذج الرئيسي FinancialPrg3.rar

أخي انت لم تستخدم الكود الذي ذكرته لك وحتى لم تكلف نفسك بتجربته على العموم نفس الكود اعلاه يعمل. فقط كلف نفسك وانقله الى ملفك يعني نسخ ولصق . وهذا ملفك مع نفس الكود اعلاه error (1).accdb

أخي سامر .. سيكون التعديل منقسماً إلى جزئين . الأول في الماكرو الموجود في حدث قبل التحديث للنموذج كالتالي :- من الجملة التالية :- DCount("[Ekhla_serial]","[Ekhla_Details]","[Ekhla_Details]![ID_Number]=[Forms]![Ekhla_Details]![IDNumber]")>=1 ألى الجملة التالية :- DCount("[ID_Number]", "[Ekhla_Details]", "[ID_Number]=[Forms]![Ekhla_Details]![IDNumber]")>=1 ثم سيتم التعديل على الاستعلام DO كالآتي :- من الجملة SQL التالية :- UPDATE Ekhla_Details SET Ekhla_Details.Ekhla_Kind = [Forms]![Ekhla_Details]![Ekhla_Kind], Ekhla_Details.coodee = [Forms]![Ekhla_Details]![coode], Ekhla_Details.Emp_Name = [Forms]![Ekhla_Details]![coodee], Ekhla_Details.ID_Number = [Forms]![Ekhla_Details]![ID_Number], Ekhla_Details.الموقع = [Forms]![Ekhla_Details]![y4], Ekhla_Details.الفرع = [Forms]![Ekhla_Details]![y5] WHERE (((Ekhla_Details.Ekhla_serial) Like "*" & [Forms]![Ekhla_Details]![Ekhla_serial] & "*")); إلى جملة SQL التالية :- UPDATE Ekhla_Details SET Ekhla_Kind = [Forms]![Ekhla_Details]![Ekhla_Kind], coodee = [Forms]![Ekhla_Details]![coode], Emp_Name = [Forms]![Ekhla_Details]![coodee], ID_Number = [Forms]![Ekhla_Details]![ID_Number], الموقع = [Forms]![Ekhla_Details]![y4], الفرع = [Forms]![Ekhla_Details]![y5] WHERE (((Ekhla_Details.Ekhla_serial) Like "*" & [Forms]![Ekhla_Details]![Ekhla_serial] & "*")); وأعلمني بالنتيجة أخي سامر .. Arciving222.zip

شكر وتقدير وفائق الاحترام من اخيك

السلام عليكم استاذنا الفاضل abouelhassan الف الف شكر لتعب حضرتك و مجهودك ربنا يجعله فى ميزان حسناتك السلام عليكم استاذنا الفاضل حسونة حسين الف الف شكر لتعب حضرتك و مجهودك الكود يعمل بكفاءة و ينفذ المطلوب ربنا يحفظك و يعزك ويبارك فيك

عليكم السلام اليك ابسط دخول للمستخدم حسب طلبك بالتوفيق.. الاسم : محمد رمز المرور : 1234 دخول المستخدم بدون جدول.accdb

طيب .... Dim db As DAO.Database Dim rs As DAO.Recordset Dim i, TT As Integer Dim numCopies As Integer Set db = CurrentDb Set rs = db.OpenRecordset("SELECT tp2.GradeNO, tp2.سنوات_المكوث FROM tp2 WHERE (((tp2.GradeNO)<=" & Me.الدرجة_الوظيفية & ")) ORDER BY tp2.GradeNO DESC;", dbOpenDynaset) TT = iYear Do Until rs.EOF TT = TT - rs!سنوات_المكوث numCopies = rs!سنوات_المكوث If TT < rs!سنوات_المكوث Then Me.مربع_تحرير_وسرد47 = rs!GradeNO - 1 Me.مربع_تحرير_وسرد49 = Me.المرحلة_الوظيفية + TT GoTo RR End If For i = 1 To numCopies Next i rs.MoveNext Loop RR: If Me.مربع_تحرير_وسرد49 > rs!سنوات_المكوث Then Me.مربع_تحرير_وسرد47 = rs!GradeNO - 2 Me.مربع_تحرير_وسرد49 = 1 Exit Sub End If rs.Close Set rs = Nothing Set db = Nothing

اشكرك اخي واستاذي خليفه @kkhalifa1960 نعم هذا هوه مطلبي احسنت العمل بارك الله بك وزادك علما 🌹

اخي الكريم @abouelhassan هي من جوجل مع التعديل عليها واعادة تصميمها حسب حاجتي باستخدام الفوتوشوب . لكن غداً إن شاء الله سأرسل بمشاركة جديده اكثر من رابط مجاني يحتوي على الكثير من العناوين التي قد تحتاجها بكل التخصصات 🤗 .

استاذ @Bshar تفضل مرفقك بعد التعديل حسب مافهمت .اليك الشرح والمرفق متكامل. ووافني بالرد . test -Copy-1.rar

لم يكن خطا برمجي كل ما هنالك بعض السجلات مكررة للرقم

وجزاكم مثله اخى

هذا الملف قالب جاهز لنموذج صفحة دخول وتغيير بيانات المستخدم والتحكم بالمستخدمين 🙂 كلمة المرور لجميع المستخدمين : 123 للتحميل : 🙂 قالب جاهز لنموذج تسجيل الدخول وتغيير كلمة المرور.accdb