عبدالعليم اسماعيل قام بنشر يوليو 31, 2023 مشاركة قام بنشر يوليو 31, 2023 اريد اظهار رساله بعدم وجود سجلات للحذف ورساله لايوجد بيانات جديده عند التغيير لايوجد سجل للحذف.rar رابط هذا التعليق شارك More sharing options...
AbuuAhmed قام بنشر يوليو 31, 2023 مشاركة قام بنشر يوليو 31, 2023 إضافة بسيطة على كود الحذف: 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 رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابوخليل قام بنشر يوليو 31, 2023 أفضل إجابة مشاركة قام بنشر يوليو 31, 2023 وهذا تنبيه عند التراجع اذا لم يحدث تغيير On Error GoTo ErrHandler DoCmd.RunCommand acCmdUndo MsgBox "تم التراجع", vbOKOnly, "تنبيه" ErrHandler: If Err.Number = 2046 Then MsgBox "لا يوجد تغيير للتراجع", vbOKOnly, "تنبيه" End If لايوجد سجل للحذف2.rar رابط هذا التعليق شارك More sharing options...
AbuuAhmed قام بنشر يوليو 31, 2023 مشاركة قام بنشر يوليو 31, 2023 اقترح عليكم بدلا من عمل جدولين، الاكتفاء بجدول واحد مع إضافة حقلين Deleted نعم/لا والآخر تاريخ الحذف ثم تحدث الحقلين دون الحاجة لإزالة السجل. أو يمكن الاكتفاء بحقل تاريخ الحذف فقط فإذا كان يحتوي على تاريخ فهو محذوف وإذا كان خال فهو غير محذوف. رابط هذا التعليق شارك More sharing options...
AbuuAhmed قام بنشر أغسطس 1, 2023 مشاركة قام بنشر أغسطس 1, 2023 سلوك مرفوض ومعرف مخالف. رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.