تصحيح إجراء - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : تصحيح إجراء (/showthread.php?tid=3979)

تصحيح إجراء - djelloul - 05-10-14 [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 أرجوا أن أكون قد وضحت الفكرة RE: تصحيح إجراء - djelloul - 05-10-14 الف شكر أخي الكريم والله يجازيك بخير راح أجرب وفي المساء أخبرك بالنتيجة ألف شكر وعيد مبارك سعيد مرة ثانية RE: تصحيح إجراء - djelloul - 05-10-14 مرحبا استاذ أرجوا أن لا اكون قد أزعجت لكن أظنني لم أوضح الفكرة كما ينبغي في الفورم توجد قريد فيو هذه القريدفيو تملأ من الكومبوبوكس Articles ومن التكست بوكس Qtantité ومن السعر الموجود في الليبل Prix Unitaire ثم بعد ملآ القريد قيو (لا يهم كم سطر لدينا) تأتي مرحلة الحفظ في الجدولين الجدول الأول Facture فيه رقم الفاتورة والتاريخ واسم المورد والمبلغ الإجمالي للفاتورة TotalHtالموجود في اليبل TotHT والجدول الثاني FactureL من القريد فيو بحسب الأعمدة آسف لأني لم أوضح المشكلة من الأول كما ينبغي أرجوا مساعدتك شكرا لك