اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

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

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
 

قام بنشر
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

  • Like 2

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information