طلب اضافة بحث مع الفلترة فى اليوزرفورم

[عادل ابوزيد]

السلام عليكم

استكمالات لموضوع سابق وهذا رابطه

https://www.officena.net/ib/topic/121785-اضافة-شرط-عند-عد-الحالات-استكمال-لموضوع-سابق/

 

هل يمكن اضافة البحث داخل اليوزرفورم بحيث يتم البحث بجزء من رقم الحالة

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

تقبلوا تحياتى وشكرى وتقديرى

 

New folder.rar

تم تعديل ديسمبر 12, 2023 بواسطه عادل ابوزيد

[محمد هشام.]

تفضل اخي  تم اظافة ورقة مخفية لعرض الملفات الموجودة داخل المجلد على الليست بوكس واستخراج وطباعة اسماء التقارير الغير مرفوعة

'Private Sub UserForm_Initialize() اظافة في
 nomPDF = "Tableau1"
 Réf = Range(nomPDF).Columns.Count
 List = Range(nomPDF).Resize(, Réf + 1).Value
 For i = 1 To UBound(List): Next i
'''''''''''''''''''''''''''''''''
Private Sub Recherche_Change()
  ling1 = 1
  ling2 = 2
  clé = "*" & Me.Recherche & "*": n = 0
  Dim Tbl()
  For i = 1 To UBound(List)
  On Error Resume Next
    If List(i, ling1) Like clé Or List(i, ling2) Like clé Then
n = n + 1: ReDim Preserve Tbl(1 To 2, 1 To n)
Tbl(1, n) = List(i, ling1): Tbl(2, n) = (Format((List(i, ling2)), "dd/mm/yyyy   hh:mm"))
     End If
  Next i
  If n > 0 Then Me.ListBox1.Column = Tbl Else Me.ListBox1.Clear
  Counter = "عدد التقارير " & "/" & ListBox1.ListCount

End Sub

 بالتوفيق.....🫡

الملف بعد التعديل 3.xls تقرير الحالات.rar

تم تعديل ديسمبر 14, 2023 بواسطه محمد هشام.

[عادل ابوزيد]

السلام عليكم

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

عند ملاحظة عند تنفيذ عملية البحث تظهر هذه الرسالة

هل عدم تنفيذ منى بشكل صحيح برجاء التوجيه

مع خالص شكرى وتقديرى

[محمد هشام.]

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

مع العلم  ان الملف يشتغل معي بشكل جيد وبدون ادنى مشكلة  على نسخة 2021

اليك الرابط التالي     https://streamable.com/x84gtp

 اليك حل اخر 

 'Private Sub UserForm_Initialize()
'في اخر الكود قم باستبدال الكود الاول بهدا
 Dim ws, List, tb2(), réf
 
  Set ws = PDF
  List = ws.Range("A2:B" & ws.[A65000].End(xlUp).Row).Value
  tb2 = Array(1, 2)
  réf = UBound(tb2) + 1

' وهدا في حدث  التيكست بوكس
Private Sub Recherche_Change()
  a = "*" & Me.Recherche & "*"
  Dim j(): n = 0
  For i = 1 To UBound(List)
    If List(i, 1) Like a Or List(i, 2) Like a Then
      n = n + 1: ReDim Preserve j(1 To réf, 1 To n)
       List(i, 2) = Format(List(i, 2), "dd/mm/yyyy   hh:mm")
      c = 0
      For Each k In tb2
        c = c + 1: j(c, n) = List(i, k)

      Next k
    End If
  Next i
  If n > 0 Then Me.ListBox1.Column = j Else Me.ListBox1.Clear
End Sub

 

الملف بعد التعديل 4.xls

تم تعديل ديسمبر 14, 2023 بواسطه محمد هشام.

[عادل ابوزيد]

السلام عليكم 

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

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

تقبل شكرى وتقدير لمجهودك وتعبك معايا

تعديل : المشكلة تظهر عند البحث وظهور العلف وعند الضغط دابل كليك على الملف تظهر الرسالة ولكن عن الضعط على زرار فتح التقرير يفتح التقرير 

تم تعديل ديسمبر 15, 2023 بواسطه عادل ابوزيد

[محمد هشام.]

إذن أخي المشكلة في إصدار الأوفيس لديك لهذا يجب أن يكون طلبك على قدر إمكانيات  الإصدار المستخدم من طرفك!!!!

هل جربت عرض الملفات في النسخة الأولى ام لا؟

 

تم تعديل ديسمبر 16, 2023 بواسطه محمد هشام.

[عادل ابوزيد]

السلام عليكم 

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

جزاك الله كل خير ومتعة بالصحة والعافية وراحة البال

[محمد هشام.]

العفو اخي الكريم يسعدنا اننا استطعنا مساعدتك 

 رغم انني اعتقد ان النسخة السابقة افضل لاكن هده اخر محاولة

تم تغيير جميع الاكواد من على اليوزرفورم  تمت التجربة على اصدار 2016  و 2010   وتمت العملية بنجاح . 

النسخة المعدلة.xls

[عادل ابوزيد]

ما شاء الله من العلم نستزيد على يد اساتذة .. تسلم يداك استاذنا الفاضل محمد هشام

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