ابو البشر

جرب هذا ........................ Sub CleanAndRemovePatterns() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strPattern As String Dim strInput As String Dim updatedText As String Dim regExp As Object On Error GoTo ErrorHandler Set db = CurrentDb Set rs = db.OpenRecordset("SELECT ID, nass FROM book", dbOpenDynaset) strPattern = "&\d+&&" Set regExp = CreateObject("VBScript.RegExp") regExp.Pattern = strPattern regExp.Global = True Do While Not rs.EOF If Not IsNull(rs!nass) Then strInput = rs!nass updatedText = strInput If regExp.Test(updatedText) Then updatedText = regExp.Replace(updatedText, "") End If If Left(updatedText, 2) = vbCrLf Then updatedText = Mid(updatedText, 3) ElseIf Left(updatedText, 1) = vbLf Then updatedText = Mid(updatedText, 2) ElseIf Left(updatedText, 1) = vbCr Then updatedText = Mid(updatedText, 2) End If updatedText = LTrim(updatedText) If strInput <> updatedText Then rs.Edit rs!nass = updatedText rs.Update End If End If rs.MoveNext Loop rs.Close Set rs = Nothing Set db = Nothing Set regExp = Nothing MsgBox "تمت إزالة الأنماط والسطر الفارغ بنجاح!", vbInformation Exit Sub ErrorHandler: MsgBox "حدث خطأ: " & Err.Description, vbCritical If Not rs Is Nothing Then rs.Close Set rs = Nothing End If Set db = Nothing Set regExp = Nothing End Sub

تفضل ..... الكود لنقل الرقم فقط ...اعلمنا بالنتيجة .... Sub ExtractSingleNumber() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strPattern As String Dim strInput As String Dim regExp As Object Dim matches As Object ' النمط لاستخراج الرقم بين & و && strPattern = "&(\d+)&&" ' تهيئة قاعدة البيانات Set db = CurrentDb Set rs = db.OpenRecordset("SELECT nass, page FROM book") ' تهيئة كائن التعبير النمطي Set regExp = CreateObject("VBScript.RegExp") regExp.Pattern = strPattern regExp.Global = False ' المرور عبر السجلات Do While Not rs.EOF strInput = rs!nass If regExp.Test(strInput) Then Set matches = regExp.Execute(strInput) rs.Edit rs!Page = matches(0).SubMatches(0) ' الرقم المستخرج rs.Update End If rs.MoveNext Loop ' تنظيف الموارد rs.Close Set rs = Nothing Set db = Nothing Set regExp = Nothing MsgBox "تم نسخ الأرقام إلى الحقل page بنجاح!" End Sub والكود التالي لحذف السطر الذي به النمط تفضل ...... Sub RemoveAllPatterns() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strPattern As String Dim strInput As String Dim regExp As Object ' النمط لإزالة كل ما يشبه &رقم&& strPattern = "&\d+&&" ' تهيئة قاعدة البيانات Set db = CurrentDb Set rs = db.OpenRecordset("SELECT nass FROM book") ' تهيئة كائن التعبير النمطي Set regExp = CreateObject("VBScript.RegExp") regExp.Pattern = strPattern regExp.Global = True ' لضمان إزالة جميع التطابقات داخل النص ' المرور عبر السجلات Do While Not rs.EOF strInput = rs!nass If regExp.Test(strInput) Then rs.Edit ' إزالة جميع التطابقات للنمط من النص rs!nass = regExp.Replace(strInput, "") rs.Update End If rs.MoveNext Loop ' تنظيف الموارد rs.Close Set rs = Nothing Set db = Nothing Set regExp = Nothing MsgBox "تم حذف جميع الأنماط &رقم&& بنجاح!" End Sub

جرب هذا .... On Error Resume Next Dim s As String s = InputBox("ادخل الرقم القومي المكون من 14 رقم", "ابدا البحث من فضلك") If s <> "" Then ' تطبيق الفلتر Me.Filter = "IDNumber = '" & s & "'" Me.FilterOn = True Else MsgBox "الرجاء إدخال الرقم القومي.", vbExclamation, "خطأ" End If

بارك الله فيك اخي الكريم .. مايحتاج استئذان ...

مساءك فل .... ممكن الشكل المتوقع تصديرة .... هل تريد كل سائق وامامه بياناته ومع الاصول التي تخصه ... يعني مثلا سائق لديه ثلاث سيارات اصول ... هل تريدها في ثلاث سجلات ... ام سجلات مدمجة ؟؟؟؟

طيب ... الان افرد الطلب الثاني ( تصدير البيانات الى اكسل ) في موضوع مستقل ... بارك الله فيك

لاحظ الفرق بين الادخال الصحيح وادخالك انت !!!!

هذه بضاعتكم ردت اليكم وانا لم ادخل بيانات ولاكن تعاملت مع الموجود في الجدول اساسا .... تأكد من ادخالاتك في الجدول ... لانك انت من ادخلت التواريخ والاسابيع ... وليس للغة البرمجة في شيئ

هل هذا ما تريد ..... تغيير رقم الاسبوع ليبدا من 1.accdb

خلينا في الطلب الاساسي للموضوع وهي قضية التقرير .... جرب واعلمنا .... مالك علاقة في الاستعلام نهائيا .. الان Driver (1).accdb

ممكن تشرح لنا ماذا تريد حتى نفهم .... لا تقسط لنا المعلومات !!!!! اعطنا النموذج الاساسي لديك .... ثم ماذا تريد ان تعرض والافتراضات فيها ؟؟؟

تفضل ملفك .... Testreport (1).mdb

هل هذا هو المطلوب ؟؟؟

لم افهم عليك ... اين التعليق المطلوب ؟؟؟ واين الغير مطلوب ؟؟

ليس الاستعلام فقط .... ايضا حول مربع التسمية الى مربع نص ايضا اجعل خاصية مربع النص .. اخفاء التكرار . نعم

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

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

Driver (1).accdb

تفضل .... Testreport.mdb

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

كان طلبك حسب ملف الاكسل ..... اليس كذلك .... الان تغير الطلب الى شكل اخر ::::::: المفروض على السائل وضع نموذج لمثاله ويوضح المطلوب .... حتى يتم العمل عليه !!!!!

او هذا ............

او هذا .......

جرب المرفق واعلمنا بالنتيجة ..... مقارنة بيانات.accdb

هل يناسبك هذا الحل ..............