مساعده (البحث بتاريخ الميلاد في فورم وإظهار النتائج في تكست بوكس)

[رجب جاويش]

تفضل أخى

 

البحث بتاريخ الميلاد12.rar

[الجموعي]

تفضل أخى

بارك الله فيك أستاذي

أين وجدت الخطا

[رجب جاويش]

أخى الفاضل

الخطأ كان فى الكود التالى

 For Each cl In rng1
        If cl = Me.TextBox2 Then
            RW = cl.Row
        End If
        Exit For
Next            

وتم تغيره الى الشكل التالى

For Each cl In rng1
        If cl = Me.TextBox2 Then
            RW = cl.Row
            Exit For
        End If   
Next

[الجموعي]

 

أخى الفاضل

الخطأ كان فى الكود التالى

 For Each cl In rng1
        If cl = Me.TextBox2 Then
            RW = cl.Row
        End If
        Exit For
Next            

وتم تغيره الى الشكل التالى

For Each cl In rng1
        If cl = Me.TextBox2 Then
            RW = cl.Row
            Exit For
        End If   
Next

أستاذي القدير/ رجب جاويش

بارك الله فيك وفي مساعيك

أسأل الله أن ينور قلبك بالعلم والدين ويشرح صدرك بالهدى والتقى واليقين

وييسر أمرك ويرفع مقامك في عليين ويحشرك بجوار النبي الامين

[رجب جاويش]

أخى الفاضل / الجموعي

شكرا جزيلا أخى الفاضل على هذا الدعاء الطيب

وجعل الله لك بمثل هذا الدعاء أضعافا مضاعفة

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