كيفية عمل تشغيل مباشر للكود في الاكسس

[نيموز]

السلام عليكم

سوال واضح عندي قاعدة بيانات الاكسس بدون فورمة وبدون ازرار

هل من الممكن عمل كود vba

ليعمل مباشر لاضافة او Update

او حذف مثلا

ومثال للكود وشكرا

[Foksh]

نعم أكيد أخي الكريم ,,

هذا مثال بسيط

 

Test0.accdb

[نيموز]

تسلم جزاك الله خير Expert

اعطيتني فكرة من هذي الطريقة

Dim str As String
'MsgBox "ok"
str = "UPDATE Rate_S1 SET RateTotal ='Ok' WHERE ID = 1"
CurrentDb.Execute str
CurrentDb.Close

 

هذا الكود اللي اريد اعمله وطبعا مش عند الفتح يعني بتغيير في احد الجداول المفروض يعمل لكن مشي الحال بطريقتك بعمل ماكرو

واذا في فكرة افضل يكون افضل 😀

 

[kkhalifa1960]

تفضل أخي محاولتي اتمنى تستفيد منها .

DD402.accdb