السلام عليكم
عندي تكست واريد في حالة لم يدخل المستخدم التاريخ بشكل صحيح يعطي خطأ عند انتقال الموشر من التكست بأن طريقة الإدخال خاطئة
نوع التاريخ
dd mm yyyy
وجزاكم الله كل خير
التعامل مع تكست من النوع Date
الافضل لك وضع ادارة الداتا بيكر افضل واسهل ومنعا للمشاكل
If IsDate(Text1.Text) = True Then If Text1.Text = Format(Text1.Text, "dd mm yyyy") Then MsgBox "OK , Congratulations" End If Else MsgBox "Wrong Date" End If
إذا أردت ان يتم التنفيذ عندما ينتقل التركيز غلى مربع نص آخر مثلا , ضع الكود في الحدث Text1_LostFoucs
اقتباسIf A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut
Albert Einstein