منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

[attachment=2510]
السلام عليكم ورحمة الله تعالى وبركاته

أخوتي الكريم أعضاء ومشرفين في المنتدى الطيب
عيد مبارك سعيد وكل عام وأنتم بألف خير

رجاءا عندي طلب
أرجوا تصحيح هذا الإجراء:
Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click

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

        Try
            Dim saveF As New OleDb.OleDbCommand
            saveF.Connection = cnn
            saveF.CommandType = CommandType.Text
            saveF.CommandText = "Insert into Facture (N, Societe, Date, MontantHT)" & "values('" & txtNFact.Text & "','" & DTPiker.Value.ToString() & "'," & CmbClients.SelectedValue & ",," & TotHT.Text & ")"

            Dim saveFL As New OleDb.OleDbCommand
            saveFL.Connection = cnn
            saveFL.CommandType = CommandType.Text
            saveFL.CommandText = "INSERT INTO FactureL (N_Facture, CodeP, Quantité, Prix_Unit)" & "values('" & txtNFact.Text & "','" & CmbProd.SelectedValue & "', '" & txtQte.Text & "'," & PrixU.Text & ")"
            cnn.Open()
            saveF.ExecuteNonQuery()
            saveFL.ExecuteNonQuery()
            MsgBox("Enregistrement fait avec Succée", vbMsgBoxRight, "Cofermation")
            Me.View(2)
            cnn.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
            Exit Sub
        End Try

        If cnn.State = ConnectionState.Open Then
            cnn.Close()
        End If
        CmbProd.Text = ""
        txtQte.Text = ""

        txtNFact.Focus()
    End Sub

للعلم في خطأ يكمن في أن هذا الفورم به حقل مشترك بين جدولين هذا الحقل هو : N_Facture في جدول FactureL ونفس الحقل اسمه N في جدول Facture

أرجوا أن أكون قد وضحت الفكرة

الف شكر أخي الكريم والله يجازيك بخير

راح أجرب وفي المساء أخبرك بالنتيجة

ألف شكر وعيد مبارك سعيد مرة ثانية

مرحبا استاذ
أرجوا أن لا اكون قد أزعجت لكن أظنني لم أوضح الفكرة كما ينبغي
في الفورم توجد قريد فيو هذه القريدفيو تملأ من الكومبوبوكس Articles ومن التكست بوكس Qtantité ومن السعر الموجود في الليبل Prix Unitaire
ثم بعد ملآ القريد قيو (لا يهم كم سطر لدينا) تأتي مرحلة الحفظ في الجدولين
الجدول الأول Facture فيه رقم الفاتورة والتاريخ واسم المورد والمبلغ الإجمالي للفاتورة TotalHtالموجود في اليبل TotHT
والجدول الثاني FactureL من القريد فيو بحسب الأعمدة
آسف لأني لم أوضح المشكلة من الأول كما ينبغي
أرجوا مساعدتك
شكرا لك