تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] جعل الجدول يقبل فقط 10 حقول
#1
السلام عليكم ورحمة الله وبركآته

رجاءا لدي استفسار فضلا في قاعدة البيانات من نوع  اكسس المربوطة في VB.NET
 وهو الاستعلام او كيفية جعل الجدول يقبل فقط 8 حقول ،  كمثال الحقول الـ 8 التالية :




وعند محاولة ادخال حقل جديد بعد الـ 8  حقول يظهر رسالة بإنه لا يوجد مساحة كافية و الجدول مليئ بالبيانات.
الرد
تم الشكر بواسطة:
#2
السلام عليكم 


حسب ما فهمت 

اذا كمنت تستخدم   DataGridView1

استخدم الكود التالي 
PHP كود :
If Val(DataGridView1.RowCount) > 8 Then MsgBox("هنا ضع نص الرسالة "
والله الموفق
الرد
تم الشكر بواسطة: Crazy_Vb.NeT
#3
(25-02-17, 12:49 AM)sendbad100 كتب : السلام عليكم 


حسب ما فهمت 

اذا كمنت تستخدم   DataGridView1

استخدم الكود التالي 
PHP كود :
If Val(DataGridView1.RowCount) > 8 Then MsgBox("هنا ضع نص الرسالة "
والله الموفق

وعليكم السلام
الكود يعمل جيدا 
كل الشكر والتقدير لك اخي الكريم
sendbad100
الرد
تم الشكر بواسطة: sendbad100 , sendbad100
#4
السلام عليكم

إضافة لما ذكره الأستاذ sendbad100 بارك الله فيه
مشاركتي بدون إظهار رسالة، فقط تخفي سطر الإضافة عند وصول عدد الأسطر إلى 8 ويعود سطر الإضافة بمجرد حذف سطر (أي يصبح أقل من 8 أسطر)

فقط في حالة كنت تستخدم الإضافة والتعديل والحذف من نفس أداة الداتاجريد استخدم هاذين الحدثين
كود :
Private Sub DataGridView1_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
   If Me.DataGridView1.Rows.Count > 8 Then Me.DataGridView1.AllowUserToAddRows = False
End Sub
Private Sub DataGridView1_RowsRemoved(sender As Object, e As DataGridViewRowsRemovedEventArgs) Handles DataGridView1.RowsRemoved
   If Me.DataGridView1.Rows.Count < 8 Then Me.DataGridView1.AllowUserToAddRows = True
End Sub
الرد
تم الشكر بواسطة: sendbad100 , Crazy_Vb.NeT , Crazy_Vb.NeT , العواد الصغير



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


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