[مجـ متعلم ـرد]

السلام عليكم ورحمة الله وبركاته
المشروع مرفق كامل

في الفورم رقم 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
لا استطيع مساعدتك اذا لم اتمكن من تشغيل قاعدة البيانات والدخول الى البرنامج

ممكن أتواصل معك على الخاص

[ابراهيم ايبو]

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