تعديل كود بحث

[محمد الموافى]

السلام عليكم ورحمة الله وبركاته

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

وارجو المساعدة كما بالملف المرفق

البحث بالرقم ويظهر لى الاسم وتاريخ الميلاد والقيمة التأمينية

والعمر وجملة القيمة التأمينية لرقم البحث

تأمين.rar

[محمد الموافى]

للرفع

[رجب جاويش]

تفضل أخى

تم تغير الفورم لعله يكون كما تريد

وتم استخدام الكود التالى

Private Sub TextBox1_Change()
Dim cl As Range
Set Rng = ورقة1.Range("A2:A43")
For Each cl In Rng
    If cl = Val(TextBox1) Then
        TextBox2 = cl.Offset(0, 1)
        TextBox3 = cl.Offset(0, 2)
        Me.TextBox4 = WorksheetFunction.SumIf([A4:A43], Me.TextBox1, [D4:D43])
        TextBox5 = cl.Offset(0, 4)
    End If
Next
End Sub

بحيث يتم البحث بمجرد كتابة الرقم فى TEXTBOX1

 

تأمين.rar

[محمد الموافى]

4 ساعات مضت, رجب جاويش said:

تفضل أخى

تم تغير الفورم لعله يكون كما تريد

وتم استخدام الكود التالى

Private Sub TextBox1_Change()
Dim cl As Range
Set Rng = ورقة1.Range("A2:A43")
For Each cl In Rng
    If cl = Val(TextBox1) Then
        TextBox2 = cl.Offset(0, 1)
        TextBox3 = cl.Offset(0, 2)
        Me.TextBox4 = WorksheetFunction.SumIf([A4:A43], Me.TextBox1, [D4:D43])
        TextBox5 = cl.Offset(0, 4)
    End If
Next
End Sub

بحيث يتم البحث بمجرد كتابة الرقم فى TEXTBOX1

 

تأمين.rar

شكرا استاذى الفاضل على اهتمام حضرتك

ما اريده هو اظهار الصفوف كلها التى يظهر بها الرقم

فهذا الفورم يظهر حركة واحدة اى صف واحد ولكن اريد ظهور كل الصفوف التى بها رقم العميل

اريدها على frame مطابق للشيت من حيث الخط والحجم

وشكرا لسعة صدرك

[محمد الموافى]

فى ملف حملته من الموقع شبيه بنفس طلبى

لكن ما اريده معرفة او شرح كود البحث والنتيجة فقط

وشكرا

البحث بمعيارواحد.rar

[خالد الرشيدى]

السلام عليكم

الاخ الفاضل / محمد الموافى

ما هو الغرض من عرض البيانات طالما انها تمثل بيان شخص واحد يكرر فى كل مرة

ارجو التوضيح

[محمد الموافى]

في ٦‏/٢‏/٢٠١٦ at 23:56, خالد الرشيدى said:

السلام عليكم

الاخ الفاضل / محمد الموافى

ما هو الغرض من عرض البيانات طالما انها تمثل بيان شخص واحد يكرر فى كل مرة

ارجو التوضيح

وعليكم السلام ورحمة الله وبركاته

بعتذر عن التأخير فى الرد لظروف النت

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

 

 

[محمد الموافى]

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

هنا

عملت فلترة فى الشيت وحددت الفورم

ارجو من الاخوة الاساتذة الاطلاع

ولكن ما اريده هو ان يظهر رؤس الاعمدة بلون مختلف

وتكون ثابتة عند تحريك الاسكوربار

وفى حالة التعديل فى الفورم يتم التعديل ايضا فى الشيت

وفى حالة اردت تغيير البحث بالاسم يظهر بمجرد كتابة اول حرف

وشكرا لسعة صدركم

 

تأمين.rar

[محمد الموافى]

للرفع