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

السلام عليكم اخي خالد 

ستحذف ايضا بنفس شرط الجلب (رقم الفاتورة)

كود الحذف سيحتوي على كودين حذف  :

 حذف من جدول التفاصيل اولا بشرط رقم الفاتورة

ثم حذف الفاتورة بنفس الشرظ من جدول الفواتير

ملاحظة هامة: ان  كنت تفتح الاتصال وتغلقه نفذ الفتح والاغلاق مرة واحدة داخل كود الحذف افتح الاتصال ونفذ جملة الحذف الاولى

ثم نفذ جملة الحذف الثانية بعدها اغلق الاتصال

تبقى مشكلة المخزن والحسابات هذه مشكلتك قلت لك ذلك سابقا كيف لا أعلم

اليك الكود 

كود :

Private Sub Btn_Delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Delete.Click
       'Txt_FaturaNumber.text  نفترض ان مربع النص لرقم الفاتورة اسمه
       ' التحقق من وجود رقم الفاتورة
       Try
           If Txt_FaturaNumber.Text = "" Then
               MsgBox("من فضلك ادخل رقم الفاتورة", MsgBoxStyle.Critical, Title:="Error")
               Exit Sub
           Else

               If MessageBox.Show("هل انت متأكد من حذف السجل؟", "Alert", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
                   'Dim cmd As New OleDbCommand()

                   'cmd = New OleDbCommand("Delete from [جدول تفاصيل الفاتورة] where [حقل رقم الفاتورة] = " & Txt_FaturaNumber.text & ")", con)
                   'con.Open()
                   'cmd.ExecuteNonQuery()
                   'cmd.Dispose()

                   'cmd = New OleDbCommand("Delete from [جدول الفواتير] where [حقل رقم الفاتورة] = " & Txt_FaturaNumber.text & "')", con)
                   'cmd.ExecuteNonQuery()
                   'cmd.Dispose()

                   MessageBox.Show("تم الحذف بنجاح؟", "حذف", MessageBoxButtons.OK, MessageBoxIcon.Information)
               Else
                   Exit Sub
               End If
           End If

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub