كيف أستطيع أدراج صوره من أي موقع في الجهاز

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

مشكـوور أخـوي أبـو رهـف علـى المتـابعـه

بالنسبـه للبـرنامج فهـو صحيـح ولكـن هـو محكـوم بالصـور التـي فـي( folderp) المضـاف مـع البـرنامج

يعنـي عنـد أضـافه صـوره مـن أي مكـان بالجهـاز ولتكـن مـن المستنـدات فهـي تضـاف بشكـل طبيعـي ولكـن عنـد الأستعـراض ووضـع المـؤشر عليهـا لا تظهـر .

شكـرا لـكـ أخـي الكـريم .

للـرفـع عسـى أن أجـد منـكـم إجـابه .

جربت البرنامج وكان سليم فجميع الصور قام بأستعراضها

أضفت كل ما تريده من صور في الفولدر وسيعمل معاك .

أخي الكريم عبدالمجيد أنا أريد حذف الفولد لكي يتم جلب الصور واستعراضها من اي مكان بالجهاز شكرا لك .

أخي الغالي

Rayan

تفضل هذا المثال من صنع مشرفتنا الغالية زهرة وقد قمت باضافة بعض التعديلات البسيطة علية

حاول ان تجلب اي صورة من اي مكان من علي جهازك لكن احترس واوعي تروح تجيب صور من كوكب الزهرة

مرفق الملف

Coding_Error.rar

لا لا أخي الفـاضل لا أتعـدى كوكب المـريخ في جلـب الصـور

أشكرك أخي محمد لكن في المثال الذي أدرجت قـد يختـلف نوعـا ما عن المثـال المطـلوب

لأنني أريد تخزين الصور على شكل مرفقات يعني قد يكون في كل سجل عشره مرفقات ولكن سأحـاول .

ومن لديه معرفه في شرح هذا الكود خاصة اللي أمامها علامة نجمة فجزاه الله خيرا

Private Sub Form_Current()

On Error GoTo Err

Dim TxtPath As String

Dim PicPreview As String

Dim P As String

TxtPath = Me.TxtImagePath

PicPreview = Application.CurrentProject.Path & "\FolderP\" & TxtPath *

Forms!DataExposeFrm.TxtPathPic = PicPreview

Forms!DataExposeFrm.DocumentPicture.Picture = PicPreview

If Form.RecordsetClone.RecordCount = 0 Then TxtPath = ""

Err:

If Err.Number = 94 Then

P = Application.CurrentProject.Path & "\FolderP\NoP.jpg" *

Forms!DataExposeFrm.DocumentPicture.Picture = P *

Forms!DataExposeFrm.TxtPathPic = ""

End If

End Sub