منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] استفسار بخصوص DataGrid ؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : [سؤال] استفسار بخصوص DataGrid ؟ (/showthread.php?tid=14343)



استفسار بخصوص DataGrid ؟ - ghareeb_hany - 08-01-16

أقوم بتصميم برنامج كنترول مدرسة
عن طريق
Visual Basic 6.0

واقوم بتصميم شاشة لادخال درجات الطلاب عن طريق
DataGrid

بعد ربطها بقاعدة بيانات الطلاب (stu.mdb)
عن طريق الأداة
Adodc


السؤال :

(1) منع كتابة أى شئ سوى الأرقام فى
DataGrid
عند رصد الدرجات
وظهور رسالة خطأ عند محالة كتابة أى شئ سوى الأرقام

(2) تحديد مدى الدرجات لكل مادة مثلا : اللغة العربية (0 من  إلى 60) ، الرياضيات (من 0 إلى 40) وهكذا
وظهور رسالة خطأ عند كتابة أى درجات تختلف عن المدى المحدد


أرجو أن أكون أضحت استفسارى وسؤال.



RE: استفسار بخصوص DataGrid ؟ - Ashraf Elafify - 08-01-16

أخى العزيز
سلام الله عليكم ورحمته وبركاته.

سأفترض أن لديك اثنين تكست بوكس
سأقوم بمقارنه المدخلات ولا اسمح للمستخدم اطلاقا باستخدم الحروف الكتابيه فقط الارقام فقط
انظر فى المثال التالى


كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)
On Error Resume Next
    Dim S As String
        S = "1234567890." & vbBack
            If InStr(S, Chr(KeyAscii)) = 0 Then
                KeyAscii = 0
            End If
End Sub

Private Sub Text1_Validate(Cancel As Boolean)
On Error Resume Next
    CausesValidation = True
        S = "1234567890." & vbBack
            If InStr(S, Chr(KeyAscii)) = 0 Then
                KeyAscii = 0
            End If
If Text1.Text < 0 Then
    MsgBox "لقد ادخلت رقم اصغر من 0، يرجى تصحيح الرقم "
        Text1.Text = ""
End If
If Text2.Text > 60 Then
    MsgBox "لقد ادخلت رقم أكبر من النهايه العظمى (60)، يرجى تصحيح الرقم "

        Text2.Text = ""
End If
End Sub

أرجو من الله سبحانه وتعالى ان يكون هذا ما تريدة

وان لم يكن

فمن فضلك ارفق مثال للتعديل عليه.


RE: استفسار بخصوص DataGrid ؟ - ghareeb_hany - 08-01-16

جزاك الله خيراً أخى الكريم لسرعة التفاعل
ومرفق المثال للتوضيح
فى انتظار ردك بعد الاطلاع على المثال