السلام عليكم:
أشكرك أخي أبوالأنس على هذا التكريم.
ولا أعلم لماذا لم يعد المثال الذي أرفقته وبه أمر ضغط قاعدة البيانات
SendKeys "{F10}"
SendKeys "]sq"
يعمل بشكل جيد مع انه كان كذلك دون سبب مفهوم
وأرفق مثال بسيط ولكن يؤدي نفس الغاية
ويمكن عمله بجملة SQL
DoCmd.RunSQL "INSERT INTO tblAllSr ( md, aljeha )SELECT [Forms]![frmAllSr]![md2] AS md, [Forms]![frmAllSr]![aljeha2] AS aljeha;"
UnDoChanges.rar