السلام عليكم ورحمة الله وبركآته
رجاءا لدي استفسار فضلا في قاعدة البيانات من نوع اكسس المربوطة في VB.NET
وهو الاستعلام او كيفية جعل الجدول يقبل فقط 8 حقول ، كمثال الحقول الـ 8 التالية :
وعند محاولة ادخال حقل جديد بعد الـ 8 حقول يظهر رسالة بإنه لا يوجد مساحة كافية و الجدول مليئ بالبيانات.
السلام عليكم
حسب ما فهمت
اذا كمنت تستخدم DataGridView1
استخدم الكود التالي
PHP كود :
If Val(DataGridView1.RowCount) > 8 Then MsgBox("هنا ضع نص الرسالة ")
والله الموفق
(25-02-17, 12:49 AM)sendbad100 كتب : [ -> ]السلام عليكم
حسب ما فهمت
اذا كمنت تستخدم 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