السلام عليكم اخي خالد
ستحذف ايضا بنفس شرط الجلب (رقم الفاتورة)
كود الحذف سيحتوي على كودين حذف :
حذف من جدول التفاصيل اولا بشرط رقم الفاتورة
ثم حذف الفاتورة بنفس الشرظ من جدول الفواتير
ملاحظة هامة: ان كنت تفتح الاتصال وتغلقه نفذ الفتح والاغلاق مرة واحدة داخل كود الحذف افتح الاتصال ونفذ جملة الحذف الاولى
ثم نفذ جملة الحذف الثانية بعدها اغلق الاتصال
تبقى مشكلة المخزن والحسابات هذه مشكلتك قلت لك ذلك سابقا كيف لا أعلم
اليك الكود
كود :
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
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
