[Taha Okla]

أو خلي الـ Module  كما قلنا سابقا في المشاركة 16# -- وعدل  فقط زر الحفظ ليصبح  :

كود :

   Private Sub BtnSave_Click(sender As Object, e As EventArgs) Handles BtnSave.Click
       Dim r1, r2 As Integer

       Dim P1 As OleDbParameter = New OleDbParameter("@Car_Number", Car_Number.Text)
       r1 = ExScalar("Select Count(Car_Number) From Car_info Where Car_Number=@Car_Number ", P1)


       Dim P2 As OleDbParameter = New OleDbParameter("@Car_Qaedah_Number", Car_Qaedah_Number.Text)
       r2 = ExScalar("Select Count(Car_Qaedah_Number) From Car_info Where Car_Qaedah_Number=@Car_Qaedah_Number ", P2)

       If r1 > 0 Then
           MsgBox("لوحة هذه المركبة مسجلة مسبقاً - يرجى التأكد قبل الحفظ", vbOKOnly + vbExclamation, "Warrning")
           Car_Number.Focus()
           Exit Sub
       ElseIf r2 > 0 Then
           Dim msgR2 As DialogResult
           msgR2 = MsgBox("شاصيه هذه المركبة مسجل مسبقاً" + vbNewLine + "اختر : " + vbNewLine + " 'نعم/Yes' " + vbNewLine + "اذا كنت تريد تجاهل الامر والاستمرار بالحفظ" + vbNewLine + " ", vbYesNo + vbExclamation, "Warrning")
           If msgR2 <> DialogResult.Yes Then
               Car_Qaedah_Number.Focus()
               Exit Sub
           End If
       End If

       Insert_Car_info(Car_ID.Text, Car_Number.Text, Car_Module.Text, Car_Tybe.Text, Car_Qesem.Text, Car_Molahthat.Text, Car_Qaedah_Number.Text, Car_Halah.Text)
       SelectAll_Car_info(dgv_Car_info)
       DataGridViewHeaderText(dgv_Car_info)
       ClearControls()
       Car_ID.Text = Max_Car_info() + 1
   End Sub