فتح الصور على الرسام

[محمد احمد لطفى]

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

أعمل بكود لفتح الصور على الرسام (Shell "mspaint.exe  ""d:\photo\worker\" & [Worker] & ".jpg""", vbMaximizedFocus)
المطلوب تغيير (d:\photo) الى مسار البرنامج باستخدام (CurrentProject.Path)
 

وجزاكم الله خيرأ

 

 

Photo.rar

[Khalid Jnb]

اخي العزيز

مجموعة من الملفات للاخوة هنا بالموقع لعرض الصور

اتمنى ان تجد مايناسبك

تحياتي

photo.rar ادراج وحذف صورة.rar استعراض الصور اكسس 2010.rar نموذج ألبوم.rar

[محمد احمد لطفى]

4 دقائق مضت, خالد سيسكو said:

اخي العزيز

مجموعة من الملفات للاخوة هنا بالموقع لعرض الصور

اتمنى ان تجد مايناسبك

تحياتي

photo.rar 34.62 kB · 0 تنزيلات ادراج وحذف صورة.rar 34.02 kB · 0 تنزيلات استعراض الصور اكسس 2010.rar 23.42 kB · 0 تنزيلات نموذج ألبوم.rar 41.41 kB · 0 تنزيلات

مواضيع جميلة وحلوة بس ايه علاقتها بفتح الصور على الرسام 😅

[Khalid Jnb]

تفضل اخي الكريم

اتمنى ان يكون المطلوب تحباتي

images.rar

تم تعديل يناير 18, 2020 بواسطه خالد سيسكو

[محمد احمد لطفى]

10 دقائق مضت, خالد سيسكو said:

تفضل اخي الكريم

اتمنى ان يكون المطلوب تحباتي

images.rar 27.69 kB · 0 تنزيلات

المطلوب تغيير (d:\photo) الى مسار البرنامج باستخدام (CurrentProject.Path)  حتى لا أعمل خلايا أخرى
و مكان الصور فى ملف بجوار البرنامج

تم تعديل يناير 18, 2020 بواسطه محمد احمد لطفى

[Khalid Jnb]

اخي العزيز لم افهم قصدك

- هل تريد  فتح الصور وجلبها لبرنامج الاكسس الموجودة في  ملف Worker 

- ام تريد خزن الصور من ملف الاكسس الى ملف  Worker

 

تم تعديل يناير 18, 2020 بواسطه خالد سيسكو

[أبو عبدالله الحلوانى]

جرب هذا ووافنا بالنتائج

يفضل حفظ الصور بالـ ID الخاص بالموظف فبعض الحروف لا تضبط عند استدعائها بالكود

Photo.rar

[محمد احمد لطفى]

45 دقائق مضت, أبو عبدالله الحلوانى said:

جرب هذا ووافنا بالنتائج

يفضل حفظ الصور بالـ ID الخاص بالموظف فبعض الحروف لا تضبط عند استدعائها بالكود

Photo.rar 489.04 kB · 5 تنزيلات

فكرة رائعة (حفظ الصور بالـ ID الخاص بالموظف ) لان بالفعل بعض الرموز تعمل مشاكل 
جزاكم الله خيراً

تم تعديل يناير 18, 2020 بواسطه محمد احمد لطفى

[Abu Farid]

تفضل أخي

Shell "mspaint.exe  " & CurrentProject.Path & "\worker\" & [Worker] & ".jpg""", vbMaximizedFocus

 

[محمد احمد لطفى]

16 دقائق مضت, Abu Farid said:

تفضل أخي

Shell "mspaint.exe  " & CurrentProject.Path & "\worker\" & [Worker] & ".jpg""", vbMaximizedFocus

 

شكرا يأخى لم تعمل وظهر خطأ Png

الحل هنا 
 

 

5 ساعات مضت, أبو عبدالله الحلوانى said:

جرب هذا ووافنا بالنتائج

يفضل حفظ الصور بالـ ID الخاص بالموظف فبعض الحروف لا تضبط عند استدعائها بالكود

Photo.rar 489.04 kB · 17 تنزيلات

 

[طير البحر]

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