ظهور الاسم المحذوف عند الحذف؟

[عبدالعزيز محمد]

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

لدي نموذج طريقة عرضة:نماذج مستمرة وبه عدة حقول منها الاسم-المدفوعات-الديون وكذلك زر حذف أريد عند تحديد السجل والنقر على الزر يظهر لي الاسم الذي أود حذفه في الرسالة التي ستظهر في الكود التالي

Private Sub DELETE_RECORD_Click()
Rem
    Dim intNewCustomer As Integer, strTitle As String
    Dim intMsgDialog As Integer, strMsg As String

    strTitle = "لوحة التحكم في أقساط أولياء الأمور"
    strMsg = "هل تود حذف السجل الحالي"
    strMsg = strMsg & Chr(13) & "إذا أردت الحذف فأنقر على نعم"
    strMsg = strMsg & Chr(13) & Chr(13) & "وإلاّ فأنقر على لا"
    intMsgDialog = vbYesNo + vbExclamation
    intNewCustomer = MsgBox(strMsg, intMsgDialog, strTitle)
If intNewCustomer = vbYes Then
    DoCmd.RunCommand acCmdDeleteRecord
Else
    DoCmd.CancelEvent
End If

Exit_ComBox_QUIT_Click:
    Exit Sub

Err_ComBox_QUIT_Click:
    MsgBox Err.Description
    
End Sub
 

[ابو جودي]

المرفق لو تكرمت

[عبدالعزيز محمد]

Aziz2.rar

[Shivan Rekany]

19 ساعات مضت, عبدالعزيز محمد-محب البرمجة said:

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

لدي نموذج طريقة عرضة:نماذج مستمرة وبه عدة حقول منها الاسم-المدفوعات-الديون وكذلك زر حذف أريد عند تحديد السجل والنقر على الزر يظهر لي الاسم الذي أود حذفه في الرسالة التي ستظهر في الكود التالي

Private Sub DELETE_RECORD_Click()
Rem
    Dim intNewCustomer As Integer, strTitle As String
    Dim intMsgDialog As Integer, strMsg As String

    strTitle = "لوحة التحكم في أقساط أولياء الأمور"
    strMsg = "هل تود حذف السجل الحالي"
    strMsg = strMsg & Chr(13) & "إذا أردت الحذف فأنقر على نعم"
    strMsg = strMsg & Chr(13) & Chr(13) & "وإلاّ فأنقر على لا"
    intMsgDialog = vbYesNo + vbExclamation
    intNewCustomer = MsgBox(strMsg, intMsgDialog, strTitle)
If intNewCustomer = vbYes Then
    DoCmd.RunCommand acCmdDeleteRecord
Else
    DoCmd.CancelEvent
End If

Exit_ComBox_QUIT_Click:
    Exit Sub

Err_ComBox_QUIT_Click:
    MsgBox Err.Description
    
End Sub
 

اتفضل اتمنى ان ينال اعجابك

مع تقدير

Aziz2.rar

[عبدالعزيز محمد]

هذا هو المطلوب ...