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

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

كود :

Public Sub Update_tb1(Fname As String, Shara As String, Id As Integer)
       Dim Cmd As New OleDbCommand("Update tb1 set Fname=@Fname,Shara=@Shara Where Id=@Id", con)
       Cmd.Parameters.Add(New OleDbParameter("@Fname", OleDbType.VarWChar)).Value = Fname
       Cmd.Parameters.Add(New OleDbParameter("@Shara", OleDbType.VarWChar)).Value = Shara
       Cmd.Parameters.Add(New OleDbParameter("@Id", OleDbType.Integer)).Value = Id
       If Con.State = ConnectionState.Open Then Con.Close()

       Con.Open()
       Cmd.ExecuteNonQuery()
       Con.Close()
       MessageBox.Show("تم تعديل البيانات بنجاح", "تعديل", MessageBoxButtons.OK, MessageBoxIcon.Information)
   End Sub

وهذا في زر التعديل

كود :

Try
           If MessageBox.Show("هل تريد تعديل السجل؟", "Alert", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
               Update_tb1(Txt_Fname.Text, Txt_Shara.Text, Txt_Id.Text)
           Else
               Exit Sub
           End If
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

المعذرة كنت قد اسميت الجدول بـ Users غيرته الان الى اسم الجدول الذي عندك وهو tb1