Barna

طيب جرب يوم الاحد كدة ...... If Me.to.Value = "الأحد" Then If Me.from >= #7:20:00 AM# And Me.from < #8:05:00 AM# Then Me.bac1.BackColor = vbYellow ElseIf Me.from >= #8:05:00 AM# And Me.from < #8:50:00 AM# Then Me.bac2.BackColor = vbYellow ElseIf Me.from >= #8:50:00 AM# And Me.from < #9:35:00 AM# Then Me.bac3.BackColor = vbYellow ElseIf Me.from >= #9:35:00 AM# And Me.from < #10:20:00 AM# Then Me.bac4.BackColor = vbYellow ElseIf Me.from >= #10:45:00 AM# And Me.from < #11:30:00 AM# Then Me.bac5.BackColor = vbYellow ElseIf Me.from >= #11:30:00 AM# And Me.from < #12:15:00 PM# Then Me.bac6.BackColor = vbYellow ElseIf Me.from >= #12:15:00 PM# And Me.from < #1:00:00 PM# Then Me.bac7.BackColor = vbYellow ElseIf Me.from >= #1:00:00 PM# And Me.from < #1:45:00 PM# Then Me.bac8.BackColor = vbYellow End If End If timetable 2022 (3) (1).accdb

طيب جرب كده ..... timetable 2022 (3).accdb

طيب اولا : غير تاريخ الجهاز فقط للتجربة الى يوم الاحد ... لأني اشتغلت على يوم واحد فقط وانت اكمل بقية الايام نفس الطريقة اقد النموذج وليس الاكواد الكود جاهز فقط عدل مصدر بيانات مربعات النص في النموذج كما هو الحال في يوم الاحد ايضا عدل التنسيق الشرطي لمربعات النص كما هو في يوم الاحد .... بالمناسبة ملف الدكتور @د.كاف يار شغال ما في مشكلة بس اصبر عليه شوي timetable 2022.accdb

هل هذا التوزيع لمسميات الجدول صحيح قبل أن نكمل لاني لم افهم من جدولك ...

ايضا اضافة لما ذكر استاذي الحبيب .... = DFirst("Database", "MSysObjects", "[Type] = 6")

تم تعديل .... لاني فهمت الموضوع خطأ

تستاهل التكريم استاذ @Moosak

حياك الله ... استاذ نبيل... بالتوفيق

اهلا استاذ نبيل .... لاحظ التعديلات الموجودة في الصورة وشرحها بالترتيب ::::::: - جدول الارشيف المؤقت - جدول الرشيف النهائي - جدول بيانات الموظفين - نموذج الارشيف المرقت - نموذج الارشيف النهائي - نموذج رئيسي - نموذج اختيار نوع الترحيل - استعلام توحيد للترقيم حتى لا يتم تكرار الترقيم ملاحظة : لم يتم ادراج زر في النموذج الرئيسي لنموذج الارشيف النهائي ( اختر لها زر حسب برنامجك ) ..... Database26.accdb

طيب ... ابشر ... بس اوصل البيت ويكون خير

ابدا ... قاعدة If تقوم بالمهمة ...

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

ما شاء الله تبارك الله ... الف مبروك .... مزيد من التألق .... زادك الله علما ...

حياك الله .... اولا جعلنا مصدر بيانات الكمبوبكس الخاص باسم الموظف استعلام ثم في حدث نعد التحديث لنفس الكمبو جعلنا الكود الذي رأيت و Column(2) يعني الحقل الثالث في الاستعلام المذكور Column(0) يعني الحقل الاول وهكذا استطعنا اسناد قيم الحقول الى مربعات النص في النموذج ...

ممكن توضيح اكثر .... ما تقصد باستيراد ( كائنات أو بيانات ) ؟؟؟؟؟؟

تفضل .... واعلمنا بالنتيجة .... Database1 (7).accdb

حياك الله ..... وعشان ما يقهرك الاكسس .... هذه طريقة اخرى ربما ابسط ..... تفضل وجرب وأعلمنا بالنتيجة ... Me![r] = Me![sh] + 1 Me![rkm_alktab] = x & "/" & Format(r, "000") Database41.accdb

البرنامج يعمل لدي دون مشاكل ..... انظر .....

طيب .... جرب المرفق غيرنا الاسلوب الى اسلوبك وطلبك .... جرب ترحيل موظف ثم استرجاعة وايضا اضافة سجل بعد ترحيل موظف حيث يتم اضافة الموظف برقم جديد لا يتكرر حتى مع ارقام الموظفين المرحلين لجدول اخر ... واعلمنا بالنتيجة ... Database266.rar

اهلا بك ... بالمناسبة هناك طرق كثيرة للقيام بهذه المهمة ولكن خذ هذه على عجالة .... استخدمنا هذه الشيفرة ..... قم بالضغط على تسجيل جديد وسجل الكتب وأعلمنا بالنتيجة ... Me.tafasel_alktab.Visible = True Me.تسمية6.Visible = True On Error Resume Next Dim Db As DAO.Database Dim Rc As DAO.Recordset Dim ChequesFound Dim ChequeNoStart As Long Dim ChequeNoEnd As Long Dim i As Long Set Db = CurrentDb Set Rc = Db.OpenRecordset("Barna") Do While Not Rc.EOF Rc.MoveNext Loop If Rc.RecordCount = 0 Then rkm_alktab = Year(Date) & "\" & "001" DoCmd.Requery GoTo cmdDisplay_Exit Else DoCmd.GoToRecord , "", acNewRec max_id = DMax("[Brojevtxti]", "barna") + 1 rkm_alktab = Year(Date) & "\" & Right(max_id, 3) End If cmdDisplay_Exit: Set Rc = Nothing Set Db = Nothing تفضل ملفك .... Database41.accdb

هل بحثت في المنتدى ولم تجد طلبك ؟؟؟

تفضل جرب ترحيل موظف .... ثم استعادته مرة اخرى .... واعلمنا بالنتيجة .... Database26.rar

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

تفضل جرب اضافة اسم جديد ولاحظ .... واعلمنا بالنتيجة ..... قاعدة بيانات HR.accdb

حاولت فهم القصة ... لكن للاسف لم استطع ...