جزاك الله خيرا اخي ولكن ملاحظ ان تنسيق التاريخ من اليمين الى اليسار او العكس في مربع النص txtnum يتبع تنسيق التاريخ في الاعدادات الاقليمية .
على العموم تم حل المشكله والحمد لله باستخدام
Me.TxtNum = Format(Me.TxtDate, "yyyymmdd")
في حدث بعد التحديث ويمكنك تغير yyyymmdd بالاتجاه الذي تريد
جزاك الله خيرا اخي على تجاوبك معي