(17-05-20, 02:36 AM)ابراهيم ايبو كتب : السلام عليكم اخي الكريم
معك حق في كود الحفظ كنا نضيف السجل قبل التحقق لم انتبه الهذه الجزئية 
استبدل كود الحفظ بهذا الكود وان شاء الله كل شيئ مثل ماتحب

كود :

 ' كود الحفظ
   Private Sub Btn_Save_Click(sender As Object, e As EventArgs) Handles Btn_Save.Click
       If Repertoire.Text = "" Then
           MessageBox.Show("يجب املاء حقل الفهرس", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
           Repertoire.Focus()
           Exit Sub
       Else
           ' تم نقل هذين السطرين الى هنا
           dt.Rows.Add()
           Dim last As Integer = dt.Rows.Count - 1

           dt.Rows(last).Item("Repertoire") = Repertoire.Text
           dt.Rows(last).Item("DateActe") = DateActe.Text
           dt.Rows(last).Item("TypeActe") = TypeActe.Text
           dt.Rows(last).Item("Name1") = Name1.Text
           dt.Rows(last).Item("Name2") = Name2.Text
           dt.Rows(last).Item("DateEnreg") = DateEnreg.Text
           dt.Rows(last).Item("NQuitt") = NQuitt.Text
           dt.Rows(last).Item("Droit") = Droit.Text
           dt.Rows(last).Item("Notes") = Notes.Text
           Dim save As New OleDbCommandBuilder(da)
           da.Update(dt)
           dt.AcceptChanges()
       End If
       MessageBox.Show("تم حفظ البيانات بنجاح", "حفظ", MessageBoxButtons.OK, MessageBoxIcon.Information)
       'اعادة تحميل السجلات ===============================================================
       usersdt_Load(Dgv_Data)
       '=================================================================================
       ' تفريغ الادوات بعد الحفظ
       ClearTools()
   End Sub