مساعدة في الهمزات والتاء المربوطة والمفتوحة الخ

[waheidi2005]

الزملاء الافاضل

بعد التحية ،،،

في نموذج certificate وعند كتابة اسم الطالب مثلا ( احمد ابراهيم "الحاج هدبان " هديب ) كما في الصورة المرفقة تظهر جميع السنوات الدراسية للطالب باستثناء السنة التي كان فيها في الصف ( السابع أ ) لان الاسم بدأ بهمزة ( أحمد ) 

المطلوب كيف يمكن حل مشكلة الهمزات والتاء المفتوحة والمربوطة

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

ولكم جزيل الشكر

New Microsoft Access Database.rar

تم تعديل مارس 19 بواسطه waheidi2005

[waheidi2005]

للرفع

[Foksh]

جرب هذا التعديل أخي الكريم @waheidi2005 .

 

Waheidi2005.zip

[waheidi2005]

اخي @Foksh بارك الله فيك على اهتمامك

بالنسبة للهمزة على الالف ( أ) الامور تمام ولكن بالنسبة للهمزة ( إ ) والتاء المربوطة مثل ( ابراهيم احمد العقبة ) جربت ولكن ما زبط

ممكن تشرحلي التعديلات وانا احاول تقليلا من  الغلبة عليك

جزاك الله كل خير

[Foksh]

8 ساعات مضت, waheidi2005 said:

بالنسبة للهمزة على الالف ( أ) الامور تمام ولكن بالنسبة للهمزة ( إ ) والتاء المربوطة مثل ( ابراهيم احمد العقبة ) جربت ولكن ما زبط

 

تفضل أخي الكريم ، استبدل الكود في حدث بعد التحديث بالتالي :-
 

Private Sub مربع_تحرير_وسرد137_AfterUpdate()
On Error Resume Next
Dim strFilter As String
Dim strName As String
strName = Replace(Replace(Replace(Replace(Me.مربع_تحرير_وسرد137, "أ", "ا"), "إ", "ا"), "ة", "ه"), "ه", "ه")
If Len(strName) > 0 Then
    strFilter = "Replace(Replace(Replace(Replace([jname], 'أ', 'ا'), 'إ', 'ا'), 'ة', 'ه'), 'ه', 'ه') LIKE '*" & strName & "*'"
End If
With Me.sub_ورقة1.Form
    If Len(strFilter) > 0 Then
        .Filter = strFilter
        .FilterOn = True
    Else
        .Filter = ""
        .FilterOn = False
    End If
    .Requery
End With
End Sub

جربه وأخبرني بالنتيجة

Waheidi2005_2.zip

[waheidi2005]

بارك الله فيك اخي  وجزاك الله كل خير

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

جعله الله في ميزان حسناتك