ماهو الحدث الذي ينطلق بعد فقدان التركيز على الاداه

[محمد الزريعي]

الاخوة الاعزاء ..

عندي فورم فيها  أربعة تكست بوكس ..

      و واحد  مفتاح  CommandButton1

------

طبعاً في التكست بوكس 1 // الاسم 

في التكست بوكس 2 /  التاريخ  

اريد الحدث ينطلق بعدما أنتقل من  التكست بوكس 2 اي بعدما اتركها .. وانقر على اي شئ خارج الفورم .  ،، والحدث وظيفته هو يقوم بتنسيق التاريخ  من (1/1/2016 ) الي ( 01/01/2016 ) .. هذا الهدف منه . فقط 

 

[محمد الزريعي]

لقد سيوت هذا الكود  وما نفع معي 

Private Sub Text4_LostFocus()

m = TextBox4.Text

If m = "" Then GoTo 0

If Not IsDate(m) Then

   MsgBox "يرجى ادخال التاريخ بشكل صحيح"

TextBox4.Text = ""

Else

  If m > 1 Then TextBox4.Text = Format$(m, "dd/mm/yyyy")

End If

0:

End Sub

[محمد الزريعي]

حاولت فية لين مشى معي الحين ،، ما بعرف اذا  بعدين بيتغير ولا .. لا ...  اتفضلو هذا الكود الذي استخدمته 

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)

m = TextBox4.Text

If m = "" Then GoTo 0

If Not IsDate(m) Then

MsgBox "----------------------"

TextBox4.Text = ""

Else

If m > 1 Then TextBox4.Text = Format$(m, "dd/mm/yyyy")

End If

0:

End Sub

---------------------

 ثم اضفت عند النقر على الزر كلمة 

dat1 = CDate(TextBox4.Text)