اخي الكريم
فرضنا عندك مربع باسم TEXT1 وتكتب فيها الارقام وبها فراغات من قبل او بعد او بين الارقام
في حدث بعد التحديث اكتب هذا الكود لكي يحذف الفراغات لنفسه
Me.Text1 = Val(Replace(Trim((Mid([Text1], InStr([Text1], "-") + 1, 10000))), "-", ""))
ولكن اذا تريد ان يكون نتيجة في مربع اخر بدل ME.TEXT1 اللي في بدايه اكتب اسم الحقل اللي تريد بيكون فيها الارقام بدون مسافه مع تقدير