ظهور صورة اخر سجل عن الانتقال الى سجل لا يوجد به صورة

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

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

عندما أكون فى سجل له صورة و عند الانتقال الى سجل أخر ليس له صورة تبقى صورة أخر سجل مازالت معروضة 
أريد أن تظهر صورة لا يوجد صورة أو عدم عرض صور 


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

Photo.rar

[محمد أبوعبدالله]

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

13 دقائق مضت, محمد احمد لطفى said:

عندما أكون فى سجل له صورة و عند الانتقال الى سجل أخر ليس له صورة تبقى صورة أخر سجل مازالت معروضة 

حالياً لا يتم عرض شىء ولا تبقى اخر صورة

14 دقائق مضت, محمد احمد لطفى said:

أريد أن تظهر صورة لا يوجد صورة أو عدم عرض صور 

استبدل الكود التالي

Private Sub Form_Current()
On Error GoTo HandleErr
On Error Resume Next
         Dim rs As Object
 If Not IsNull([PicFile]) Then
    [imgPicture].Picture = [PicFile]
    SysCmd acSysCmdSetStatus, "Image: '" & [PicFile] & "'."
  Else
    [imgPicture].Picture = ""
    SysCmd acSysCmdClearStatus
  End If
  Exit Sub

HandleErr:
  If Err = 2220 Then
    [imgPicture].Picture = ""
    SysCmd acSysCmdSetStatus, "Can't open image: '" & [PicFile] & "'"
  Else
    MsgBox Err.Description, vbExclamation
  End If
  
End Sub

 

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

Private Sub Form_Current()
On Error GoTo HandleErr
On Error Resume Next
         Dim rs As Object
 If Not IsNull([PicFile]) Then
    [imgPicture].Picture = [PicFile]
    SysCmd acSysCmdSetStatus, "Image: '" & [PicFile] & "'."
  Else
    [imgPicture].Picture = "C:\Users\mohamed\OneDrive\Desktop\matrix.jpg"
    SysCmd acSysCmdClearStatus
  End If
  Exit Sub

HandleErr:
  If Err = 2220 Then
    [imgPicture].Picture = "C:\Users\mohamed\OneDrive\Desktop\matrix.jpg"
    SysCmd acSysCmdSetStatus, "Can't open image: '" & [PicFile] & "'"
  Else
    MsgBox Err.Description, vbExclamation
  End If
  
End Sub

مع تغيير مسار الصورة

C:\Users\mohamed\OneDrive\Desktop\matrix.jpg

تحياتي

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

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

تم تعديل ديسمبر 19, 2018 بواسطه محمد احمد لطفى

[محمد أبوعبدالله]

4 ساعات مضت, محمد احمد لطفى said:

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

الحقيقة اني استخدمت هذه الطريقة لعرض صورة ثابتة في حال عدم اضافة صورة وهذه الطريقة ناجحة معي والحمد لله

تحياتي

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

للرفع

[kanory]

استبدل الكود لديك بهذا الكود واعلمني بالنتيجة ......

On Error GoTo HandleErr
On Error Resume Next
         Dim rs As Object
 If Not IsNull([PicFile2]) Then
    [imgPicture].Picture = [PicFile2]
    SysCmd acSysCmdSetStatus, "Image: '" & [PicFile2] & "'."
  Else
    [imgPicture].Picture = ""
    SysCmd acSysCmdClearStatus
  End If
  Exit Sub

HandleErr:
  If Err = 2220 Then
    [imgPicture].Picture = ""
    SysCmd acSysCmdSetStatus, "Can't open image: '" & [PicFile2] & "'"
  Else
    MsgBox Err.Description, vbExclamation
  End If

 

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

5 ساعات مضت, kanory said:

استبدل الكود لديك بهذا الكود واعلمني بالنتيجة ......

On Error GoTo HandleErr
On Error Resume Next
         Dim rs As Object
 If Not IsNull([PicFile2]) Then
    [imgPicture].Picture = [PicFile2]
    SysCmd acSysCmdSetStatus, "Image: '" & [PicFile2] & "'."
  Else
    [imgPicture].Picture = ""
    SysCmd acSysCmdClearStatus
  End If
  Exit Sub

HandleErr:
  If Err = 2220 Then
    [imgPicture].Picture = ""
    SysCmd acSysCmdSetStatus, "Can't open image: '" & [PicFile2] & "'"
  Else
    MsgBox Err.Description, vbExclamation
  End If

 

بيعرض الصور PicFile2 بس وفعلا الى ملوش صورة مبيظهرش اخر صورة
بس هل يمكن تنفيذها على PicFile حيث انها تفترض أن الصورة موجودة حتى وان كانت غير موجودة

[kanory]

اخي الفاضل . الحقل الموجود في الجدول عندك بهذا الاسم PicFile٢ وليس PicFile اذا اردتها بهذا الاسم فغير الاسم الموجود في جدول البيانات واستخدم كودك السابق . تحياتي لك

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

1 ساعه مضت, kanory said:

اخي الفاضل . الحقل الموجود في الجدول عندك بهذا الاسم PicFile٢ وليس PicFile اذا اردتها بهذا الاسم فغير الاسم الموجود في جدول البيانات واستخدم كودك السابق . تحياتي لك

PicFile موجودة بالاستعلام

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

ببساطة اذا كان البرنامج به مسار الصورة و لكن الصورة غير موجودة تظهر صورة تفيد أن الصورة غير موجودة مثلا هذه الصورة

[kanory]

ببساطة انظر المرفق .........

 

Photo.rar

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

26 دقائق مضت, kanory said:

ببساطة انظر المرفق .........

 

Photo.rar

صورة No Image أصبحت ثابتة فى كل السجلات 
و الرجاء عدم اضافة الصور من البرنامج 
عند عمل سجل جديد يضيف البرنامج مسار الصورة دائما بدون تحديدها يدويا

وجزاك الله خيراً

تم تعديل ديسمبر 19, 2018 بواسطه محمد احمد لطفى

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

للرفع

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

للرفع

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

للرفع

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

في ١٩‏/١٢‏/٢٠١٨ at 19:28, محمد احمد لطفى said:

ببساطة اذا كان البرنامج به مسار الصورة و لكن الصورة غير موجودة تظهر صورة تفيد أن الصورة غير موجودة مثلا هذه الصورة

 

في ١٩‏/١٢‏/٢٠١٨ at 20:22, محمد احمد لطفى said:

صورة No Image أصبحت ثابتة فى كل السجلات 
و الرجاء عدم اضافة الصور من البرنامج 
عند عمل سجل جديد يضيف البرنامج مسار الصورة دائما بدون تحديدها يدويا

وجزاك الله خيراً

 

[فارس بني هلال]

تفضل اخي نفس برنامجك الاول 

مع اضافه بسيطه بدون اي كود

الشخص الجديد والذي لم تظف له صورة تضهر الصورة غير موجودة التي ارفقتها 

Test Photo.mdb

 

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

5 ساعات مضت, فارس بني هلال said:

تفضل اخي نفس برنامجك الاول 

مع اضافه بسيطه بدون اي كود

الشخص الجديد والذي لم تظف له صورة تضهر الصورة غير موجودة التي ارفقتها 

Test Photo.mdb

 

المقصد عند الانتقال الى سجل أخر و لا يوجد له صورة على الجهاز تبقى الصورة الاخيرة هى الموجودة أرجو اضافة عند تغير السجل اذا كانت الصورة غير موجودة تتغير الى صورة لا يوجد صورة

[فارس بني هلال]

3 ساعات مضت, محمد احمد لطفى said:

المقصد عند الانتقال الى سجل أخر و لا يوجد له صورة على الجهاز تبقى الصورة الاخيرة هى الموجودة أرجو اضافة عند تغير السجل اذا كانت الصورة غير موجودة تتغير الى صورة لا يوجد صورة

وهذا الذي فعلته بالضبط

ولكن لا افهم قصدك هل تريد صورة اخر شخص

مثلا نفرض ان اخر شخص هو صورة فارس بني هلال

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

هل هذا هو المطلوب

[ابو عارف]

بعد اذن الاخي و الاستاذ فارس بني هلال 

عدلت مثال على معايير تالي

عند فراغ حقل picFile2  او سجل جديد ، لا يظهر شئ

عند وجود مسار في  حقل picFile2 و الصورة محذوفة او تغير اسم الصورة ، يظهر صورة (صورة غير موجودة)

و غير ذالك يظهر الصورة كما في مسار حقل picFile2

Photo.zip

 

تم تعديل ديسمبر 26, 2018 بواسطه ابو عارف

[فارس بني هلال]

1 دقيقه مضت, ابو عارف said:

بعد اذن الاخي و الاستاذ فارس بني هلال 

عدلت مثال على معايير تالي

عند فراغ حقل picFile2  او سجل جديد ، لا يظهر شئ

عند وجود مسار في  حقل picFile2 و الصورة محذوفة او تغير اسم الصورة ، يظهر صورة (صورة غير موجودة)

و غير ذالك يظهر الصورة كما في مسار حقل picFile2

Photo.zip

اخي وصديقي واستاذي ابو عارف

انت لا تحتاج الى اذن .. وانما انا من يحتاج الاذن منك لانك علم من علام هذا الموقع المبارك

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

وله الحمد ومنه المنه

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

استاذى @ابو عارف

استاذى @فارس بني هلال

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

تم تعديل ديسمبر 25, 2018 بواسطه محمد احمد لطفى