ابا عمرو قام بنشر مارس 25, 2014 مشاركة قام بنشر مارس 25, 2014 الاخوه الكرام / أعضاء المنتدى السلام عليكم ورحمة الله برجاء التكرم بكود لعمل رسالة للمستخدم بضرورة ادخال بيانات في هذا الحقل (في نموذج) حتى يمكن المتابعة والا يتوقف عملية الادخال وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
أفضل إجابة أبا عمر قام بنشر مارس 25, 2014 أفضل إجابة مشاركة قام بنشر مارس 25, 2014 If Me.xx.Text = "" Then MsgBox "عفواً لا يمكن ترك هذا الحقل فارغاً", vbCritical, "تحذير" Cancel = True End If في حدث عند الخروج من الحقل ضع الكود السابق حيث xx هو الحقل المراد إجبار المستخدم على عدم تركه فارغا وهذا كود للأستاذ الفاضل أبو آدم جزاه الله خيرا وأحسن الله إليه منعاً لترك أي حقل ( مربع نص أو مربع تحرير وسرد ) فارغاً ، خلف زر أمر للتدقيق ، ضع الكود التالي : Private Sub cmdChick_Click() Dim ctl As Control Dim vIndex As Long For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or acComboBox Then With ctl If IsNull(Me.Controls.Item(vIndex)) = True Then MsgBox vIndex & ": " & Me.Controls.Item(vIndex).Name & " Value:Empty Field" Me.Controls.Item(vIndex).SetFocus Exit Sub End If End With End If 'This is used to track the actual Item Number. vIndex = vIndex + 1 Next ctl End Sub رابط هذا التعليق شارك More sharing options...
ابا عمرو قام بنشر مارس 26, 2014 الكاتب مشاركة قام بنشر مارس 26, 2014 أخي الكريم / أبا عمر جزاكم الله خيرا وبارك الله فيكم وفي علمكم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.