طلب استعلام تحديث بالكود

[saif13]

اخوان السلام عليكم

اردو منكم كود كتابة استعلام تحديث بالكود

لدي نموذج مستند على استعلام به مربع نص محسوب مستند (عباره عن مجموع لقيم من الاستعلام)

المهم

احد الحقول اريد ان ارحله الى جدول بحيث تكون قيمته في الحقل المطلوب

 

UPDATE bookintable SET bookintable.totalofbook = forms!allbookqure!totbook
WHERE (((bookintable.bookin)=forms!start!booktran));
 

هذه عبارة ال sql الخاصة بالاستعلام لكني (لا اريد استعلام)

اريد العمل بزر امر

 

استخدم اوفيس 2003

 

تم تعديل أغسطس 20, 2017 بواسطه saif13
اضافة معلومه

[Shivan Rekany]

اتفضل

Dim Sql As String
	SQL = "UPDATE bookintable SET bookintable.totalofbook = forms!allbookqure!totbook WHERE (((bookintable.bookin)=forms!start!booktran));"
DoCmd.SetWarnings False
DoCmd.RunSQL (Sql)
DoCmd.SetWarnings True
MsgBox "تم تحدیث"

 

[saif13]

يااااااا روووعاتك استاذنا

Shivan Rekany