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

السلام عليكم احي الكريم 

لفعل جملة تقوم بالحفظ او التعديل نحتاج الى التأكد من ان السجل موجود او لا 
وافضل تحقق يكون بحقل الاي دي كونه فريد لايتكرر
في البداية قم بإنشاء هذا الصب

كود :

Dim da As New OleDbDataAdapter
   Dim kk As Boolean ' نعريف متغير من نوع بولين خارج الصب
   ' ننشئ صب للتحقق من ان الملف الذي يحمل رقم الاي دي موجود او لا
   Sub chekItem()
       Dim dt As New DataTable
       da = New OleDbDataAdapter("select * From Items where id = " & Txt_id.Text & "", con)
       da.Fill(dt)
       If dt.Rows.Count = 0 Then
           kk = False
       ElseIf dt.Rows.Count > 0 Then
           kk = True
       End If
   End Sub

ثم في حدث زر الحفظ ضع هذا الكود وضع كود الحفظ في المكان المشار اليه وكذلك كود التعديل

كود :

' كود الحفظ والتعديل
   Private Sub Btn_Save_Update_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Save_Update.Click
       Try
           chekItem() ' مناداة صب التحقق
           If kk = False Then
               ' ضع كود الحفظ هنا
           Else
               If MessageBox.Show("هل تريد تعديل السجل؟", "Alert", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
               End If
               ' ضع كود التعديل هنا
           End If
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
       ' اعادة تحميل الجدول
   End Sub