مشكلة عرض الصورة المدرجة في النموذج

[AboSaad17]

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

 سؤالي : بخصوص  زر أمر عرض الصورة المدرجة في النموذج حيث كان المفتاح الاساسي في الجدول ( ترقيم تلقائي ) وكان زر الامر يعمل في كل الحالات وهي

1- يوجد صورة

2- لا يوجد صورة

3- لا يوجد سجل وهنا تظهر رسالة تنبيه

وكانت الامور طيبه  ...... ولــــكن 

بعد أن قمت بتغيير المفتاح الأساسي في الجدول من ( ترقيم تلقائي ) إلى ( نص ) توقف زر الأمر عن عمله
1- يوجد صورة  لا يعمل
2- لا يوجد صورة لا يعمل
3- لا يوجد سجل يعمل   ...............حيث هذه الرسالة اللتي تعرض  مهمه  لايقاف الخطأ

ولكم جزيل الشكر 

forOff.rar

[AlwaZeeR]

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

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

Dim strReportName As String
    Dim strCriteria As String

    If NewRecord Then
        MsgBox "الرجاء ادراج صوره جديده" _
             , vbInformation, "Invalid Action"
        Exit Sub
    Else
        strReportName = "rptImage"
        strCriteria = "[musal]= '" & Me![musal] & "'"
        DoCmd.OpenReport strReportName, acViewPreview, , strCriteria
    
    End If

 

 

[AboSaad17]

أسعد الله صباحك بكل خير 
تم الحل ولله الحمد ولك مني جـــزيل الشكر 
وخيرك معي سابق أستاذي الوزير