استعراض الصور من خارج ملف اكسس

[شامل2]

السلام عليكم

رمضان كريم وتقبل الله اعمالكم

كيف يمكن عرض الصور والمستندات المصورة في المثال بامتدادات مختلفة.

بعض الصور امتدادها jpg يتم عرضها  والاخر امتدادها png لا تعرض

 

التعامل مع الصور.rar

[AlwaZeeR]

تفضل

::

تحياتي

 

التعامل مع wالصور.zip

[شامل2]

منذ ساعه, AlwaZeeR said:

تفضل

::

تحياتي

بارك الله فيك اخينا العزيز

وكيف يمكن استدعاء الصور اذا كانت في اكثر من مجلد؟

كما في المرفق

التعامل مع wالصور.zip 552.68 kB · 0 downloads

 

التعامل مع الصور.rar

[AlwaZeeR]

مرة ثانية لا تضغط تم حل الاجابة قبل ان تتاكد من انك انهيت ما تريد

او افتح موضوع جديد 

تحياتي

 

ShowAllpic.zip

[شامل2]

11 دقائق مضت, AlwaZeeR said:

مرة ثانية لا تضغط تم حل الاجابة قبل ان تتاكد من انك انهيت ما تريد

او افتح موضوع جديد 

تحياتي

 

ShowAllpic.zip 562.82 kB · 0 downloads

بارك الله فيك اخينا

 

[شامل2]

3 ساعات مضت, AlwaZeeR said:

مرة ثانية لا تضغط تم حل الاجابة قبل ان تتاكد من انك انهيت ما تريد

او افتح موضوع جديد 

تحياتي

 

ShowAllpic.zip 562.82 kB · 2 downloads

السلام عليكم

اخينا الكريم @AlwaZeeR

تظهر الوثائق بشكل عمودي

[kkhalifa1960]

مشاركةً مع استاذنا @AlwaZeeR تفضل أخي مرفق حصلته بمكتبتي .

All extensions in web browser.rar

[شامل2]

8 ساعات مضت, kkhalifa1960 said:

مشاركةً مع استاذنا @AlwaZeeR تفضل أخي مرفق حصلته بمكتبتي .

All extensions in web browser.rar 1.13 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 5 downloads

شكرا استاذنا لكن ليس هذه الفكرة!

[AlwaZeeR]

15 ساعات مضت, شامل2 said:

تظهر الوثائق بشكل عمودي

صراحة لم افهم ما تقصده ارفق صورة اذا تكرمت 

[سامي الحداد]

في 1‏/4‏/2024 at 19:29, شامل2 said:

كيف يمكن عرض الصور والمستندات المصورة في المثال بامتدادات مختلفة.

بعض الصور امتدادها jpg يتم عرضها  والاخر امتدادها png لا تعرض

وعليكم السلام 

مشاركة مع الاساتذة بازك الله فيهم هل هذا هو المطلوب ؟

Private Sub Form_Current()
    Dim Psh As String
    Dim filePath As String
    Dim fileName As String
    
    On Error GoTo Err
    
    fileName = [ID]
    filePath = CurrentProject.Path & "\picto\" & fileName
    
    If Dir(filePath & ".jpg") <> "" Then
        Psh = filePath & ".jpg"
    ElseIf Dir(filePath & ".png") <> "" Then
        Psh = filePath & ".png"
    Else
        Psh = ""
    End If
    
    pic.Picture = Psh
    
    Exit Sub
    
Err:
    pic.Picture = ""
    Exit Sub
End Sub

والملف بعد التعديل 

التعامل مع الصور 2.rar

[سامي الحداد]

  

الان انتبهت انك غيرت طلبك .  

هذا طلبك الاول : وقد رايت كود الاستاذ @AlwaZeeR وهو يعمل بكفاءه.

في 1‏/4‏/2024 at 19:29, شامل2 said:

كيف يمكن عرض الصور والمستندات المصورة في المثال بامتدادات مختلفة.

بعض الصور امتدادها jpg يتم عرضها  والاخر امتدادها png لا تعرض

في 1‏/4‏/2024 at 20:18, شامل2 said:

وكيف يمكن استدعاء الصور اذا كانت في اكثر من مجلد؟

وهدا طلبك الثاني : هل هو المطلوب ام ان هناك تغير ثالث؟  أخي الكريم انت عضو فضي وتعرف قوانين المنتدى .

على العموم قمت بتغير الكود للتالي فقط الغي الكود السابق وضع هذا الكود 

Private Sub Form_Current()
    Dim Psh As String
    Dim fileName As String
    Dim folderPath As String
    Dim folderName As Variant
    
    On Error GoTo Err
    
    fileName = [ID]
    
    Dim folders() As String
    folders = Split("picto,picto1,Picto2", ",")
    
    For Each folderName In folders
        folderPath = CurrentProject.Path & "\" & folderName & "\"
        
        If Dir(folderPath & fileName & ".jpg") <> "" Then
            Psh = folderPath & fileName & ".jpg"
            Exit For ' Exit loop once file is found
        ElseIf Dir(folderPath & fileName & ".png") <> "" Then
            Psh = folderPath & fileName & ".png"
            Exit For
        End If
    Next folderName
    
    pic.Picture = Psh
    
    Exit Sub
    
Err:
    pic.Picture = ""
    Exit Sub
End Sub

تحياتي 

[شامل2]

السلام عليكم

شكرا زملائي واخوتي الاعزاء

@سامي الحداد @AlwaZeeR  @kkhalifa1960

بارك الله في عملكم واحسن الله لكم

[gavan]

اخوتي لكم جزيل الشكر على الموضوع و الردود على الموضوع، وهل بامكاني اظافة سوال حول الموضوع؟ 

اعتقد انه في هذا الكود يجب ارفاق ملف الصور و البرنامج معا، السؤال هو:

كيف يمكن أن يكون البرنامج في قرص C و مجلد الصور في القرص E ويتم جلب الصور من خلال الكو و تحياتي🌹🌹🌹

[ابوخليل]

استبدل هذا السطر

folderPath = CurrentProject.Path & "\" & folderName & "\"

بما يشبه هذا

folderPath = "E:\"  & folderName & "\"

 

[gavan]

مبدع مبدع دائما اخي الغالي ابو خليل الورد 🌹🌹، تحياتي يالغالي من كل قلبي 

[gavan]

اخي الغالي هل المسار الذي كتيته صحيح ,لانه لايعطي الناتج , حيث المطلوب اظهار ملف PDF في مسار قرص C و البرنامج في القرص E

Dim x As String
x = x = "C:\" & Users \ Dell \ Desktop \ "In-Out-Program 7-1-2024\IN-PDF "" \ " & Me.TextConv & ".pdf"
Application.FollowHyperlink x
    

 

[ابوخليل]

لماذا تكرر x=

جرب هذا

x = "C:\ Users \ Dell \ Desktop \ In-Out-Program 7-1-2024\IN-PDF " & "\" & Me.TextConv & ".pdf"

 

[gavan]

6 ساعات مضت, ابوخليل said:

لماذا تكرر x=

جرب هذا

x = "C:\ Users \ Dell \ Desktop \ In-Out-Program 7-1-2024\IN-PDF " & "\" & Me.TextConv & ".pdf"

 

شكرا يالغالي ابو خليل على الرد , تكرار ال x هو خطا مطبعي 

الكود الذي ارفقته ما اشتغل 

الكود في الاسفل يعمل بصورة صحيحة  اذا كان ملف ال( Frontend و Backend , وملفات ال PDF) في نفس المجلد

x = Application.CurrentProject.Path & "\" & Me.TextConv & ".pdf"
Application.FollowHyperlink x
    

اما اذا نقلت ال Frontend الى قرص اخر و طبقت عليه الكود الذي جربته من حظرتك ,لايعمل 

تحياتي ❤️

[ابوخليل]

المسارات تؤخذ بطرق متعددة ، اما مباشرة او عن طريق وسيط

يمكننا جعل المسار بمعلومية موقع قاعدة الجداول اين ما تكون ..

يجب ان تكتب المسار الصحيح .. لو تخطىء بفاصلة او حرف لن يعمل

مشكلتك الآن في ضبط المسار المباشر

جرب وحاول حتى تكتشف بنفسك مكان الخلل .. هكذا تعلمنا