Foksh

اخي الكريم أهلاً وسهلاً بك في مجتمعنا المتواضع ، اذا كان هناك مشكلة يرجى منك توضيحها لأن العنوان لا يدل على ان كان هناك مشكلة أم أنها مشاركة منك ومساهمة

مشكور أخونا @عبد اللطيف سلوم على الشرح المبسط

شرفتنا بمرورك العطر أخي @علي بطيخ سالم 💐 ولكم من الدعاء أكثر مما دعيتم 🤲

يا أهلاً بجيران الرضا ، نورتمونا يا أستاذنا @حسونة حسين .. جعل الله لكم من الدعاء أضعاف مضاعفة وسنحاول إن شاء الله تطبيق الفكرة على نسخة ويندوز 64 إن شاء الله

أخي @gavan ، في المثال الذي أرفقته مع الكود في مشاركتي ( إضافة كلمة إلى القيمة الموجودة في السجل ) وليس استبدال القيمة في الحقول كاملةً .

تفضل أخي @salah.sarea ، هذا الكود لإضافة كلمة تحددها في النموذج الى جميع السجلات في الجدول الذي تختاره ، طبعاً باستثناء حقل الترقيم التلقائي :- Sub AddWordToAllFields() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim strTable As String Dim strWordToAdd As String Dim fld As DAO.Field strTable = Txt_Tbl.Value strWordToAdd = Txt_Search.Value Set db = CurrentDb Set rs = db.OpenRecordset(strTable) For Each fld In rs.Fields If fld.Name <> "ID" And fld.Name <> "RecordID" Then strSQL = "UPDATE " & strTable & " SET " & fld.Name & " = IIf([" & fld.Name & "] Is Null, '" & " " & strWordToAdd & " " & "', [" & fld.Name & "] & '" & strWordToAdd & "')" db.Execute strSQL End If Next fld rs.Close Set rs = Nothing Set db = Nothing MsgBox "تمت إضافة الكلمة بنجاح إلى جميع الحقول في الجدول" End Sub Add_Word.accdb

القيمة Null هي قيمة غير معروفة أو مفقودة لذلك نستخدم معها الدالة Null Zero (nz) لتعود لنا بقيمة معلومة يتم تحديدها أو كما تفضلت بالقيمة "" والتي قد تساوي 0 . اما Empty فهي باعتقادي للدلالة على متغير لم يتم تحديد قيمته ( الكيس الفارغ المفتوح ) أي قيمة قابلة للتغيير .

لاحظ أن مستوى الترقيم المطلوب قد توسع 🤗 تمام. أعتقد أنه سيصبح لديك أكثر من نمط للترقيم.

من وجهة نظري وحسب فهمي لهذا الموضوع:- "" يعتبرها آكسيس سلسلة فارغة ( فراغ ذو قيمة ) لكنه لا يعتبر قيمة . Null يعتبرها آكسيس قيمة موجودة. Empty يعتبرها آكسيس قيمة لم تأخذ قيمة كأن تكون فارغة "" أو Null . كأن نقول لطالب :- كم تفاحة في هذا الكيس ( مع عدم وجود كيس ) الجواب ولا تفاحة. كم تفاحة في هذا الكيس ( مع وجود كيس فارغ مغلق ) الجواب ولا تفاحة. كم تفاحة في هذا الكيس ( مع وجود كيس فارغ مفتوح ) الجواب ولا تفاحة. يا رب ما أكون صعبتها بدل ما أسهلها 🤣

ما الذي يميز الكتب الصادرة عن الكتب الواردة ؟؟

كلامك صحيح أخي @Eng.Qassim ، ولا شك فيه . الترقيم التلقائي لا تستطيع التغيير فيه ولكن مشاركتي كانت بهدف توفير الوقت لصالح الأخ @محمد سعيد رشاد عندما استرجع بياناته المحذوفة عن طريق برنامج مجاني ، ولكني وسعت الفكرة بجعلها حرة الاختيار للجدول والكلمة

تفضل أخي @محمد سعيد رشاد . إن كانت السجلات كبيرة وعددها كثير ، جرب هذا المرفق لحذف الكلمة التي تريدها دون التعديل على القيم أو التأثير عليها . اختر الجدول ثم اكتب الكلمة التي تريد حذفها من بين السجلات كود لجلب اسماء الجداول في قاعدة البيانات ، وإدراجها في الكومبوبوكس :- Private Sub Form_Open(Cancel As Integer) Dim db As DAO.Database Dim tbl As DAO.TableDef Dim strTableName As String Me.Txt_Tbl.RowSource = "" Set db = CurrentDb For Each tbl In db.TableDefs If Not (tbl.Name Like "MSys*" Or tbl.Name Like "~*") Then Me.Txt_Tbl.AddItem tbl.Name End If Next tbl db.Close Set db = Nothing End Sub والكود الرئيسي هو البحث عن الكلمة التي تم ادخالها في مربع النص ، ومن ثم حذفها :- Sub DeleteWordFromAllFields() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim strTable As String Dim strWordToDelete As String Dim fld As DAO.Field strTable = Txt_Tbl.Value strWordToDelete = Txt_Search.Value Set db = CurrentDb Set rs = db.OpenRecordset(strTable) For Each fld In rs.Fields strSQL = "UPDATE " & strTable & " SET " & fld.Name & " = Replace([" & fld.Name & "], '" & strWordToDelete & "', '')" db.Execute strSQL Next fld rs.Close Set rs = Nothing Set db = Nothing MsgBox "تم حذف الكلمة بنجاح من جميع الحقول" End Sub Delete_Word.accdb

قد يفيدك هذا الموضوع

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

وبإذن الله قيد التطوير للأفضل إن شاء الله معلمنا الأستاذ @jjafferr

معلمنا وأستاذنا الأستاذ @jjafferr ، أهلا وسهلاً بعودتك ..

أشكر مرورك أخوي @عبد اللطيف سلوم ، الأروع مرورك العطر

أهلاً وسهلاً بك أخونا @عبد اللطيف سلوم ، تمت دعوتك على جروب الواتس أب

على فرض ان اسم مربع النص الخاص بالبحث Txt_Search : في حدث عند النقر اكتب هذا السطر Me.Txt_Search = "" Me.Txt_Search.Setfocus السطر الثاني لإعادة التركيز ( وضع المؤشر ) في مربع البحث.

وملاحظة ،، تم تغيير اسم الحقل Date في الجدول الى Datee تلافياً لحدوث اي مشاكل أثناء كتابة الكود.

مشاركة جانبية ... تفضل اخي @Zooro1 Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim strProjectNo As String Dim strYear As String Dim strLastReferenceNo As String Dim intLastPart As Integer Dim intNewValue As Integer Dim strNewReferenceNo As String Set db = CurrentDb strProjectNo = Me.ProjectNo.Value strYear = Year(Me.Datee.Value) strSQL = "SELECT TOP 1 ReferenceNo " & _ "FROM ESMIncoming " & _ "WHERE ProjectNo = '" & strProjectNo & "' AND Year([Datee]) = " & strYear & " " & _ "ORDER BY Right([ReferenceNo], 4) DESC" Set rs = db.OpenRecordset(strSQL) If Not rs.EOF Then strLastReferenceNo = rs!ReferenceNo Else strLastReferenceNo = strProjectNo & "-" & strYear & "-0000" End If rs.Close intLastPart = CInt(Right(strLastReferenceNo, 4)) intNewValue = intLastPart + 1 strNewReferenceNo = strProjectNo & "-" & Format(Datee, "yy") & "-" & Format(intNewValue, "0000") Me.Text0.Value = "KNPC-" & strNewReferenceNo strSQL = "INSERT INTO ESMIncoming (ProjectNo, ReferenceNo, Datee) " & _ "VALUES ('" & strProjectNo & "', '" & strNewReferenceNo & "', #" & Format(Date, "mm/dd/yyyy") & "#)" db.Execute strSQL Set rs = Nothing Set db = Nothing Memos.accdb

تم إصدار التحديث الجديد من برنامج الحضور والإنصراف - التعديل الثالث ( الإصدار الثاني ) تم استبدال الباركود برمز QR لشموليته في البيانات ودعمه اللغة العربية بشكل جيد . ربط الجوال بالكمبيوتر مع إمكانية قراءة QR من الجوال عند قراءته في آكسيس . تم إدراج البرامج المستخدمة في الروابط للتجربة Barcode2WinSetup18 Exe / APK . بعد نسخ برنامج الـ APK الى الجوال وتثبيته . وتثبيت برنامج الكمبيوتر EXE ، نفتح البرنامج من الكمبيوتر ونطبق الإعدادات كما في الصورة :- بعد تطبيق الإعدادات ، افتح البرنامج من الجوال وقم بتصوير رمز الـ QR الموجود في البرنامج في الجزء 4 ، وسيتم الإتصال بالكمبيوتر بشكل سهل وسريع جداً ( شريطة أن يكون الجوال والكمبيوتر على نفس الشبكة المحلية للإنترنت ) الميزات التي تم تعديلها وإضافتها بشكل سريع :- إضافة فكرة اختيار التسجيل برقم الموظف أو اسم الموظف . إضافة نموذج لتسجيل المغادرات وطباعة إذن الخروج . ميزة المغادرة التي لا يمكن استخدامها إلا في تاريخها . بعض التنسيقات تم تعديلها وضبطها بشكل أفضل من الإصدار السابق . الملف ما زال قيد التطوير لذا سيكون في الوقت الحالي بنفس الصيغة ACCDE البرنامج المرفق APK تم التعديل عليه بحيث تقليل نسبة الخطأ في قراءة اللغة العربية في رمز الـ QR ، بالإضافة الى تعديل الأيقونة الخاصة به .. والمزيد ما زال قيد التعديل والتطوير .. بناءً على طلب أحد الإخوة في جروب الواتس أب سيتم إلحاق فيديو يوضح طريقة العمل على البرنامجين 😎