تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تصحيح إجراء
#1
Wink 
   
السلام عليكم ورحمة الله تعالى وبركاته

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

رجاءا عندي طلب
أرجوا تصحيح هذا الإجراء:
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

أرجوا أن أكون قد وضحت الفكرة
الرد }}}
تم الشكر بواسطة:
#2
الف شكر أخي الكريم والله يجازيك بخير

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مطلوب تصحيح سطر فى هذا الــ Function AhmedEissa 3 498 13-12-23, 12:55 AM
آخر رد: العتيق
  طلب تصحيح كود ارسال رسائل SMS assuhimi 3 747 09-07-23, 01:41 PM
آخر رد: Shade0001
  السلام عليكم ممكن تصحيح كود جدول مع جدول تم بنجاح ولاكن اريد عمل انتر بين الجدولين ahmedhhh2 5 1,559 02-02-22, 12:15 AM
آخر رد: ahmedhhh2
  ممكن تصحيح للكود دا لو سمحتو ahmed112001 1 944 04-12-20, 09:49 AM
آخر رد: Anas Mahmoud
  [كود] تصحيح او تعديل كود البحث في نص مشكل عبد الهادي بهاب 6 1,890 16-09-20, 03:54 PM
آخر رد: عبد الهادي بهاب
  [سؤال] طلب تصحيح كود paveldida 1 1,083 24-08-20, 02:55 PM
آخر رد: اسامه الهرماوي
  ظهور رسالة خطأ عند إجراء النسخ الاحتياطي لقاعدة البيانات momiana1 0 1,369 11-05-20, 04:14 AM
آخر رد: momiana1
  [VB.NET] تصحيح خطا tahaayyoub 4 1,514 06-05-20, 12:47 AM
آخر رد: ابراهيم ايبو
Heart [VB.NET] إجراء بحث في في عامودين في داتا غريد فيو , عبر خانتي نص أو قائمتي إختيار Al Wilaya 7 2,383 30-01-20, 01:18 AM
آخر رد: alsalamoni
  تصحيح كود bidaya 4 1,839 07-12-19, 11:31 PM
آخر رد: bidaya

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم