وعليكم السلام و رحمة الله و بركاته
أخي حسين اليك المثال بعد تعديل و الافضل وضع شرط ان يكون المؤشر في مربع نص حتى لايرجع الخطاء حبن ضغط على الرقم و المؤشر في عنصر آخر ، اذا حبيت ذالك قم بتغير اكواد الى:
If ActiveControl.ControlType = acTextBox Then SendKeys (ActiveControl.Value & 1)
و كذالك باقي ازرار 2 ، 3 ، 4 ، 5 ، 6 ، 7 ، 8 ، 9 ، 0
Test2.accdb