شامل2 قام بنشر April 1 مشاركة قام بنشر April 1 السلام عليكم رمضان كريم وتقبل الله اعمالكم كيف يمكن عرض الصور والمستندات المصورة في المثال بامتدادات مختلفة. بعض الصور امتدادها jpg يتم عرضها والاخر امتدادها png لا تعرض التعامل مع الصور.rar رابط هذا التعليق شارك More sharing options...
AlwaZeeR قام بنشر April 1 مشاركة قام بنشر April 1 تفضل :: تحياتي التعامل مع wالصور.zip 1 رابط هذا التعليق شارك More sharing options...
شامل2 قام بنشر April 1 الكاتب مشاركة قام بنشر April 1 منذ ساعه, AlwaZeeR said: تفضل :: تحياتي بارك الله فيك اخينا العزيز وكيف يمكن استدعاء الصور اذا كانت في اكثر من مجلد؟ كما في المرفق التعامل مع wالصور.zip 552.68 kB · 0 downloads التعامل مع الصور.rar رابط هذا التعليق شارك More sharing options...
AlwaZeeR قام بنشر April 1 مشاركة قام بنشر April 1 مرة ثانية لا تضغط تم حل الاجابة قبل ان تتاكد من انك انهيت ما تريد او افتح موضوع جديد تحياتي ShowAllpic.zip 2 رابط هذا التعليق شارك More sharing options...
شامل2 قام بنشر April 1 الكاتب مشاركة قام بنشر April 1 11 دقائق مضت, AlwaZeeR said: مرة ثانية لا تضغط تم حل الاجابة قبل ان تتاكد من انك انهيت ما تريد او افتح موضوع جديد تحياتي ShowAllpic.zip 562.82 kB · 0 downloads بارك الله فيك اخينا رابط هذا التعليق شارك More sharing options...
شامل2 قام بنشر April 1 الكاتب مشاركة قام بنشر April 1 3 ساعات مضت, AlwaZeeR said: مرة ثانية لا تضغط تم حل الاجابة قبل ان تتاكد من انك انهيت ما تريد او افتح موضوع جديد تحياتي ShowAllpic.zip 562.82 kB · 2 downloads السلام عليكم اخينا الكريم @AlwaZeeR تظهر الوثائق بشكل عمودي رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر April 1 مشاركة قام بنشر April 1 مشاركةً مع استاذنا @AlwaZeeR تفضل أخي مرفق حصلته بمكتبتي . All extensions in web browser.rar 1 1 رابط هذا التعليق شارك More sharing options...
شامل2 قام بنشر April 2 الكاتب مشاركة قام بنشر April 2 8 ساعات مضت, kkhalifa1960 said: مشاركةً مع استاذنا @AlwaZeeR تفضل أخي مرفق حصلته بمكتبتي . All extensions in web browser.rar 1.13 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 5 downloads شكرا استاذنا لكن ليس هذه الفكرة! رابط هذا التعليق شارك More sharing options...
AlwaZeeR قام بنشر April 2 مشاركة قام بنشر April 2 15 ساعات مضت, شامل2 said: تظهر الوثائق بشكل عمودي صراحة لم افهم ما تقصده ارفق صورة اذا تكرمت 1 رابط هذا التعليق شارك More sharing options...
سامي الحداد قام بنشر April 2 مشاركة قام بنشر April 2 في 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 1 رابط هذا التعليق شارك More sharing options...
سامي الحداد قام بنشر April 2 مشاركة قام بنشر April 2 الان انتبهت انك غيرت طلبك . هذا طلبك الاول : وقد رايت كود الاستاذ @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 تحياتي 1 رابط هذا التعليق شارك More sharing options...
شامل2 قام بنشر April 3 الكاتب مشاركة قام بنشر April 3 السلام عليكم شكرا زملائي واخوتي الاعزاء @سامي الحداد @AlwaZeeR @kkhalifa1960 بارك الله في عملكم واحسن الله لكم رابط هذا التعليق شارك More sharing options...
gavan قام بنشر April 3 مشاركة قام بنشر April 3 اخوتي لكم جزيل الشكر على الموضوع و الردود على الموضوع، وهل بامكاني اظافة سوال حول الموضوع؟ اعتقد انه في هذا الكود يجب ارفاق ملف الصور و البرنامج معا، السؤال هو: كيف يمكن أن يكون البرنامج في قرص C و مجلد الصور في القرص E ويتم جلب الصور من خلال الكو و تحياتي🌹🌹🌹 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر April 3 مشاركة قام بنشر April 3 استبدل هذا السطر folderPath = CurrentProject.Path & "\" & folderName & "\" بما يشبه هذا folderPath = "E:\" & folderName & "\" 2 رابط هذا التعليق شارك More sharing options...
gavan قام بنشر April 3 مشاركة قام بنشر April 3 مبدع مبدع دائما اخي الغالي ابو خليل الورد 🌹🌹، تحياتي يالغالي من كل قلبي رابط هذا التعليق شارك More sharing options...
gavan قام بنشر April 15 مشاركة قام بنشر April 15 اخي الغالي هل المسار الذي كتيته صحيح ,لانه لايعطي الناتج , حيث المطلوب اظهار ملف 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 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر April 15 مشاركة قام بنشر April 15 لماذا تكرر x= جرب هذا x = "C:\ Users \ Dell \ Desktop \ In-Out-Program 7-1-2024\IN-PDF " & "\" & Me.TextConv & ".pdf" 1 رابط هذا التعليق شارك More sharing options...
gavan قام بنشر April 15 مشاركة قام بنشر April 15 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 الى قرص اخر و طبقت عليه الكود الذي جربته من حظرتك ,لايعمل تحياتي ❤️ رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر April 15 مشاركة قام بنشر April 15 المسارات تؤخذ بطرق متعددة ، اما مباشرة او عن طريق وسيط يمكننا جعل المسار بمعلومية موقع قاعدة الجداول اين ما تكون .. يجب ان تكتب المسار الصحيح .. لو تخطىء بفاصلة او حرف لن يعمل مشكلتك الآن في ضبط المسار المباشر جرب وحاول حتى تكتشف بنفسك مكان الخلل .. هكذا تعلمنا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان