[Crazy_Vb.NeT]

السلام عليكم ورحمة الله وبركآته

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




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

[sendbad100]

السلام عليكم 


حسب ما فهمت 

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

استخدم الكود التالي 

PHP كود :

If Val(DataGridView1.RowCount) > 8 Then MsgBox("هنا ضع نص الرسالة ") 


والله الموفق

[Crazy_Vb.NeT]

السلام عليكم 


حسب ما فهمت 

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

استخدم الكود التالي 

PHP كود :

If Val(DataGridView1.RowCount) > 8 Then MsgBox("هنا ضع نص الرسالة ") 


والله الموفق

وعليكم السلام
الكود يعمل جيدا 
كل الشكر والتقدير لك اخي الكريم
sendbad100

[مساعدة]

السلام عليكم

إضافة لما ذكره الأستاذ 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