اريد رساله تحذير أذا تم أدخل أكثر من 10 أرقام

استخدم هذا الكود

Private Sub Text0_Change()
If Len(Me.Text0.Text) > 10 Then MsgBox ""
End Sub

حيث اسم مربع النص text0

غيره حسب ما عندك

شكرا أخى الكريم ولكن أكتبه في حدث في وين في( عند وجود شوائب ولا عند التحديث)

اقتباس

شكرا أخى الكريم ولكن أكتبه في حدث في وين في( عند وجود شوائب ولا عند التحديث)

Private Sub Text0_Change()

في حدث Change

===

بارك الله فيك اخ فيصل

توضيح للاخ السائل لانى ارى ان الاوفيس لديه نسخة عربية

فى حدث عند التغيير لمربع النص

ضع هذا الكود

If Len(Me.Text0.Text) > 10 Then MsgBox "عدد المدخلات اكثر من 10"

غير TEXT0 باسم مربع النص لديك

Abo_Yossof كتب:

بارك الله فيك اخ فيصل

توضيح للاخ السائل لانى ارى ان الاوفيس لديه نسخة عربية

فى حدث عند التغيير لمربع النص

ضع هذا الكود

If Len(Me.Text0.Text) > 10 Then MsgBox "عدد المدخلات اكثر من 10"

غير TEXT0 باسم مربع النص لديك

الف شكرا اخى الكريم وجزاك الله خيراً