كيف استخدام هذا الرسالة في الكود

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

وايضا عند التحديث او الحذف

Private Sub update_Click()

"هنا يتم تنفيذ التحديث على قاعدة البيانات"

DoCmd.OpenQuery ("query15")

"أريد رسالة هنا إذا تم التحديث على قاعدة البيانات"

Dim PaymentNo As Integer

Dim PaymentValu

PaymentValu = ContV / Me.ContLF

For PaymentNo = 1 To Me.ContLF

"هنا يتم تنفيذ التحديث على قاعدة البيانات"

DoCmd.RunSQL "update Payments set PaymentValu = " & PaymentValu & " WHERE (((Payments.ContractID)=[Forms]![ContUfrm]![ContF]) AND ((Payments.ContractDate)=[Forms]![ContUfrm]![ContDF]));"

"أريد رسالة هنا إذا تم التحديث على قاعدة البيانات"

Next PaymentNo

Me.Refresh

End Sub