مساعدة في غرض صوره في نفس مجلد قاعدة البيانات

[ازهر عبد العزيز]

السلام عليكم 

في النموذج Fimg مريع صورة مسار الصورة له هو  ="C:\bookimg\img\1.jpg"    

 كيف اجغل هذا المسار مخصص لفولدر قاعدة البيانات اي لو تم نقل فلودر قاعدة البيانات الى بارتيسن اخر ولنفرض e لايتاثر مسار الصورة بمعنى ماذا اضع بدل حرف c ليفهم الاكسس ان هذة الصورة موجوده في قولدر قاعدة البيانات دائما

bookimg.rar

تم تعديل فبراير 25, 2022 بواسطه ازهر عبد العزيز

[Eng.Qassim]

وعليكم السلام استاذ ازهر

طالما ان الصور في نفس الفولدر

استخدم الكود التالي في حدث الحالي وشاهد النتيجة

Private Sub Form_Current()
Dim Path As String
    Path = Application.CurrentProject.Path & "\img\"
    Me![صورة0].Picture = Path & "1.jpg"
End Sub

 

[ازهر عبد العزيز]

جزبل الشكر بااخي وهو المطلوب

تم تعديل فبراير 25, 2022 بواسطه ازهر عبد العزيز

[Eng.Qassim]

بالخدمة

[jjafferr]

وتكملة لكود اخي المهندس قاسم ، في حال لم يكن هناك صورة في المسار:

Private Sub Form_Current()
  on error goto err_Form_Current
  
Dim Path As String
    Path = Application.CurrentProject.Path & "\img\"
    Me![صورة0].Picture = Path & "1.jpg"

  
  Exit_Form_Current:
	
	exit sub
err_Form_Current:

	if err.number=2220 then
      'No image in path
      Me![صورة0].Picture = ""
      resume next
	else
      msgbox err.number & vbcrlf & err.description
      resume Exit_Form_Current
	end if      
      
  
  End Sub

 

جعفر

[Eng.Qassim]

احسنت استاذي القدير @jjafferr

فربما يتم مسح احدى الصور بطريق الخطأ

[ازهر عبد العزيز]

منذ ساعه, jjafferr said:

وتكملة لكود اخي المهندس قاسم ، في حال لم يكن هناك صورة في المسار:

جزبل الشكر استاذ على هذا الكود الاكثر من رائع

[mrbakr]

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