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

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

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

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

إليك التعديل

FormPictue.zip

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

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

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

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

انظر المثال pic2  

pic2.zip

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

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

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

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