رسالة خطأ عند تغيير مسار الصورة

[AboSaad17]

السلام عليكم ورحمة الله واسعد الله صباحكم وجميع اوقاتكم بكل خير     وبعد ...

عندما يتغير موقع مجلد الصور ( مسار الصورة ) تظهر رسالة خطأ ( فكيف  ..  أوقف تلك الرسالة ثم استبدلها  برسالة أخرى ) 
ولكم جزيل الشكر  

[ابوخليل]

On Error GoTo ErrHandler
 myPic.Picture = "E:\Qar2018\sd.JPG"
ErrHandler:
    If err.Number = 2220 Then
        myPic.Picture = ""    'هنا يتجاهل المسار والصورة 
        msgbox"لايوجد صورة"   
       End If

 

[AboSaad17]

اسعد الله صباحك استاذ ابو خليل للأسف لم تتوقف الرسالة ( الحال كما هو )

هل من الممكن  الاكتفى برسالة تفيد  أن (( مسار الصورة للسجل رقم ( ... ) تم تغييرة فضلا إدخال صورة أخرى ))

[ابوخليل]

ابدا غير صحيح .. يجب ان تختفي

تأكد  تغير myPic الى اسم حقل الصورة عندك

 

[AboSaad17]

نعم استاذي الفاضل تم تغيير الاسم ولكن لاحظت
أن الرسالة ( لا يوجد صورة ) تظهر ثم يتبعها نفس رسالة الخطأ 2220   بينما  السجلات التي لا يوجد بها صورة أصلا تظهر  رسالة 
( لا يوجد صورة ) ثم يتم فتح التقرير  بدون رسالة خطأ 
 

[ابوخليل]

الكود اقتطعته من تقرير في احد برامجي وزدت عليه سطر  الرسالة

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

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

 

[AboSaad17]

مرحبا استاذ ابو خليل 
اليك ملاحظتي الاخيرة على الكود 
أولا : الكود معدل من برنامج أخر أخذته ولكنه يعمل بشكل طبيعي أنا استخدمته لكي أحصل على رسالة التنبيه في حال عدم وجود صورة
ثانيا : ( عندما يتغير موقع مجلد الصور ) 

حاولت أظيف كود  الغاء رسالة الخطأ عندما يتغير موقع مجلد الصور ولكن ...... لاحظت 
1- رسالة الخطأ 2220  تظهر عندما انشط السجل الذي  ادخلت به صورة لان المسار تغير وفي نفس الوقت لا يفتح التقرير

2- يعمل الكود مع بقية السجلات التي لم يتم اضافة صور لها ولكن اشاهد الرسالة ( لا يوجد صورة ) في نفس اللحظة التي يتم فيها فتح التقرير الفارغ من الصور

 

ثالثا : عندما أعيد مجلد الصور لموقعه الاصلي 
الاحظ التقرير يفتح ويتم عرض الصور ولكن يصاحب فتح التقرير رسالة ( لا يوجد صورة ) سواء به صورة أو فارغ

......................................................................................................................................

اليك الصورة المرفقة لزر الامر مع ملاحظة انني قمت بتغيير موقع الكود ولكن نفس الحال اللي لاحظته أن رسالة (لا يوجد صورة)

تظهر اولا ثم بعد موافق يفتح التقرير سواء كان به صورة او فارغ

[ابوخليل]

من اجل الخروج من الحدث بعد الرسالة لا بد تكتب امر انهاء الاجراء

جرب عدل واكتب العبارة exit sub التي بين الرسالة ونهاية الشرط

  msgbox"لايوجد صورة"   
       Exit sub
        End If

 

[jjafferr]

السلام عليكم

 

اسمح لي اخوي ابو خليل اشارك معاك

 

في 1/7/2018 at 12:41, AboSaad17 said:

نعم استاذي الفاضل تم تغيير الاسم ولكن لاحظت
أن الرسالة ( لا يوجد صورة ) تظهر ثم يتبعها نفس رسالة الخطأ 2220   بينما  السجلات التي لا يوجد بها صورة أصلا تظهر  رسالة 
( لا يوجد صورة ) ثم يتم فتح التقرير  بدون رسالة خطأ 
 

 

المشكلة انك اقتطفت كود من وسط اكواد اخرى ، ولم تأخذ القدر الصحيح من الكود ، فاختلط الحابل والنابل!!

والكود الذي اعطاك اخوي ابو خليل متكامل ، ولكن لما تحطه وسط كودك فيجب عليك تغييره ليناسب المطلوب.

 

اليك هذا التصحيح (لوسمحت مرة ثانية ارفق الكود بالنص ، حتى نستطيع تعديله بسهولة )

.

كما انك تقول في الكود ، انه اذا كنت في سجل جديد ، اعمل رسالة "الرجاء ادراج صوره جديده" .

 

ثم انت تقول ان هذا الكود في تقرير !!

فكيف يكون الكود على حدث "نقر الزر"

 

جعفر

[AboSaad17]

السلام عليكم 

استاذي الفاضل جعفر وضعت التعديل كما ذكرت ولكن ..........

1- في حالة مجلدالصور في موقعه الصحيح 

عند محاولة فتح الصورة لعرضها في التقرير يفتح معي صفحة الحدث واللون الازرق على كلمة  End Sub

سواء للسجل الذي به صورة او السجل الذي بدون صورة

2- في حالة أن مجلد الصور  تغير موقعه 

ايضا نفس الحال 

عند محاولة فتح الصورة لعرضها في التقرير يفتح معي صفحة الحدث واللون الازرق على كلمة  End Sub

سواء للسجل الذي به صورة او السجل الذي بدون صورة

.............................................................................................

بعد اضافة ENd If  مرة ثانية  الاحظ مايلي

1- في حالة مجلد الصور في مكانه الصحيح  لا يوجد ملاجظات الصور تفتح 

2- في حالة تغير موقع مجلد الصور  تظهر رسالة ( لا توجد صورة ) ولا يفتح التقرير سواء السجل مضاف له صورة أو لا 

...............................................................................................

هذا الحدث 

Private Sub ÃãÑ103_Click()

On Error GoTo ErrHandler
 imgPicture.Picture = "E:\Qar2018\sd.JPG"
ErrHandler:
    If Err.Number = 2220 Then
        imgPicture.Picture = ""
        MsgBox "áÇ íæÌÏ ÕæÑÉ"
               
       Else
    If NewRecord Then
        MsgBox "ÇáÑÌÇÁ ÇÏÑÇÌ ÕæÑå ÌÏíÏå" _
             , vbInformation, "Invalid Action"
Else
       
Dim strReportName As String
    Dim strCriteria As String
        strReportName = "rptImage"
        strCriteria = "[ãÓáÓá]= " & Me![ãÓáÓá]
        DoCmd.OpenReport strReportName, acViewPreview, , strCriteria
    
    End If
    End If
End Sub
 

 

 

 

[AlwaZeeR]

ضع الوحدة التالية في النموذج الموجود فيه أمر اختيار الصورة

Function setImagePath()
dim Imgdr as String

Imgdr = "E:\Qar2018\sd.JPG"
If IsNull(Imgdr) Or Imgdr  = "" Then
 imgPicture.Picture = ""

Else

If Len(Dir(Imgdr)) > 1 Then
       imgPicture.Picture = Imgdr

   Else
      imgPicture.Picture = ""
  
   End If
End If

End Function

ثم ضع الاستدعاء تحت حدث زر الأمر  

setImagePath

تستطيع إضافة رسالة ادراج صورة  وووو في نفس الفنكشن

لم اجرب الكود لضيق الوقت

تحياتي

 

تم تعديل يناير 8, 2018 بواسطه alwazeer

[AboSaad17]

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

Private Sub cmdInsertPic_Click()
  Dim OFN As OPENFILENAME
  On Error GoTo Err_cmdInsertPic_Click

  With OFN
    .lpstrTitle = "Images"
    If Not IsNull([PicFile]) Then .lpstrFile = [PicFile]
    .flags = &H1804
    .lpstrFilter = MakeFilterString("Image files (*.bmp;*.gif;*.jpg;*.wmf)", "*.bmp;*.gif;*.jpg;*.wmf", _
      "All files (*.*)", "*.*")
  End With

  If OpenDialog(OFN) Then
    [PicFile] = OFN.lpstrFile
    [imgPicture].Picture = [PicFile]
    SysCmd acSysCmdSetStatus, "Afbeelding: '" & [PicFile] & "'."
  End If
  Exit Sub

Err_cmdInsertPic_Click:
  MsgBox Err.Description, vbExclamation

End Sub
......................................................................
أنا اضفت في النموذج زر أمر _103 لكي أعرض الصورة الموجودة في النموذج في تقرير .... الامور ماشيه تمام 
ولكن في حال تغير موقع مجلد الصور تبدأ المشكلة
1- طبعا تختفي الصورة من النموذج ويبقى المسار  وعندما أحاول فتح الصورة  المختفيه وعرضها في التقرير تظهر رسالة الخطأ 2220 
أنا أريد فقط حل برسالة تنبيه ( في حال تغير موقع المجلدسواء كان موقع المجلد في \:D   أو  \:C   أو   \:E    )

((    موقع الصورة تم تغييره.. فظلا احذف الصورة السابقة ثم اضف صورة أخرى ))  

أتمنى أن يكون طلبي واضح هذه المره ..... وأعذروني أخواني إذ كنت قد أخطأت في سؤالي 
وجزاكم الله كل خير 

[ابوخليل]

لو ارفقت مثالا صغيرا  للتطبيق  لرجوت لك ان تحصل على اجابة وافية

بالنسبة لي فانا استخدم  كود تجاوز الخطأ داخل التقرير  

[AboSaad17]

اسعد الله صباحكم وجميع أوقاتكم بالخير والمسرات 

هذ مثال مرفق 
ملاحظة : زر الأمر شفاف على موقع الصورة في النموذج 

For_Pic_1.rar

[jjafferr]

الله يطول في عمرك ، ما نسخت التعديلات بشكل صحيح

 

تفضل

Private Sub ÃãÑ103_Click()

On Error GoTo ErrHandler
 imgPicture.Picture = "E:\Qar2018\sd.JPG"
ErrHandler:
    
     If Err.Number = 2220 Then
        imgPicture.Picture = ""
        MsgBox "áÇ íæÌÏ ÕæÑÉ"
               
     ElseIf NewRecord Then
        MsgBox "ÇáÑÌÇÁ ÇÏÑÇÌ ÕæÑå ÌÏíÏå" _
             , vbInformation, "Invalid Action"
     Else
       
Dim strReportName As String
    Dim strCriteria As String
        strReportName = "rptImage"
        strCriteria = "[ãÓáÓá]= " & Me![ãÓáÓá]
        DoCmd.OpenReport strReportName, acViewPreview, , strCriteria
    
    End If
End Sub

 

جعفر

[AboSaad17]

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

[Shivan Rekany]

53 دقائق مضت, jjafferr said:

MsgBox "áÇ íæÌÏ ÕæÑÉ"

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

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

[mourad2012]

شكرا اخي الكريم شيفان معلومة رائعة

 

تم تعديل يناير 9, 2018 بواسطه mourad2012

[AlwaZeeR]

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

تفضل اخي الكريم

جرب المرفق

تحياتي لكم جميعا

 

For_Pic_1Update.rar

[AboSaad17]

اخي الفاضل الوزير
عند فتح الملف تلقيت  رسالة الملف تالف          archive is either in unknown format  or damaged    

[AlwaZeeR]

اسف صديقي الوينرار لدي 5.40

جرب نزل الوينرار من جديد وسوف تحل هذه الاشكالية

::

تحياتي

[AboSaad17]

نعم استاذي الفاضل الوزير في حالة أن المجلد تغير موقعة تم حل المشكلة ولله الحمد 
لكن عندما يكون المجلد في موقعة وادخل الصور لاكثر من سجل ثم افتح التقرير الاحظ أن صورة السجل الاول هي التي تظهر سواء  اخترت السجل الاول او الثاني او الثالث  ( التقرير يعرض صورة السجل الاول في كل الاحوال ) 
ملاحظة : وجدت في التقرير عامل التصفية ( مسلسل = 1 ) الغيته ولكن المشكلة قائمة 
تحياتي لك

[jjafferr]

2 ساعات مضت, AboSaad17 said:

حاولت الصق الاكواد كما هي ولكن لم استطع ؟ 

كلمة لم استطع غير علمية/اكسسيّة ، فرجاء تخبرنا معنى هذه الكلمة!!

 

1 ساعه مضت, Shivan Rekany said:

استاذي الحبيب لكي لا يظهر الحروف الهيروغليفية  في الكود 

شكرا اخي شفان ، ولكني نسخت الكلمات الهيروغليفية (من وين جبت هالاسم) من مشاركة ابوسعد

 

21 دقائق مضت, AboSaad17 said:

لكن عندما يكون المجلد في موقعة وادخل الصور لاكثر من سجل ثم افتح التقرير الاحظ أن صورة السجل الاول هي التي تظهر سواء  اخترت السجل الاول او الثاني او الثالث  ( التقرير يعرض صورة السجل الاول في كل الاحوال ) 

 

لهذا السبب اخوي ابو خليل ، وانا اكّدنا عليك السطر الثاني من الكود ادناه

2 ساعات مضت, jjafferr said:

If Err.Number = 2220 Then
      "" =  imgPicture.Picture

.

جعفر

[AboSaad17]

استاذي الفاضل الوزير تم حل المشكلة  ولله الحمد حيث قمت بازالة     (     Me.Requery  ) من الحدث واصبح التقرير يعرض الصورة للسجل المحدد 

أستاذي الفاضل جعفر شكرا لك على متابعة الموضوع وشكرا لجميع من شارك 
واسف لو كان طريقة عرضي للسؤال غير مرتبه 
تحياتي لكم جميع والحمد لله رب العالمين 

[Shivan Rekany]

5 دقائق مضت, jjafferr said:

شكرا اخي شفان ، ولكني نسخت الكلمات الهيروغليفية (من وين جبت هالاسم) من مشاركة ابوسعد

نعتذر 

لكن انا كتبت كم حروف في مشاركتي السابقة من اجل الشعب