محمد الموافى

جزاك الله خيرا أخى ابو عبدالبارى هذا هو المطلوب شكرا لك

شكرا استاذى الفاضل على اهتمامك هذا بالنسبة للشيت ما اريده بالنسبة للفورم وهذا هو المرفق البحث باول حرف.rar

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

السلام عليكم ورحمة الله وبركاته اولا كل الشكر الى الاساتذة فى هذا المكان الذى تعلمنا منه هذه اول تجربة لى فى عمل بحث واستعلام بما تعلمته من الاخوة هنا وسؤالى هل يمكن اختصار هذا الكود فى كواد واحد من خلاله احدد البحث مرة بالفرع ومرة بالرقم ومرة بالاسم جربت كمبوبوكس ولم يفلح ارجو الافادة متابعة الفروع.rar

شاكر لحضرتك على كلماتك فعلا عندك حق فى كل ما قلته

شكرا استاذ احمد على اهتمامك هذا الملف حملته من المنتدى واستفدت منه كثير لكن حتى تعم المنفعة لم افهمه البحث بمعيارواحد.rar

Option Explicit '****************************************************** '****************************************************** ' اسم ورقة البيانات Private Const Mysh_Name As String = "DATA" '------------------------------------------------------ ' رقم عمود البحث Private Const MyFind_Column As Integer = 1 '------------------------------------------------------ ' ارتفاع الكنترول Private Const iHeight As Integer = 20 '****************************************************** '****************************************************** Private Sub kh_Find(MyText As String) Dim MyHght, MyTp Dim Last As Integer, ii As Integer, T As Integer '=========================================== With Me.Frame1 MyTp = .Controls(0).Top + .Controls(0).Height + 2 T = .Controls.Count End With '=========================================== With Worksheets(Mysh_Name) Last = .Cells(.Rows.Count, MyFind_Column).End(xlUp).Row For ii = 2 To Last If CStr(.Cells(ii, MyFind_Column)) Like IIf(Me.Check_Text.Value, "", "*") & MyText & "*" Then MyHght = .Rows(ii).RowHeight If MyHght < iHeight Then MyHght = iHeight kh_Add_Controls Me.Frame1, MyTp, MyHght, .Cells(ii, MyFind_Column).Row, T MyTp = MyTp + MyHght + 2 End If Next End With If MyTp >= Me.Frame1.Height Then Me.Frame1.ScrollHeight = MyTp '=========================================== End Sub Private Sub kh_Add_Controls(MyCont As Control, MyTop, MyHeight, iRo As Integer, MyCount As Integer) 'On Error Resume Next Dim MyTxt As Control Dim i As Integer For i = 1 To MyCount Set MyTxt = MyCont.Add("Forms.TextBox.1", Cells(iRo, i).Address, True) With MyTxt .Move MyCont.Controls(i - 1).Left, MyTop, MyCont.Controls(i - 1).Width, MyHeight .MultiLine = True '=========================================== .ControlSource = "'" & Mysh_Name & "'!" & Range(.Name).Address '=========================================== End With '======================================== With Worksheets(Mysh_Name).Cells(iRo, i) MyTxt.TextAlign = Me.kh_TextAlign(.HorizontalAlignment) MyTxt.Font.Bold = .Font.Bold MyTxt.Font.Size = .Font.Size MyTxt.FontName = .Font.Name End With '======================================== Next i '================== Set MyTxt = Nothing '================== 'On Error GoTo 0 End Sub Patrive Sub kh_Remove() On Error Resume Next Dim MyCon As Control Me.Frame1.ScrollHeight = 0 For Each MyCon In Me.Frame1.Controls If TypeName(MyCon) = "TextBox" Then Me.Frame1.Controls.Remove MyCon.Name End If Next MyCon On Error GoTo 0 End Sub Private Sub Button_Find_Click() kh_Remove If Len(Trim(Me.TextBox_Find.Text)) Then kh_Find Me.TextBox_Find End If End Sub Private Sub TextBox_Find_Change() kh_Remove End Sub Function kh_TextAlign(MyAlign) As Integer Dim Ag Dim A As Integer For A = 1 To 3 Ag = Choose(A, -4131, -4108, -4152) If Ag = MyAlign Then kh_TextAlign = A: Exit Function Next kh_TextAlign = 1 End Function

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

للرفع

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

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

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

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

للرفع

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