السلام عليكم الرجاء من الاخوه الاعزاء تفعيل زر البحث فى المسارات التى يجلبها

[Ahmedbakheet]

عارض pdf بالمسار.accdb

[Foksh]

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

 

أهلا وسهلاً بك في مشاركتك الأولى أخي @Ahmedbakheet ..

عليك بقراءة بعض قواعد وقوانين المنتدى كي تحصل على اجابة لطلبك .

 

وضح المطلووووب منك بالشرح الوافي اذا سمحت 

[Foksh]

على العموم ، وآملاً منك الإلتزام بقوانين المنتدى مستقبلاً . هل هذا طلبك في هذا الكود ؟؟؟

Private Sub Command7_Click()
    Dim i As Integer
    Dim searchText As String
    Dim listItem As String
    Dim found As Boolean
    searchText = InputBox("اكتب الكلمة التي تريد البحث عنها", "مربع البحث")
    If searchText = "" Then
        MsgBox "تم الغاء العملية", vbExclamation
        Exit Sub
    End If
    found = False
    For i = 0 To Me.Text4.ListCount - 1
        listItem = Me.Text4.ItemData(i)
        If InStr(1, listItem, searchText, vbTextCompare) > 0 Then
            found = True
            Me.Text4 = listItem
            DoCmd.Hourglass True
            [WebBrowser0].Object.ExecWB OLECMDID_OPTICAL_ZOOM, _
                OLECMDEXECOPT_DONTPROMPTUSER, CLng(100), vbNull
            [WebBrowser0].Object.Navigate2 listItem
            DoCmd.Hourglass False
            Exit Sub
        End If
    Next i
    If Not found Then
        MsgBox "لم يطابق البحث عن الكلمة التي بحثت عنها", , ""
    End If
End Sub

عارض pdf بالمسار.accdb

تم تعديل مايو 28 بواسطه Foksh

[Ahmedbakheet]

شكرا لك استاذى 

[Foksh]

4 ساعات مضت, Ahmedbakheet said:

شكرا لك استاذى 

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

وأهلاً بك مجدداً 🤗

 

واليك تعديل بسيط بحيث يتم افراغ المسارات في الليست بوكس Text4 قبل استعراض مجلد آخر

Private Sub cmdBrowse_Click()
    Me.Text4.RowSource = ""
Dim sysFo, sysFi, foldry, filey As Object, i As String, X As Integer
    Set sysFo = CreateObject("Scripting.FileSystemObject")
     With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show Then
        Set sysFi = sysFo.GetFolder(Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1))
    Set foldry = sysFo.GetFolder(sysFi).Files
    For Each filey In foldry
        i = sysFo.GetAbsolutePathName(filey)
        i = UCase(i)
        Text4.AddItem (filey)
    Next
   End If
 End With
    Set sysFo = Nothing
    Set sysFi = Nothing
    Set foldry = Nothing
End Sub

 

تم تعديل مايو 28 بواسطه Foksh
تعديل كود في المشاركة الأصلية

[kkhalifa1960]

مشاركة مع استاذ @Foksh تفضل استاذ @Ahmedbakheet محاولتي .

Display images with all extensions from path or name.rar

[Ahmedbakheet]

54 minutes ago, Foksh said:

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

وأهلاً بك مجدداً 🤗

شكرا استاذى ولكن زر البحث لايعمل على ما اتى به المسار وشكرا

38 minutes ago, kkhalifa1960 said:

مشاركة مع استاذ @Foksh تفضل استاذ @Ahmedbakheet محاولتي .

Display images with all extensions from path or name.rar 1.09 MB · 0 downloads

مشكور يا استاذى 

[Foksh]

20 دقائق مضت, Ahmedbakheet said:

على ما اتى به المسار وشكرا

58 دقائق مضت, kkhalifa1960 said:

مهو لو توضح أكثر صديقي العزيز ، وزودني بصورة لنتيجة البحث 😁

[Ahmedbakheet]

On 5/28/2024 at 9:58 AM, Foksh said:

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

وأهلاً بك مجدداً 🤗

 

واليك تعديل بسيط بحيث يتم افراغ المسارات في الليست بوكس Text4 قبل استعراض مجلد آخر

Private Sub cmdBrowse_Click()
    Me.Text4.RowSource = ""
Dim sysFo, sysFi, foldry, filey As Object, i As String, X As Integer
    Set sysFo = CreateObject("Scripting.FileSystemObject")
     With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show Then
        Set sysFi = sysFo.GetFolder(Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1))
    Set foldry = sysFo.GetFolder(sysFi).Files
    For Each filey In foldry
        i = sysFo.GetAbsolutePathName(filey)
        i = UCase(i)
        Text4.AddItem (filey)
    Next
   End If
 End With
    Set sysFo = Nothing
    Set sysFi = Nothing
    Set foldry = Nothing
End Sub

 

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

 

[Foksh]

13 ساعات مضت, Ahmedbakheet said:

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

 

عملتهولك في هذه المشاركة 

في 28‏/5‏/2024 at 09:58, Foksh said:

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

وأهلاً بك مجدداً 🤗

 

واليك تعديل بسيط بحيث يتم افراغ المسارات في الليست بوكس Text4 قبل استعراض مجلد آخر

Private Sub cmdBrowse_Click()
    Me.Text4.RowSource = ""
Dim sysFo, sysFi, foldry, filey As Object, i As String, X As Integer
    Set sysFo = CreateObject("Scripting.FileSystemObject")
     With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show Then
        Set sysFi = sysFo.GetFolder(Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1))
    Set foldry = sysFo.GetFolder(sysFi).Files
    For Each filey In foldry
        i = sysFo.GetAbsolutePathName(filey)
        i = UCase(i)
        Text4.AddItem (filey)
    Next
   End If
 End With
    Set sysFo = Nothing
    Set sysFi = Nothing
    Set foldry = Nothing
End Sub

 

 

[Ahmedbakheet]

On 5/31/2024 at 12:55 AM, Foksh said:

عملتهولك في هذه المشاركة 

On 5/31/2024 at 12:55 AM, Foksh said:

عملتهولك في هذه المشاركة 

 

شكرا لذوق حضرتك

 

 

[Ahmedbakheet]

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

عارض pdf بالمسار2.accdb

[Foksh]

8 دقائق مضت, Ahmedbakheet said:

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

 

إزاي ممكن توضح ؟؟؟لأن نتيجة البحث بتكون حسب اسماء الملفات بتاعتك ، بص هنا 

[Ahmedbakheet]

5 minutes ago, Foksh said:

إزاي ممكن توضح ؟؟؟لأن نتيجة البحث بتكون حسب اسماء الملفات بتاعتك ، بص هنا 

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

Just now, Ahmedbakheet said:

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

واعذرنى لعدم خبرتى الكافيه وتعبك معايا

[Foksh]

7 دقائق مضت, Ahmedbakheet said:

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

7 دقائق مضت, Ahmedbakheet said:

أحياناً .. دي بتكون مشكلة في الأوفيس ، لأني جربت البحث بالعربي وبالانجليزي على أكثر من مكان ، وما ظهرش مشكلة عندي
انا بستعمل أوفيس 2016 نواة 64 بت

[Ahmedbakheet]

4 minutes ago, Foksh said:

أحياناً .. دي بتكون مشكلة في الأوفيس ، لأني جربت البحث بالعربي وبالانجليزي على أكثر من مكان ، وما ظهرش مشكلة عندي
انا بستعمل أوفيس 2016 نواة 64 بت

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