كود لاظهار رسالة فيها الرقم الموجود في الترقيم التلقائي

اليك الكود بعد اضافة الرسالة

Private Sub Form_BeforeUpdate(Cancel As Integer)
Beep
If MsgBox("åá ÊÑÛÈ ÈÍÝÙ ÇáÊÚÏíáÇÊ ¿" & vbCrLf & _
    "ÃÖÛØ (äÚÜã) ááÍÝÙ  ¡  Ãæ (áÇ) áÅáÛÇÁ ÇáÃãÑ .", _
    vbInformation + vbMsgBoxRight + vbOKCancel + vbDefaultButton1, _
    "ÊäÈíÜÜÜå :  Êã ÊÚÏíá ÇáÓÌá") = vbOK Then
      MsgBox "Êã ÍÝÙ ÇáÓÌá ÈÑÞã ÇáÊÓáÓá " & Me.Serial_No
    Else
        DoCmd.RunCommand acCmdUndo
    End If

End Sub

msg.rar

ابو يوسف

الله يعطيك الف الف الف عافيه وتسلم لي يالغالي

تستاهل +1

والف شكر لك مره ثانية

جزاك الله خيرا أخى أبو يوسف