منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته .
من فضلكم أريد أكواد التحقق بالفيجوال بيسيك 6
على النحو التالي :
1- كود يجعل الحقل يقبل قيمة رقمية فقط
2- كود يجعل الحقل يقبل قيمة حرفية(نصية ) فقط
3- كود يجعل الحقل يقبل قيمة تاريخ مثل تاريخ الجهاز على سبيل المثال حفظ التاريخ بالصيغة yyyy/mm/dd ولا يقبل غيرها
4- بالاضافة الى كود في زر البحث اذا كانت الحقل فارغ في قاعدة البيانات يظهر رسالة انه فارغ تقريبا
وأكون شاكر لكم كثير
وجزاكم الله خير

up..............

تفضل هذا الكود فيه كل ما تريد

كود :

[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]

لم يرد صاحب السؤال حتى الآن
هل هذا الكود هو ما يريد أم لا؟

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

smiley

smiley

اسلام الكبابى

اسلام الكبابى