انطفاء لوحة ادخال الأرقام بعد تنفيذ كود

اخي الفاضل

يوجد خطأ لم يتم اصلاحه بعد في برنامج الأكسيس عند استخدام المفتاح F5 من خلال الأمر  SendKeys

ولهذا يجب معالجة هذا الأمر برمجيا بهذه الطريقة

1. انسخ الوحدة النمطية التي في المثال الى برنامجك

2. استدعي الوحدة النمطية من خلال اخر سطر في الكود بهذه الطريقة

Private Sub Report_Close()
DoCmd.Close acForm, "form1"
DoCmd.Close acForm, "form2"
SendKeys "{f5}", True
Call NUM_On
End Sub

za-NumLock.rar