منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : اريد خانة تعديل فقط عامود واحد من الجدول
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته
المشروع مرفق كامل

في الفورم رقم 8 قمت بعرض الداتا في الداتاقريد فيو

طبعا الفكرة انه تجي اسم الشخص ورقمه وبياناته وفي الاخير الإجراء 
في الفورمات السابقة كان يضيف لي تلقائي تحت الإجراء

اريد مثلا إذا دخل المدير يعدل فقط كلمة تحت الإجراء ويخليها مثلا تم التنفيذ أو لم يتم التنفيذ ولا اريده يعدل باقي الخانات نهائيا

كيف يمكنني عمل ذلك

المشروع مرفق كامل
السلام عليكم ورحمة الله وبركاته
اخي الكريم كلمة المرور واسم المستخدم مطلوبتان وانت لم تذكرهما اضافة الى ان قاعدة البيانات لم تفتح معي
المهم في الفورم التي سيدخل عليها المدير اجعل   DataGridview1.ReadOnly=true حتى لايستطيع التغيير فيها
وفي حدث DataGridView1_CellContentClick النقر على صف في الداتاغرايد سيجلب رقم الايدي ويضعه في المتغير الذي ستعرفه
ويجلب الحقل الذي سيكتب فيه المدير الى مربع التكست بوكس 
كود :
 ' عرف هذا المتغير في الاعلى
   Dim N_Id As Integer = 0
   Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
       N_Id = DataGridView1.CurrentRow.Cells("اسم عمود الاي دي في الجدول").Value.ToString()
       State_H.Text = DataGridView1.CurrentRow.Cells("اسم عمود التنفيذ في الجدول").Value.ToString()
   End Sub


الان مع كل اختيار لصف سيجلب الايدي مع حقل المدير بعدها سيكتب المدير في التكست بوكس ويضغط على زر تحذيث الطلب والذي ستكون اكواده التعديل على السجل ذو الاي دي الموجود في المتغير الذي عرفناه 
طبعا ستعدل حقل واحد فقط هو حقل التكست بوكس(الخاص بالمدير) بشرظ الاي دي المذكور
(22-10-21, 12:55 AM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
اخي الكريم كلمة المرور واسم المستخدم مطلوبتان وانت لم تذكرهما اضافة الى ان قاعدة البيانات لم تفتح معي
المهم في الفورم التي سيدخل عليها المدير اجعل   DataGridview1.ReadOnly=true حتى لايستطيع التغيير فيها
وفي حدث DataGridView1_CellContentClick النقر على صف في الداتاغرايد سيجلب رقم الايدي ويضعه في المتغير الذي ستعرفه
ويجلب الحقل الذي سيكتب فيه المدير الى مربع التكست بوكس 
كود :
 ' عرف هذا المتغير في الاعلى
   Dim N_Id As Integer = 0
   Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
       N_Id = DataGridView1.CurrentRow.Cells("اسم عمود الاي دي في الجدول").Value.ToString()
       State_H.Text = DataGridView1.CurrentRow.Cells("اسم عمود التنفيذ في الجدول").Value.ToString()
   End Sub


الان مع كل اختيار لصف سيجلب الايدي مع حقل المدير بعدها سيكتب المدير في التكست بوكس ويضغط على زر تحذيث الطلب والذي ستكون اكواده التعديل على السجل ذو الاي دي الموجود في المتغير الذي عرفناه 
طبعا ستعدل حقل واحد فقط هو حقل التكست بوكس(الخاص بالمدير) بشرظ الاي دي المذكور



أهلا أستاذي الكريم

أنا لم أذكرهما وذلك لأن القاعدة مرفقه وبداخلها اسم المستخدم والرقم السري



علماً أن اسم المستخدم abdurhman
الرقم السري abd2006




وجاري الان تجربة الأكواد
عدل هذا السطر
كود :
N_Id = DataGridView1.CurrentRow.Cells("اسم عمود الاي دي في الجدول").Value.ToString()
الى هذا السطر
كود :
N_Id = DataGridView1.CurrentRow.Cells("اسم عمود الاي دي في الجدول").Value
اي الغ كلمة .Tostrıng لان المتغير رقمي واسف على الخطأ
(22-10-21, 12:48 PM)ابراهيم ايبو كتب : [ -> ]
عدل هذا السطر
كود :
N_Id = DataGridView1.CurrentRow.Cells("اسم عمود الاي دي في الجدول").Value.ToString()
الى هذا السطر
كود :
N_Id = DataGridView1.CurrentRow.Cells("اسم عمود الاي دي في الجدول").Value
اي الغ كلمة .Tostrıng لان المتغير رقمي واسف على الخطأ



ما ضبط معي للاسف

طبعا ضفت زر جديد سميته عرض حالة الطلب

والحين إذا وقفت على خانة معينة يجلبها لي لتكست State_H.Text

لكن ابي اعدل

خليت زر التعديل مختلف

واحتاج اعدل فيه

الأكواد ماضبطت

علماً

أن اسم المستخدم abdurhman
الرقم السري abd2006



القاعدة اسم الجدول المطلوب التعديل فيه Hardwere
اسم الخانة المطلوب التعديل فيها State_H


مرفق الملف كامل
السلام عليكم ورحمة الله وبركاته
اخي الكريم قاعدة البيانات لاتفتح حتى مع البرنامج ومع ادخال كلمة المرور والسر
والرسالة تقول عدم توافق اصدار الاكسس 
The database you are trying to open requires a newer version of Microsoft Access.
حاول ان ترفع قاعدة البيانات باصدار 2003 و2007
لا استطيع مساعدتك اذا لم اتمكن من تشغيل قاعدة البيانات والدخول الى البرنامج
(22-10-21, 09:53 PM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
اخي الكريم قاعدة البيانات لاتفتح حتى مع البرنامج ومع ادخال كلمة المرور والسر
والرسالة تقول عدم توافق اصدار الاكسس 
The database you are trying to open requires a newer version of Microsoft Access.
حاول ان ترفع قاعدة البيانات باصدار 2003 و2007
لا استطيع مساعدتك اذا لم اتمكن من تشغيل قاعدة البيانات والدخول الى البرنامج

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