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

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

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

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


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

Photo.rar

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

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

  في 18‏/12‏/2018 at 23:08, محمد احمد لطفى said:

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

Expand  

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

  في 18‏/12‏/2018 at 23:08, محمد احمد لطفى said:

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

Expand  

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

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 بواسطه محمد احمد لطفى

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

  في 19‏/12‏/2018 at 00:11, محمد احمد لطفى said:

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

Expand  

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

تحياتي

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

للرفع

[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

 

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

  في 19‏/12‏/2018 at 09:26, 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

 

Expand  

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

[kanory]

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

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

  في 19‏/12‏/2018 at 15:21, kanory said:

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

Expand  

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

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

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

[kanory]

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

 

Photo.rar

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

  في 19‏/12‏/2018 at 17:56, kanory said:

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

 

Photo.rarFetching info...

Expand  

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

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

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

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

للرفع

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

للرفع

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

للرفع

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

  في 19‏/12‏/2018 at 17:28, محمد احمد لطفى said:

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

Expand  

 

  في 19‏/12‏/2018 at 18:22, محمد احمد لطفى said:

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

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

Expand  

 

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

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

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

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

Test Photo.mdbFetching info...

 

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

  في 25‏/12‏/2018 at 08:50, فارس بني هلال said:

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

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

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

Test Photo.mdbFetching info...

 

Expand  

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

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

  في 25‏/12‏/2018 at 14:15, محمد احمد لطفى said:

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

Expand  

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

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

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

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

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

[ابو عارف]

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

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

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

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

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

Photo.zipFetching info...

 

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

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

  في 25‏/12‏/2018 at 17:56, ابو عارف said:

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

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

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

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

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

Photo.zipFetching info...

Expand  

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

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

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

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

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

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

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

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

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