هل من الممكن إضافة رسالة أخرى في الكود ؟

[zoom10]

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

لدي زر في النموذج يقوم بنقل المادة إلى نموذج آخر وقمت بإضافة رسالة تفيد بنجاح النقل عند الضغط على الزر .

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

الكود هو :

Private Sub أمر3_Click()
On Error GoTo Err_أمر3_Click

    Dim stDocName As String

    stDocName = "M-K"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    
If MsgBox(" تم النقل بنجاح ", vbCritical, "نقل سجل") = vbYes Then
Exit_أمر3_Click:
    Exit Sub

Err_أمر3_Click:
    MsgBox Err.Description
    Resume Exit_أمر3_Click
End If
End Sub

 

 

وشكرا لكم 

[ابو جودي]

اين المرفق 

[zoom10]

تفضل المرفق

aaaa.mdb

[ابو جودي]

اتفضل 

 

 

aaaa(2).mdb

[zoom10]

الله يزيد فضلك أخي الكريم ابا جودى 

الله يجزاك خير ويبارك فيك وفي رزقك . شكرا لك

 

 

[ابو جودي]

الحمد لله الذى تتم بنعمته الصالحات

كل الشكر سيدي الكريم على دعواتكم الطيبات

اسال الله تعالى ان يرزقكم باكثر مما دعوتم لى