مطلوب كود تخزين واستدعاء الصور

[96007502]

السلام عليكم

الاخوة الكرام بعد التحية ,,,, ارجو المساعده فى الملف التالى للضرورة 

ahmedy.rar

ahmedy.rar

[96007502]

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

للرفع رفع الله قدركم

[الجموعي]

بالنسبة لكود جلب الصورة

اليك الكود التالي

Private Sub CommandButton2_Click()

Dim strFileName As String
strFileName = Application.GetOpenFilename(filefilter:="Tiff Files(*.tif;*.tiff),*.tif;*.tiff,JPEG Files (*.jpg;*.jpeg;*.jfif;*.jpe),*.jpg;*.jpeg;*.jfif;*.jpe,Bitmap Files(*.bmp),*.bmp", FilterIndex:=2, Title:="Select a File", MultiSelect:=False)
If strFileName = "False" Then
MsgBox "File Not Selected!"
Else
Me.Image1.Picture = LoadPicture(strFileName)
End If

End Sub

 

[عبد العزيز البسكري]

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

أخي الكريم " أحمدي 30 " ..

بعد إذن الأخ الفاضل " الجموعي " .. و إضافة لما تقدّم به .. جزاه الله خير الجزاء ..

تفضل المرفق .. و بإمكانك التغيير في اسم الشيت و رقم العمود و الصف مثلما تشير الصورة

و لمعاينة الصّورة .. فقط إضغط على رابطها بورقة العمل..

روابط الصور سيتم إدراجهم بورقة العمل الواحد بعد الآخر .. لم توضّح أنتَ هذا الأمر .. المهم إذا كنت تنوي إدراج الروابط بنفس الخلية .. فقط قم بمحو الرقم 1 الملوّن بالأصفر ..

تحياتي

أحمدي.rar

تم تعديل مارس 21, 2016 بواسطه عبد العزيز البسكري

[ياسر خليل أبو البراء]

أخي الغالي الجموعي

أخي الحبيب عبد العزيز البسكري

بارك الله فيكما وجزاكما الله خير الجزاء .. أعمال رائعة وفي منتهى الجمال

تقبلوا وافر تقديري واحترامي

 

[96007502]

السلام عليكم

الاستاذ الجموعى .... جزاكم الله خيراً

الاستاذ . عبد العزيز البسكرى .. جزاكم الله خيراً .. الحل المقدم من قبلك اخى الكريم  يجتاج الى تعديل بسيط. .. 

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

اتمنى ان لا يضيق صدركم منى ... كما ارجو المساعدة لاهمية الامر

خالص احترامى لحضراتكم

[حراثي تواتي]

في 21/03/2016 at 13:09, ahmedy30 said:

السلام عليكم

الاستاذ الجموعى .... جزاكم الله خيراً

الاستاذ . عبد العزيز البسكرى .. جزاكم الله خيراً .. الحل المقدم من قبلك اخى الكريم  يجتاج الى تعديل بسيط. .. 

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

اتمنى ان لا يضيق صدركم منى ... كما ارجو المساعدة لاهمية الامر

خالص احترامى لحضراتكم

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

شكرا اخواني الافاضل على المتابعة و المساعدة و الاثراء

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