عدم الخروج من التكست الا بعد كتابة بيانات داخله

[basem said]

السلام عليكم

ارجو مساعدتى فى حين الضغط على مفتاح انتر اذا تواجد عدم وجود بيانات داخل TextBox1 لا يتم الانتقال الى TextBox2 بدون اظهار اى تعليق او فورم ويظل الوقوف داخل TextBox1

ولكم جزيل الشكر

[عبدالله المجرب]

جرب هذه الاكواد في حدث الفورم

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If TextBox1.Value = "" Then TextBox1.SetFocus

End Sub

Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

If TextBox1.Value = "" Then TextBox1.SetFocus

End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

If TextBox1.Value = "" Then TextBox1.SetFocus

End Sub

Private Sub UserForm_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

If TextBox1.Value = "" Then TextBox1.SetFocus

End Sub

[علي سالم 75]

ممكن الكود التالي:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If Len(Trim(TextBox1)) = 0 Then Cancel = True

End Sub

[basem said]

الف شكر استاذ /عبدالله على المساعده

وشكرى للاستاذ/ بليش روغ واحب اقوله هو ده المطلوب

الف شكر على اهتمامكم حقا منتدى رائع

[basem said]

استاذ / بليش روغ

ارجو تفسير اذا وضعت الادوات داخل Frame فيكون اخر TAPINDES لا يعمل معه الكود ويتم الانتقال الى الخارج دون الكتابة ارجو الحل

علما بان بعدم وجود Frame يعمل الكود بشكل جيد

الف شكر

Book1.rar

تم تعديل مايو 25, 2012 بواسطه basem said

[عبدالله المجرب]

جرب هذا الكود

Private Sub Frame1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If Len(Trim(TextBox1)) = 0 Then Cancel = True

If Len(Trim(TextBox2)) = 0 Then Cancel = True

End Sub

[علي سالم 75]

من خصائص الفرمة

اجعل الخاصية Cycle

Cycle = fmCycleCurrentForm

او ضيف الكود ادناه في كود الدخول للفورم

Private Sub UserForm_Initialize()

Me.Frame1.Cycle = fmCycleCurrentForm

End Sub

Book1.rar

تم تعديل مايو 25, 2012 بواسطه بليش روغ

[basem said]

كلمات الشكر لا تكفى ليكم

شكرا استاذ / بليش روغ

شكرا استاذ / عبدالله الكود افدنى وهذ هو طلبى