Barna

لاحظ المثال البسيط هذا لتفهم ما قلته ... 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

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

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

ما شاء الله .... متابعة غيابات الطلبة (1).mdb

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

مصدر مربع النص ضع هذا ... =Count(*)

طيب ناخذها وحدة وحدة .... تم عمل اعتماد الغياب ... مع بعض التعديلات في جدول الغياب ... تفقد التعديلات .. اذا جازت لك نكمل ... متابعة غيابات الطلبة.mdb

هذه طريقة الترميز ..... Dim dgt As String Dim myv As String txts = "" Dim i For i = 1 To Len(txtr) dgt = AscW(Mid(txtr, (i), 1)) txts = txts & "Chrw (" & dgt & ") & " Next i myv = Left(txts, (Len(txts) - 2)) txts = myv وهذه طريقة فك الترميز Loopy = (CDbl(Len([txts]) - Len(Replace([txts], ")", "")))) txtx = "" c0 = 1 Do c1 = Nz(InStr(c0 + 1, Me.txts, "("), 0) c2 = Nz(InStr(c1 + 1, Me.txts, ")"), 0) c3 = c2 - c1 If c1 <> 0 And c2 <> 0 Then c4 = Mid(Me.txts, c1 + 1, c3 - 1) Loopy = Loopy - 1 c0 = c2 Me.txtx = Me.txtx + CHARW(c4) Loop Until Loopy = 0 و هذا هو الفانك ... Function CHARW(CharCode As Variant, Optional Exact_functionality As Boolean = False) As String If UCase(Left$(CharCode, 1)) = "U" Then CharCode = Replace(CharCode, "U", "&H", 1, 1, vbTextCompare) CharCode = CLng(CharCode) If CharCode < 256 Then If Exact_functionality Then CHARW = ChrW(CharCode) Else CHARW = Chr(CharCode) End If Else CHARW = ChrW(CharCode) End If End Function اكيد قديمة ............. صحيح ..... لاني شفت الطريقة هذه من ايام دنيا دنيا ..... هههههههه

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

جرب تغيير الكود المستخدم في الترميز بكود اخر

ايش المطلوب ؟؟؟؟ تحويل لنص أم ماذا ؟؟

استخدم هذا الكود في حدث بعد التحديث في مربع التحرير والسرد للحالة ... Private Sub الحالة_AfterUpdate() If Me.الحالة = "موقف" Then Me.الراتب = "0" End If End Sub

انت سألت في هذا الموضوع وتم رد الزملاء على سؤالك ولم ترد عليهم .... لم كررت السؤال مرة اخرى

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

جرب هذا ...

هنا وغيرها في المنتدى تجد الكثير حول الموضوع ... من هنا من فضلك

في حدث بعد التحديث ضع هذا الكود ... Select Case OptionGrop Case Is = 1 Me.sal = "0" Case Is = 2 Me.sal = "100" Case Is = 3 Me.sal = "200" End Select ACC.accdb