كود :
[align=left]Dim TXTEROR As Object
Dim MMSG1, MMSG2, MMSG3 As String
Dim Datte1 As Date
Private Sub Command1_Click()
Rem"الكود التالى للمراجعة على أن جميع البيانات قد دخلت"
For I = 0 To 6
Rem"'طبعآ الرقم 6 على حسب عدد الtxtFields عندك"
If txtFields(I).Text = "" Then
CORRECT = 1: CORR = 1
Z = MsgBox("من فضلك أدخل جميع بياناتك", vbOKOnly, "ماهذا؟ ")
txtFields(I).SetFocus: GoTo 400
End If
Next I
Rem"----------------------------------------------------------------------"
Rem"الكوداالتالى للمراجعةعلى البيانات الحرفيةالمدخلة"
Rem"(اسم العميل، اسم السلعة)والتأكد من أنها خالية تمامآ من الأرقام"
For I = 0 To Len(txtFields(0).Text)
Rem"text تعنى عدد الحروف أو الأرقام الموجود داخل هذا ال Len(Text1.Text)"
VALUU = Mid(txtFields(0), I + 1, 1)
If IsNumeric(VALUU) Then Set TXTEROR = txtFields(0): MMSG3 = "اسم العميل ": GoTo 150
Next I
For I = 0 To Len(txtFields(1).Text)
Rem"text تعنى عدد الحروف أو الأرقام الموجود داخل هذا ال Len(Text1.Text)"
VALUU = Mid(txtFields(1), I + 1, 1)
If IsNumeric(VALUU) Then Set TXTEROR = txtFields(1): MMSG3 = "اسم السلعة ": GoTo 150
Next I
GoTo 200
150 MMSG1 = "لا يجوز أن يحتوى على أى أرقام"
MMSG2 = " ماهذا؟"
Z = MsgBox((MMSG3) + (MMSG1), vbCritical, (MMSG2))
TXTEROR.SetFocus: GoTo 400
Rem"----------------------------------------------------------------------"
Rem"الكود التالى للمراجعة على البيانات الرقمية المدخلة والتأكد من أنها فعلآ رقمية"
200 If Not IsNumeric(txtFields(2).Text) Then Set TXTEROR = txtFields(2): MMSG3 = "رقم التليفون ": GoTo 250
If Not IsNumeric(txtFields(3).Text) Then Set TXTEROR = txtFields(3): MMSG3 = "الكمية ": GoTo 250
If Not IsNumeric(txtFields(4).Text) Then Set TXTEROR = txtFields(4): MMSG3 = "سعرالوحدة": GoTo 250
If Not IsNumeric(txtFields(5).Text) Then Set TXTEROR = txtFields(5): MMSG3 = "السعرالاجمالى": GoTo 250
GoTo 300
250 MMSG1 = " بيان رقمى لا يجوز أن يحتوى على غير الأرقام"
MMSG2 = " ماهذا؟"
Z = MsgBox((MMSG3) + (MMSG1), vbCritical, (MMSG2))
TXTEROR.SetFocus: GoTo 400
Rem"----------------------------------------------------------------------"
Rem"الكود التالى للمراجعةعلى التاريخ المدخل(تاريخ البيع)والتأكد من أنه فعلآ تاريخ"
300 If Not IsDate(txtFields(6).Text) Then Z = MsgBox("(من فضلك أدخل تاريخ البيع (كبيان تاريخى ", vbCritical, " ما هذا؟ "): txtFields(6).SetFocus: GoTo 400
Rem"الجملة السابقة للمراجعةعلى التاريخ المدخل والتأكد من أنه فعلآ تاريخ"
Datte1 = txtFields(6).Text
If DateTime.Date >= Datte1 Then GoTo 400
Z = MsgBox(" من فضلك صحح هذا التاريخ ", vbCritical, " ما هذا؟ نحن مازلنا لم نصل بعد لهذا التاريخ"): txtFields(6).SetFocus
Rem" الجمل الثلاثة السابقة للتأكد من أن التاريخ المدخل لم يتعد تاريخ اليوم الحالى"
400 End Sub
[/align]