أحتاج لخيار آخر غير InputBox بحيث يكون قابل للسيطرة و متناسقاً مع النظام من حيث الشكل وتنسيق النماذج !!
هذه هينة بإذن الله ...
قم بإنشاء نموذج بالحجم الذي تجده مناسبا
قم بانشاء مربع نص بإسم Text000
قم بانشاء زر أمر بإسم ComClose وسمه OK
قم بانشاء زر أمر بإسم ComCancel وسمه Cancel
وفي محرر الفيجوال للنموذج ضع مجموعة الكودات التالية :
Private Sub ComClose_Click()
If IsNull(Me.Text000) Or Me.Text000 = "" Then
MsgBox ("You did not provide anything!")
Else
MsgBox ("You entered: '" & Me.Text000 & "' as the value!")
End If
DoCmd.Close acForm, Me.Name
End Sub
Private Sub ComCancel_Click()
MsgBox ("You pressed Cancel!")
DoCmd.Close acForm, Me.Name
End Sub
Private Sub Form_Timer()
DoCmd.Close acForm, Me.Name
End Sub
Private Sub Text000_Change()
Me.TimerInterval = 0
End Sub
التطبيق بسيط وفعاّل
عند فتح النموذج وعدم التفاعل معه لمدة 10 ثواني يغلق تلقائياً
عند إدخال أي نص في مربع النص تظهر الحروف على شكل نجمة (كلمة سر)
بالموافقة على النص المدخل OK تظهر رسالة توضح النص المدخل ، وهنا يمكننا وضع الكود المناسب للتطبيق من حيث إعتماد القيمة أو رفضها ...
في حال ترك مربع النص فارغاً وضغط OK تظهر سالة تفيد بانه لم يتم إدخال أي قيمة
في حال الضغط على الزر Cancel يتم إشعارنا برسالة بخيارنا ويتم إغلاق النموذج
جرب ....