اضافة رسالة الى زر امر

.

تفضل :)

ضع هذا الكود على حدث النقر على زر الخروج:

Private Sub Command9_Click()

    If IsNull(Me.Frame0) Then
        MsgBox "Please select an item from Frame 0, thenyou can exit"
    Else
        DoCmd.Close
    End If
    
End Sub

جعفر

استاذي القدير جعفر

قمت باضافة الكود عندما لا اختار من المربع تظهر الرسالة بشكل صحيح

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

اخي الكريم لاحظت ان الفرق بين الكود الذي قام باضافته صاحب الموضوع و الكود الذي قمت باضافته حضرتك هو كلمة (me) فمتى احتاج الى اضافتها و متى لا احتاج ذالك

تفضلي اختي ، جربي المرفق :)

عفوا اختي ، الفرق اني اخبرته على اي حدث يستطيع ان يضع الكود :)

me معناه اداة من النموذج (واذا كنا نشتغل في التقرير ، فمعناه اداة من التقرير) ،

فبدل ان تكتبي:

[Frame0]

تستطيعين كتابة:

me.Frame0

اما كتابة:

Frame0

فالكود سيعتقد بأن Frame0 متغير في الكود ، وعندما لا يجده في الكود ، فسيعطيه قيمة افتراضية = صفر ، ولن ينظر في حقول النموذج ،

الميزة الموجودة في

me.

هي انك لما تكتبين النقطة بعد كلمة me ، فان الكود سيفتح لك قائمة بجميع الكائنات الموجودة في النموذج (الكائنات معناها الحقول وخصائص النموذج والنماذج الفرعية) ، مما يساعدك بعدم كتابتك لإسم الحقل بالخطأ :)

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

جعفر

285.Database3.mdb.zip

معلومات قيمه شكرا

لكن ما التغيير الذي قمت به لالغاء رسالة الخطأ

حياك الله :)

انا استعملت Event Procedure على حدث النقر على زر الامر ،

بينما الاخ سالم استخدم Embedded Macro ، ولم انظر فيه ، فلا اعرف ما فيه :(

جعفر