• 0
djamel2020

إجراء حذف مورد بشرط أن لا يكون له فواتير في جدول الفواتير

سؤال

السلام عليكم ورحمة الله تعالى وبركاته
عملت إجرا كي أحذف مورد بشرط ان لا يكون له فواتير باسمه في جدول الفواتير
جدول الفواتير اسمه Achats الحقول هي : Numr, Société,Date, Montant
جدول الموردين اسمه Fournisseurs الحقول هي : ID, Nom, Société

كود ألإجراء الذي عملته هو :
 Private Sub BtnSupprimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSupprimer.Click

        'Supprimer un enregistrement
        On Error Resume Next

        If cnn.State = ConnectionState.Open Then
            cnn.Close()
        End If

        Dim sql As String = "Select Fournisseurs From Achats"
        If Me.BindingContext(ds, "Fournisseurs").Count > 0 Then
            MsgBox("Vous Ne pouvez pas supprimer ce Fournisseurs!, car il y a des Achats a son Nom.", MsgBoxStyle.Exclamation)
            Exit Sub
        Else
            If MsgBox("Voulez vous vraiment Supprimer ce Fournisseurs ?", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
                Exit Sub
            End If
            Dim r As Integer
            Dim stqlDel1 As String
            stqlDel1 = "Delete from Fournisseurs where ID =" & CInt(dgf.CurrentRow.Cells(0).Value)
            Dim cmdDel1 As New OleDbCommand(stqlDel1, cnn)
            cnn.Open()

            r = cmdDel1.ExecuteNonQuery()
            cnn.Close()
        End If
        BtnActualiser_Click(Nothing, Nothing)
    End Sub

لكن سواء هذا  المورد له فواتير في جدول الفواتير أم لا تطلع الرسالة المسج بوكس

أرجوا التوضيح
وشكرا لكم يا أساتذة

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

1 إجابات على هذا السؤال .

  • 0

عليك القراءة في مفهوم قاعدة البيانات قبل تكملية هذا البرنامج

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .