كيفية استخدام خاصية data source للتكست بوكس

[حسين العصلوجى]

عندي مشكلة مزمنه وهي اني اريد ان اجعل التكست بوكس لايقبل الا ارقام موجبه فقط ولا يقبل حروف او او اي  شئ بخلاف الارقام الموجبة

 

 

كيفية استخدام خاصية data source للتكست بوكس 

تم تعديل فبراير 14, 2013 بواسطه حسين العصلوجى

[klma7lwa]

الاخ الكريم  تفضل هذه الخدعة وهى تعمل بشكل جيد وفكرتها بسيطه

Private Sub txt_Change()
If txt.Value < 0 Or txt.Value >= 1E+21 Then txt.Value = ""
End Sub

تم تعديل فبراير 21, 2013 بواسطه klma7lwa

[حسين العصلوجى]

الاخ الكريم  تفضل هذه الخدعة وهى تعمل بشكل جيد وفكرتها بسيطه

Private Sub txt_Change()
If txt.Value < 0 Or txt.Value >= 1E+21 Then txt.Value = ""
End Sub

رائعة اخى حياك الله

 

ولي سؤال اخر هو كيف اجعل التكست بوكس لايقبل صيغة خاطئة للتاريخ

مثلا لايقبل 15-5-213

 

وجزالك الله خيرا

[klma7lwa]

تفضل اخى الكريم هذا الكود للاستاذ القدير عبدالله باقشير

 

Private Sub TextBox6_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Const dFT As String = "dd/mm/yyyy"
If Not IsDate(Me.TextBox6) Then
If IsNumeric(Me.TextBox6) Then
Me.TextBox6 = Format(DateSerial(Year(Date), Month(Date), Val(Me.TextBox6)), dFT)
Else
Me.TextBox6 = Format(Date, dFT)
End If
Else: Me.TextBox6 = Format(CDate(Me.TextBox6), dFT)
End If
End Sub

 

 

ورابط الموضوع من هنا   >> إضغط هنا <<

[حمادة عمر]

السلام عليكم

الاخ الكريم  / klma7lwa

بارك الله فيك

وجزاك الله خيراً

 

والاكيد ان الشكر موصول للاستاذ العلامة الخبير / عبد الله باقشير  .... جزاه الله خيرا