Barna

نعم ممكن ..... اعمل جدول ارشيف للمحذوفين نهائيا .... وجدول ارشيف للمحذوفين موقتا ثم صمم كمبو بكس فيه عبارات مثلا متقاعدين .. مسرحين .. متوفين .. محالين .. اجازات .. الى اخره ثم في امر الترحيل استخدم قاعدة 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

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

لاحظ المثال البسيط هذا لتفهم ما قلته ... BA_585.mdb

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

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

اضافة لما ذكر شيخنا الاستاذ @jjafferr ليس لونا ولكن نمط ( ستايل ) ....

نعم ... صحيح

استخدم هذا الكود مع تعديل مكان الرسائل يالاستعلام المطلوب ..... With Application.Forms For I = .Count - 1 To 0 Step -1 With .Item(I) If .Name <> "Main_Form" And .Name = "F1" Then MsgBox .Name ElseIf .Name <> "Main_Form" And .Name = "F2" Then MsgBox .Name End If End With Next I End With

بل انت انسان يحب التفكير خارج الصندوق ... 🥀

طيب شوف ده كده ..... ابسط مما تتخيل .... 12446-1 (2).accdb

للاسف حاولت فهم البرنامج واين تسخل الفترة من الى لم اعرف ؟؟؟؟

واياك ............