انشاء كود لعمل بحث في حقل معين مع تجاهل التشكيل والهمزات

[shabrawy]

السلام عليكم

ارجو المساعده من اصحاب الخبره الكرام فى هذا المنتدي المحترم

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

شاكر لحضراتكم جدا

تقبلوا تحياتي

from 93 to 2007.accdb

[Foksh]

4 ساعات مضت, shabrawy said:

السلام عليكم

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

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

لذا برأيي أنصحك أن تقوم بعمل نموذج مخصص للبحث ومنفصل عن نموذج الإدخال .

 

ستجد الكثير من الحلول ولكن اتبع السلوك المنطقي والسليم والذي سيكون مريحاً لك عند البدء بتطوير مشروعك بشل أوسع من مجرد نموذج .

[shabrawy]

الف شكر اخي الكريم .

[kkhalifa1960]

مشاركة مع استاذ @Foksh تفضل استاذ @shabrawy محاولتي حسب ما فهمت ... كي لايتأثر الجدول الاساسي من التشكيل 

بنضيف جدول مؤقت ونأخذ منه البيانات بعد ازالة التشكيل وغيره  لعرضها بالنموذج .  عملت لك نموذجين واحد بالبحث بالزر  والثاني بمجرد الكتابة بمربع البحث . اليك المرفق ووافني بالرد .

 

Shabrawy.rar

[Foksh]

مع الإستمرار بنفس الأسلوب الحالي لصاحب الطلب ، هذه فكرة بسيطة بدون فكرة التهميز ( مع أني غير مقتنع 😅 ) . الدالة البسيطة :-

Sub SearchRecords()
    On Error GoTo ErrorHandler
    
    Dim strSearch As String
    Dim strFilter As String
    
    strSearch = Trim(Nz(Me.txtSearchName.Value, ""))
    
    If strSearch = "" Then
        Me.Filter = ""
        Me.FilterOn = False
        MsgBox "تم إظهار جميع السجلات", vbInformation + vbMsgBoxRight, ""
    Else
        strFilter = "[الاسم] LIKE '*" & strSearch & "*' " & _
                   "OR [الدور] LIKE '*" & strSearch & "*' " & _
                   "OR [المدرسه] LIKE '*" & strSearch & "*' " & _
                   "OR [سنة التخرج] LIKE '*" & strSearch & "*' " & _
                   "OR CStr([م]) LIKE '*" & strSearch & "*' " & _
                   "OR CStr([المجموع]) LIKE '*" & strSearch & "*'"
        
        Me.Filter = strFilter
        Me.FilterOn = True
        
        If Me.Recordset.RecordCount > 0 Then
            MsgBox "تم العثور على " & Me.Recordset.RecordCount & " سجل", vbInformation + vbMsgBoxRight, ""
        Else
            MsgBox "لم يتم العثور على نتائج للبحث : " & strSearch, vbExclamation + vbMsgBoxRight, ""
        End If
    End If
    
    Exit Sub
    
ErrorHandler:
    MsgBox "حدث خطأ أثناء البحث", vbExclamation + vbMsgBoxRight, ""
End Sub

 

واستدعائها عند النقر للزر :-

Private Sub cmdSearch_Click()
    Call SearchRecords
End Sub

 

 

from 93 to 2007.zip

[shabrawy]

بارك الله فيكم جميعا والف شكر