• 0
faife

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

سؤال

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

pic.mdb

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

10 إجابة على هذا السؤال .

  • 0

أليك الطريقة مع المثال

Private Sub Form_Open(Cancel As Integer)
    Dim FormPicture, Prompt
    
    FormPicture = CurrentProject.Path & "\lines.jpg"
    Prompt = "الصورة ليست في المسار الافتراضي.. هل تريد الاستمرار"
    
    ' إذا كانت الصورة في المسار اجعلها في الخلفية
    If Len(Dir(FormPicture)) > 0 Then
        Me.PictureType = 1
        Me.Picture = FormPicture
        Exit Sub ' خروج من الإجراء
    End If
    
    ' إذا كانت الإجابة بالنفي ألغ فتح النموذج
    If MsgBox(Prompt, vbYesNo + vbDefaultButton2, "") = vbNo Then
        Cancel = 1
    End If
End Sub

FormPictue.zip

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بارك الله فيك اخي gaham حل جميل ورائع ولكنني اريد التعديل على الكود بحيث تظهر الرسالة التالية ( تأكد من وجود الصورة الخلفية في المسار الافتراضي ) ويكون الخيار الوحيد ok وهو الغاء الاجراء اي بدون فتح النموذج

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

إليك التعديل

FormPictue.zip

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بارك الله فيك هذا هو المطلوب ولكن كيف الغي رسالة الخطأ من الاكسس المبينة في الصورة المرفقة

16-07-1438 09-27-04 م.png

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

نعم يمكن ذلك .. بعد إعادة توجية الشفرة لكائن الصورة

انظر المثال pic2  

pic2.zip

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

pcc.png

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

استخدم الشفرة بهذه الطريقة

Private Sub Form_Open(Cancel As Integer)
    Dim FormPicture, Prompt  

FormPicture = CurrentProject.Path & "\lines.jpg"
    Prompt = "تأكد من وجود الصورة الخلفية في المسار الافتراضي"

' إذا لم تكن الصورة في المسار ألغ الإجراء
    If Len(Dir(FormPicture)) = 0 Then
        MsgBox Prompt, , ""
        Cancel = 1
    End If
End Sub

 

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بارك الله فيك هذا هو المطلوب ....

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .