المطلوب عمل رساله تنبيه عند الحذف

[salem_66]

  السلام عليكم

 

 في النموذج Frm1

 

  توجد 3 ازرار  ..... حذف - اضافه - حفظ

 

 المطلوب عمل رساله تنبيه  ..... مثال

 

 عند حذف موظف تخرج رساله

 

 هل فعلا تريد حذف الموظف \ محمد

 

 وبهذه الازرار الثلاثه قد انهيت برنامج شئون الموظفين

اجازاتup.rar

[ابوخليل]

Dim x As String
x = Me.FullName.Value
If MsgBox("هل فعلا تريد حذف الموظف " & x & " ؟", _
    vbCritical + vbYesNo, _
    "تحذير") = vbYes Then
    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord
    DoCmd.SetWarnings True
Else
Exit Sub
End If

 

اجازات2.rar

[salem_66]

  مشكو ابو خليل الله يرحم والديك علي هذا المجهود

 

 كمل جميلك واعمل زر الحفظ

[ابوخليل]

الاكسس يحفظ آليا بدون ازرار يعني عمل الزر تحصيل حاصل

[salem_66]

ما قصرت يا الطيب  الله يجزاك كل الخير