husamwahab

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

السلام عليكم استاذ محمد القدسي محاولة عسى ان تكون موفقة التغيير في الكود حذث فقط في حدث عند التغيير لمربع البحث فانسخ هذا الكود للنسخة الشغالة عندك Private Sub txtSearchText_Change() Const acEnd = 3 Dim Rst As Recordset Dim SearchText As String Dim FieldName As String Dim Cntl As Control Dim strFilter As String Dim i As Long Me.txtSearchText.SetFocus SearchText = Nz(Me.txtSearchText.Text, "") If SearchText <> "" Then Select Case Me.CmbMatch Case acAnywhere: SearchText = "*" & SearchText & "*" Case acEntire: SearchText = SearchText Case acStart: SearchText = SearchText & "*" Case acEnd: SearchText = "*" & SearchText End Select End If If Me.OptSearch = 1 Then Me.txtRecords.Visible = True Me.RecRecords.Visible = True Else Me.txtRecords.Visible = False Me.RecRecords.Visible = False End If '--------------------------------------------------- Set Rst = Me.Controls(Me.CmbSubforms).Form.RecordsetClone strFilter = "" For i = 2 To (Me.CmbFields.ListCount - 1) Set Cntl = Me.Controls(Me.CmbSubforms).Form.Controls(Me.CmbFields.ItemData(i)) FieldName = "[" & Cntl.ControlSource & "]" strFilter = strFilter & " or " & FieldName & " Like '" & SearchText & "'" Next i Set Cntl = Me.Controls(Me.CmbSubforms).Form.Controls(Me.CmbFields.ItemData(1)) FieldName = "[" & Cntl.ControlSource & "]" Rst.Filter = FieldName & " Like '" & SearchText & "'" & strFilter Set Rst = Rst.OpenRecordset With Rst If .RecordCount > 0 Then .MoveLast Me.txtRecords = .RecordCount End With Rst.Close Select Case Me.OptSearch Case 1 '--------------------------------------------- For i = 1 To (Me.CmbFields.ListCount - 1) Set Cntl = Me.Controls(Me.CmbSubforms).Form.Controls(Me.CmbFields.ItemData(i)) FieldName = "[" & Cntl.ControlSource & "]" Cntl.FormatConditions.Delete '----------------------------------------------- Me.Controls(Me.CmbSubforms).Form.FilterOn = False With Me.Controls(Me.CmbSubforms).Form.RecordsetClone .FindFirst FieldName & " Like '" & SearchText & "'" If Not .NoMatch Then Me.Controls(Me.CmbSubforms).Form.Bookmark = .Bookmark With Cntl If .Section = 0 Then .FormatConditions.Add acExpression, , .Name & " Like '" & SearchText & "'" .FormatConditions(0).BackColor = 8454143 .FormatConditions(0).ForeColor = vbBlue '.FormatConditions(0).FontBold = True End If End With End If End With Next i Case 2 strFilter = "" For i = 1 To (Me.CmbFields.ListCount - 1) Set Cntl = Me.Controls(Me.CmbSubforms).Form.Controls(Me.CmbFields.ItemData(i)) FieldName = "[" & Cntl.ControlSource & "]" Cntl.FormatConditions.Delete Next i For i = 2 To (Me.CmbFields.ListCount - 1) Set Cntl = Me.Controls(Me.CmbSubforms).Form.Controls(Me.CmbFields.ItemData(i)) FieldName = "[" & Cntl.ControlSource & "]" strFilter = strFilter & " or " & FieldName & " Like '" & SearchText & "'" Next i With Me.Controls(Me.CmbSubforms).Form Set Cntl = Me.Controls(Me.CmbSubforms).Form.Controls(Me.CmbFields.ItemData(1)) FieldName = "[" & Cntl.ControlSource & "]" If SearchText <> "" Then .Filter = FieldName & " Like '" & SearchText & "'" & strFilter .FilterOn = True Else .FilterOn = False End If End With End Select LastSearchText = Nz(Me.txtSearchText.Text, "") End Sub

بالخدمة ورحم الله والديك

بالخدمة استاذ أبو يحيى الجبلاوي تصميم صندوق-2.rar

الشكر لله ولاساتذتنا الاجلاء جزاهم الله كل خير بالخدمة استاذ Ahmed Sary

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

الملف شغال عندي بصورة جيدة جربي هذا الملف Root-1001.rar

محاولة ارجو ان تكون موفقة ملاحظة: الحل مبني على المشاركة ادناه مع بعض التعديل https://www.officena.net/ib/topic/105776-تعديل-علي-كود-اضافة-صورة-لموظف/ Desktop.rar

الشكر لله استاذ حسين العربى وانا بالخدمة وهذا هو التعديل الذي طلبته ممنون منك استاذ علاء محمد علي ورحم الله والديك الارشيف شئون الموظفين-200.rar

تفضل هذه المحاولة استاذ حسين العربى ارجو ان تكون موفقة الارشيف شئون الموظفين-100.rar

تفضل اخ طاهر الوليدي ارجو ان يكون طلبك Root1010.rar

بالخدمة

تفضلي التعديل حسب فهمي لطلبك Root2013.rar

جربت التعديل الخير يقوم بالمطلوب

تفضلي التعديل ارجو ان يكون طلبك Root2012.rar

تفضل التعديل Root-2011.rar

مشاركة مع اساتذتي الاعزاء تفضل التعديل ارجو ان يكون طلبك ملاحظة : التعديل مبني على تعديل استاذ د.كاف يار جزاه الله كل خير Root-2020.rar

تفضل هذه المحاولة ارجو ان تكون طلبك مربع نص-2.rar

استاذ محمد القدسي يجب ان تحدد النموذج الفرعي المراد عمل الفرز عليه

بالخدمة استاذ alsihran

البرنامج شغال عندي بصورة جيدة واختبرت النتائج وكانت صحيح وهذه صورة للنتائج وان شاء الله نجد الحل عند اساتذتنا الاعزاء

جرب هذا التعديل وان شاء الله المحاولة تكون موفقة Search&Sort-3.rar

تفضل التعديل استاذ alsihran ارجو ان يكون طلبك التنسيق الشرطي-2.rar

بالخدمة استاذ يونس الخطابي

السلام عليكم استاذ محمد القدسي تفضل هذه المحاولة ارجو ان تكون موفقة Search&Sort-2.rar