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

كود :
[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]
الرد }}}}
تم الشكر بواسطة:
#4
لم يرد صاحب السؤال حتى الآن
هل هذا الكود هو ما يريد أم لا
؟
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow [كود] للفائدة - كود كم عدد السجلات المدخلة في ادود - ولدي أسئلة عمور2016 4 158 20-05-16, 10:17 PM
آخر رد: Ahmed_Mansoor
  الرجاء المساعدة في كود التحقق من صحة الايمايل wolf1120 3 752 06-06-13, 02:33 PM
آخر رد: wolf1120
  تحويل القيمة السالبة إلى موجبة (القيمة المطلقة) صقر الجزيرة 8 996 07-05-13, 08:53 PM
آخر رد: محمد العبيدي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم