ابو جودي

هههههههه حلوة دماغك العاليه دى بس ممكن الشباب يفتكروا شئ غلط انا ما اتعاطى اى شئ

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

اداة البحث هذه قمت بمحاولة تجميع الافكار فيها بعناية وبترتيبها لمحاولة الوصول الى اقصى درجات الكفائة والمرونة الممكنة اولا : تعرية وتطهير النص والتحكم فى ذلك حسب الحاجة كما سبق التنويه عن هذه الجزئية فى هذا الموضوع ثانيا : التحكم فى اعداد مصادر البيانت :- (مصدر البيانات"جدول /استعلام" - الحقولالبحث المخصصة - امكانية اضافة حقل او اكثر يعتمد على تطهير النصوص ثالثا : آلية البحث بحيث يمكن البحث من خلال ( الكلمة تبدأ بـ - تنتهى بـ - يتضمن الكلمة فى امكان - او متطابق تماما او لو عدد الكلمات كثير يمكن كتابة جزء من كل كلمة فى نفس السجل ولا يشترط الترتيب ) مثال : نريد البحث فى السجل قيمة هذا السجل : 26675 فوزي عبد الحميد ابو الفتوح محمد سعده لو تم اختيار من إعدادت البحث : يحتوى على اكثر من كلمة او جزء من كلمه يفصل بينهم مسافة من إعدادت البحث ثم كتبنا فى مربع البحث : عب فت سع 66 نحصل على النتيجة اثناء كتابة الكود تم عمل جدول باسم : tblSearchSettings بحيث يتم حفظ الاعدادت الخاصة بعملية البحث والفرز والتصفية تم وضع القيم الافتراضية لاجراء عمليات البحث والفرز والتصفية المتعددة على اكمل وجهة فى حالة حذف الجدول الخاص باعدادت البحث كما انها تمثل مرونة قصوى لكل مستخدم على حدى فى حالة استخدام شبكة محلية يستطيع كل مستخدم الاحتفاظ بالاعدادت التى تناسبه دون التأثير على الاخرين اخيرا المرفق واترككم مع التجربة Search Utility V 3.0.2.accdb

والله انا مسكين وممن ينتظرون الصدقات بلهفة واشتياق لذلك اتعشم فِىَّ وَجْه اللهِ انَّ يعدنى مِمَّنْ يَتَصَدَّقُ عَلَيْهُمْ وان كانت مشكلتكم مع الشرح ضع انت المرفق فقط وانا ان شاء الله افحص واحمص لافهم واضع الشرح المناسب قدر الامكان ولن لم يسعفنى الوقت حينها اضع التلميحات على اسطر الكود ليفهم منها الدراسون

طيب ممكن تتصدق وتتكرم علينا بمرفقك على طريقتك تسهيلا على الباحثين وطلاب العلم فبدلا من ان يبحثوا عن كل طريقه على حدى ويتيهون بين صفحات المنتدى ضع انت الطريقه ان اردت ان يدعوا لك طلاب العلم وانا يا استاذى القدير ومعلمى الجليل سوف أكون من أوائل طلاب العلم الذين يدعون الله لك اللَّهُمُّ وُسْعٍ لَهُ صَدْرُهُ لِيَتَحَمَّلُنِي انا وامثالي اللَّهُمَّ اُكْتُبْ لَهُ بِكُلُّ عُرْفِ حُسْنِهِ وَضَاعِفٍ لَهُ يَارَبِّ حُسْنَاتِهِ اضعافا مُضَاعَفَةً

سوف أبين اهمية الوظيفة السابقة فى موضوع مستقل وسوف انوه هنا عن هذا الموضوع وذلك لما فيها من فائدة كبيرة و اهمية عظيمة عند استخدام الفرز والتصفيه وعمل البحث داخل البيانات الموضوع >----->> من هنا

السلام عليكم ورحمة الله وبركاته اليوم اقدم لك وظيفة مُطَهَّرُ النُّصُوصِ الْعَرَبِيَّةِ غاية فى الروعة ومكتوبة بعناية واحترافية للحصول على اكبر قدر ممكن من الدقة فى الاداء والمرونة فى التناول عند الاستدعاء حيث أن الكود يعالج النصوص العربية بطريقة مرنة مع التركيز على ازالة المسافات وتنظيف النص و إزالة التشكيل و توحيد الاحرف ومعالجتها يعتمد الكود خيارين للعمل (إزالة المسافات أو التطبيع "توحيد الاشكال المختلفة للاحرف" ) مما يجعله قابلاً للتخصيص بناءً على الحاجة على سبيل المثال النص الاصلى والذى نريد معالجته : "تَجْرِبَةُ إِشْرَافٍ عَلَى? بَعْضِ الْأَمَاكِنِ أَوْ الْمَكَانِ رَقْمٌ 101" الحالات التى يمكن الحصول عليها من معالجة النص السابق هى ازالة المسافات فقط وتنظيف النص مع الابقاء على الارقام بدون التطبيع : تجربة إشراف على بعض الأماكن أو المكان رقم 101 ازالة المسافات وتنظيف النص مع الابقاء على الارقام مع التطبيع : تجربه اشراف علي بعض الاماكن او المكان رقم 101 ازالة المسافات وتنظيف النص مع ازالة الارقام مع التطبيع : تجربه اشراف علي بعض الاماكن او المكان رقم ازالة المسافات فقط وتنظيف النص مع ازالة الارقام بدون التطبيع : تجربة إشراف على بعض الأماكن أو المكان رقم الكود ' Function: ArabicTextSanitizer ' Purpose: Sanitizes Arabic text by removing non-Arabic characters, optionally normalizing the text, ' removing diacritics (harakat), and optionally removing numeric characters or spaces. ' Parameters: ' inputText (String): The Arabic text to be sanitized. It can contain Arabic characters, non-Arabic characters, ' diacritics, and numeric values. ' normalize (Boolean): Optional. If True, the text will be normalized by replacing specific Arabic characters ' with their standardized equivalents (default is True). ' RemoveNumbers (Boolean): Optional. If True, numeric characters (0-9) will be removed from the text (default is True). ' removeSpaces (Boolean): Optional. If True, all spaces in the text will be removed (default is False). ' Returns: ' String: The sanitized Arabic text with optional normalization, removal of numbers, and spaces. ' ' Example Use Cases: ' 1. Remove spaces only and clean the text while keeping numbers without normalization: ' ' Removes spaces from the text while keeping numbers and without normalizing the text. ' ' Example: ArabicTextSanitizer(inputArabicText, False, False, True) ' ' 2. Remove spaces and clean the text while keeping numbers and normalizing: ' ' Normalizes the text and removes spaces, while keeping numbers. ' ' Example: ArabicTextSanitizer(inputArabicText, True, False, True) ' ' 3. Remove spaces and clean the text while removing numbers and normalizing: ' ' Normalizes the text, removes spaces, and removes numbers. ' ' Example: ArabicTextSanitizer(inputArabicText, True, True, True) ' ' 4. Remove spaces only and clean the text while removing numbers without normalization: ' ' Removes spaces and numbers, but does not normalize the text. ' ' Example: ArabicTextSanitizer(inputArabicText, False, True, True) ' Public Function ArabicTextSanitizer(inputText As String, Optional normalize As Boolean = True, Optional RemoveNumbers As Boolean = True) As String On Error GoTo ErrorHandler ' Ensure the input is valid (non-empty and not null) If Nz(inputText, "") = "" Then ArabicTextSanitizer = "" Exit Function End If ' Initialize the sanitizedText with the trimmed input Dim sanitizedText As String sanitizedText = Trim(inputText) ' Step 1: Normalize the text if requested If normalize Then ' Define character replacement pairs for normalization Dim charReplacementPairs As Variant charReplacementPairs = Array( _ Array(ChrW(1573), ChrW(1575)), _ Array(ChrW(1571), ChrW(1575)), _ Array(ChrW(1570), ChrW(1575)), _ Array(ChrW(1572), ChrW(1608)), _ Array(ChrW(1574), ChrW(1609)), _ Array(ChrW(1609), ChrW(1610)), _ Array(ChrW(1577), ChrW(1607)), _ Array(ChrW(1705), ChrW(1603)), _ Array(ChrW(1670), ChrW(1580))) ' Apply replacements for character normalization Dim pair As Variant For Each pair In charReplacementPairs sanitizedText = Replace(sanitizedText, pair(0), pair(1)) Next ' Step 2: Remove diacritics (harakat) from the text Dim diacritics As String diacritics = ChrW(1600) & ChrW(1611) & ChrW(1612) & ChrW(1613) & ChrW(1614) & ChrW(1615) & ChrW(1616) & ChrW(1617) & ChrW(1618) Dim i As Integer For i = 1 To Len(diacritics) sanitizedText = Replace(sanitizedText, Mid(diacritics, i, 1), "") Next End If ' Step 3: Retain only Arabic characters, spaces, and optionally numbers Dim tempChars() As String Dim charIndex As Long Dim intChar As Integer Dim finalResultText As String ' Iterate through each character in the sanitized text For i = 1 To Len(sanitizedText) intChar = AscW(Mid(sanitizedText, i, 1)) ' Check for Arabic characters (range for Arabic characters and spaces) If intChar = 32 Or _ (intChar >= 1569 And intChar <= 1594) Or _ (intChar >= 1601 And intChar <= 1610) Or _ (intChar >= 1648 And intChar <= 1649) Then ReDim Preserve tempChars(charIndex) tempChars(charIndex) = ChrW(intChar) charIndex = charIndex + 1 ' Optionally, check for numbers if RemoveNumbers is False ElseIf Not RemoveNumbers And (intChar >= 48 And intChar <= 57) Then ReDim Preserve tempChars(charIndex) tempChars(charIndex) = ChrW(intChar) charIndex = charIndex + 1 End If Next ' Step 4: Join the valid characters into a final result text finalResultText = Join(tempChars, "") ' Step 5: Remove extra spaces (multiple consecutive spaces replaced with a single space) finalResultText = Replace(finalResultText, " ", " ") ' Improved space replacement Do While InStr(finalResultText, " ") > 0 finalResultText = Replace(finalResultText, " ", " ") Loop ' Step 6: Remove special characters (if needed) finalResultText = Replace(finalResultText, "*", "") finalResultText = Replace(finalResultText, "#", "") finalResultText = Replace(finalResultText, "@", "") finalResultText = Replace(finalResultText, ",", "") ' Return the sanitized text If Len(Trim(Nz(finalResultText, ""))) = 0 Then ArabicTextSanitizer = vbNullString Else ArabicTextSanitizer = finalResultText End If Exit Function ErrorHandler: Debug.Print "Error in ArabicTextSanitizer: " & Err.Description ArabicTextSanitizer = "" End Function وهذه الوظيفة تبين اشكال وطرق الاستدعاء المختلفة ' Subroutine: TestArabicTextSanitizer ' Purpose: Demonstrates and validates the functionality of the ArabicTextSanitizer function. ' It shows various test cases for sanitizing Arabic text with diacritics, non-Arabic characters, and numbers. Sub TestArabicTextSanitizer() ' Declare input and result variables Dim inputArabicText As String Dim result As String ' Example input text with diacritics, non-Arabic characters, and numbers inputArabicText = "تَجْرِبَةُ * فَاحِصِهِ # @ , لِعَمَلٍ أَلِكَوَّدِ فِىَّ شَتِّيَّ 3ألْإِشْكآل " & _ "إِشْرَافٍ عَلَى? بَعْضِ الْأَمَاكِنِ أَوْ الْمَكَانِ رَقْمٌ 5 و الْمَكَانِ رَقْمٌ 100100ِ لمعرفة كيف سيعمل ها ألكود" ' Display the original input Arabic text Debug.Print "Input Arabic Text: " & inputArabicText ' Test case 1: Remove diacritics without normalization ' This case removes diacritics (harakat) without altering normalization or removing numbers result = ArabicTextSanitizer(inputArabicText, False, False) Debug.Print "Filtered Arabic Text (case 1 - Remove diacritics without normalization): " & result ' Test case 2: Normalize and remove diacritics ' This case normalizes the text (e.g., converting similar Arabic characters) and removes diacritics result = ArabicTextSanitizer(inputArabicText, True, False) Debug.Print "Normalized Arabic Text and Removed Diacritics (case 2): " & result ' Test case 3: Remove numbers as well (Optional argument set to True to remove numbers) ' This case normalizes the text and removes both diacritics and numbers result = ArabicTextSanitizer(inputArabicText, True, True) Debug.Print "Text without Numbers and Normalized (case 3): " & result ' Test case 4: Just remove diacritics without normalization or removing numbers ' This case removes diacritics and numbers, but does not normalize the text result = ArabicTextSanitizer(inputArabicText, False, True) Debug.Print "Text without Diacritics and Numbers (case 4): " & result End Sub واخيرا اليكم مرفق للتجربة Arabic Text Sanitizer.accdb

اولا هذه الفكرة وهذا النموذج عند البناء وقطعا هذه المرحلة تسبق التحزيم وهذا النموذج لن يكون متاح للمستخدمين مطلقا فقط لمطور النظم او للمصمم

استاذى الجليل و معلمى القدير و والدى الحبيب فضلا وكرما قم بتجربة المرفق التالى اعتبر انها واجهة امامية وهذه هى المرة الاولى التى تستورد اليها الجدوال التى تريد من القاعدة او القواعد الخلفية ان تعددت من النموذج المعد لذلك قبل التجربة لا يوجد اى جداول بعد تجربتك انظر الى الجدول الجديد المحلى والذى سوف يتم انشاءه تلقائيا وقم بفتحه وفحص اسماء الحقول وعناوينها وتوصيفها والبيانات بداخلها ومعه باقى الجداول المرتبطه اعتذر بشدة لم انتبه انه قمت بوضع المشاركة الاخيــــرة بدون المرفق ImportLinkedTableManage.accdb

وهاكم افكارى المتواضعة التى كنت اخطط لها لا يوجدى جداول اساسا لا جدول البيانات للجداول المرتبطة و الذى يخص المبرمج ولا حتى اى جداول مرتبطة بالقاعدة قم بالتجربة بتحديد والتاشير على قاعدة بيانات تخص الجداول مثلا اختر الجدول او / عدة الجداول التى تريد استرادها على انها مرتبطة بهذه الواجهة الامامية قم بالضغط على زر الربط والاستيراد وانظر الى الذى سوف يتم بشكل آلى دون ادنى عناء وبدون حتى اى تدخل من المستخدم ولا المبرمج مستقبلا حتى فى انتظار ردكم بعد تجربتكم وانا حالا سوف انظر الى الدرر فى مرفقكم

سوف اقوم بالتجربة ان شاء الله واعود اليكم

وبما انى صعيدى ومش قادر افهم قصد حضرتك ارجوك بعد ما تنتهى من التعديلات التى تريدها ارفق مرفقا بهذه التعديلات لعلى افهم شيئا

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

تم حذف الاستعلامات تم عمل اغلاق للقاعدة تم عمل ضغط واصلاح للقاعدة بعد اعادة فتحها النتيجة بعد كل ما سبق Query: ~sq_cCopy Of frmReports~sq_cs3 -> Table: tblsaf Query: ~sq_cfrmBarPrint~sq_ct2 -> Table: tblGrPoinCount Query: ~sq_cfrmcomIn~sq_cname1 -> Table: tblnames Query: ~sq_cfrmcomIn5~sq_cname1 -> Table: tblNames Query: ~sq_cfrmcomIn5~sq_cqama -> Table: tblSaf Query: ~sq_cfrmEshtrakatNotic~sq_cCombo15 -> Table: tblEshtrakatType Query: ~sq_cfrmEshtrakatNotic~sq_ceshOffres -> Table: tblEshtrakatOffres Query: ~sq_cfrmlog~sq_cgateNm -> Table: tblMsgGate Query: ~sq_cfrmNames~sq_cJensya -> Table: tbljensya Query: ~sq_cfrmNames~sq_cمربع_تحرير_وسرد187 -> Table: tblAdres Query: ~sq_cfrmOrderItem~sq_cItmDesc -> Table: tblOrderItem Query: ~sq_cfrmsecurity~sq_ccompname -> Table: tblUsers Query: ~sq_ffrmEshtrakatNotic -> Table: tblEshtrakatTsdeed Query: ~sq_ffrmNmadg -> Table: tblNmadg Query: ~sq_ffrmOrdersIn -> Table: tblOrderDetails Query: ~sq_ffrmRaes -> Table: tblRaese Query: ~sq_rRepHdorTfseelStud -> Table: tblcomInX الحمد لله ... لله الفضل والحمد والمنه هل تريد اى شئ أخر يا استاذى الجليل ومعلمى القدير و والدى الحبيب

والدى الحبيب هذه تجربتى ومحاولتى هذا ما حصلت عليه من الكود الذى قدمته لكم قبل قليل من مرفقكم الاخــــير Query: ~sq_cCopy Of frmReports~sq_cs3 -> Table: tblsaf Query: ~sq_cfrmBarPrint~sq_ct2 -> Table: tblGrPoinCount Query: ~sq_cfrmcomIn~sq_cname1 -> Table: tblnames Query: ~sq_cfrmcomIn5~sq_cname1 -> Table: tblNames Query: ~sq_cfrmcomIn5~sq_cqama -> Table: tblSaf Query: ~sq_cfrmEshtrakatNotic~sq_cCombo15 -> Table: tblEshtrakatType Query: ~sq_cfrmEshtrakatNotic~sq_ceshOffres -> Table: tblEshtrakatOffres Query: ~sq_cfrmlog~sq_cgateNm -> Table: tblMsgGate Query: ~sq_cfrmNames~sq_cJensya -> Table: tbljensya Query: ~sq_cfrmNames~sq_cãÑÈÚ_ÊÍÑíÑ_æÓÑÏ187 -> Table: tblAdres Query: ~sq_cfrmOrderItem~sq_cItmDesc -> Table: tblOrderItem Query: ~sq_cfrmsecurity~sq_ccompname -> Table: tblUsers Query: ~sq_ffrmEshtrakatNotic -> Table: tblEshtrakatTsdeed Query: ~sq_ffrmNmadg -> Table: tblNmadg Query: ~sq_ffrmOrdersIn -> Table: tblOrderDetails Query: ~sq_ffrmRaes -> Table: tblRaese Query: ~sq_rRepHdorTfseelStud -> Table: tblcomInX Query: QPointCritrDate -> Table: tblPoints Query: Qpointes -> Table: tblGrPoin Query: Qtsmyh -> Table: tbltsmyah هل النتيجة صحيحة ام هناك جداول لم تأتى اسمائها ؟؟