تسلم جزاك الله خير Expert
اعطيتني فكرة من هذي الطريقة
Dim str As String
'MsgBox "ok"
str = "UPDATE Rate_S1 SET RateTotal ='Ok' WHERE ID = 1"
CurrentDb.Execute str
CurrentDb.Close
هذا الكود اللي اريد اعمله وطبعا مش عند الفتح يعني بتغيير في احد الجداول المفروض يعمل لكن مشي الحال بطريقتك بعمل ماكرو
واذا في فكرة افضل يكون افضل 😀