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

[عبدالعليم اسماعيل]

اريد اظهار رساله بعدم وجود سجلات للحذف 

ورساله لايوجد بيانات جديده عند التغيير

لايوجد سجل للحذف.rar

[AbuuAhmed]

إضافة بسيطة على كود الحذف:
 

    If Me.NewRecord Then
        MsgBox "لا يوجد سجلات لحذفها!!"
    Else
        If MsgBox("هل انت متأكد من حذف السجل الحالي", vbYesNo + vbQuestion) = vbYes Then
            DoCmd.SetWarnings False
            DoCmd.RunSQL "INSERT INTO [a copy] ( id, name, age, [date], [time], user_name ) " & _
            "SELECT a.id, a.name, a.age, Date() AS d, Time() AS t, CurrentUser() AS [user] " & _
            "FROM a WHERE (((a.id)=[forms]![form1]![id]));"
            DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
            DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
        Else
            Exit Sub
        End If
    End If

 

[ابوخليل]

وهذا تنبيه عند التراجع اذا لم يحدث تغيير

On Error GoTo ErrHandler
DoCmd.RunCommand acCmdUndo
  MsgBox "تم التراجع", vbOKOnly, "تنبيه"
  
ErrHandler:
    If Err.Number = 2046 Then
       MsgBox "لا يوجد تغيير للتراجع", vbOKOnly, "تنبيه"
     End If

 

لايوجد سجل للحذف2.rar

[AbuuAhmed]

اقترح عليكم بدلا من عمل جدولين، الاكتفاء بجدول واحد مع إضافة حقلين Deleted نعم/لا والآخر تاريخ الحذف ثم تحدث الحقلين دون الحاجة لإزالة السجل.
أو يمكن الاكتفاء بحقل تاريخ الحذف فقط فإذا كان يحتوي على تاريخ فهو محذوف وإذا كان خال فهو غير محذوف.

[AbuuAhmed]

سلوك مرفوض ومعرف مخالف.