[العيدروس]

السلام عليكم.لو سمحتم اخواني ارجو المساعدة منكم .بالفورم1 اقوم بالحفظ بجدول الفاتورة بعدما اختار من الكومبوبكس الصنف.اريد لما اعمل حفظ الفاتورة العدد يلي حفظتو ينقص من جدول الاصناف بارك الله فيكم

[حريف برمجة]

(30-11-18, 04:14 PM)العيدروس كتب : السلام عليكم.لو سمحتم اخواني ارجو المساعدة منكم .بالفورم1 اقوم بالحفظ بجدول الفاتورة بعدما اختار من الكومبوبكس الصنف.اريد لما اعمل حفظ الفاتورة العدد يلي حفظتو ينقص من جدول الاصناف بارك الله فيكم

وعليكم السلام ،،

ادخل في كود الحفظ تحديداً بعد هذا السطر :

كود :

If SaveOk <> -1 Then

فقط ضيف ذي الأسطر :

كود :

'بداية كود انقاص الكمية
               Using cmd2 As New OleDbCommand("update [asnaf] set [Asnafquantity] = [Asnafquantity]" & -TextBox4.Text & " where [Asnafname]='" & ComboBox1.Text & "'", objconn)
                   cmd2.ExecuteNonQuery()
               End Using
               'نهاية كود انقاص الكمية

               'تفريغ التكستات
               ComboBox1.SelectedIndex = -1 : TextBox1.Text = "" : TextBox2.Text = "" : TextBox3.Text = "" : TextBox4.Text = "" : TextBox5.Text = "" : Get_record()

ولا تغير شي آخر كله مثل ما كان ،، وجرب .

---

يصير كود الحفظ كامل هكذا :

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       objconn.Open()

       Dim sqlQry As String = "insert into [fatura] ([faturacode], [faturasinf], [faturaunit], [faturaquantity]) values (@faturacode, @faturasinf, @faturaunit, @faturaquantity)"
       Using cmd As New OleDbCommand(sqlQry, objconn)
           cmd.Parameters.AddWithValue("@faturacode", TextBox1.Text)
           cmd.Parameters.AddWithValue("@faturasinf", TextBox2.Text)
           cmd.Parameters.AddWithValue("@faturaunit", TextBox3.Text)
           cmd.Parameters.AddWithValue("@faturaquantity", TextBox4.Text)
           Dim SaveOk As Integer = cmd.ExecuteNonQuery()
           If SaveOk <> -1 Then

               'بداية كود انقاص الكمية
               Using cmd2 As New OleDbCommand("update [asnaf] set [Asnafquantity] = [Asnafquantity]" & -TextBox4.Text & " where [Asnafname]='" & ComboBox1.Text & "'", objconn)
                   cmd2.ExecuteNonQuery()
               End Using
               'نهاية كود انقاص الكمية

               'تفريغ التكستات
               ComboBox1.SelectedIndex = -1 : TextBox1.Text = "" : TextBox2.Text = "" : TextBox3.Text = "" : TextBox4.Text = "" : TextBox5.Text = "" : Get_record()

               MsgBox("تم الحفظ بنجاح")
           End If
       End Using
   End Sub

[العيدروس]

بارك الله فيك اخي حريف برمجة على الكود الرائع شغال مية بالمية الهي يجازيك كل الخير و يحميك و يزيدك من علمه.بقيت لي شغلانة اخيرة اخي واعذرني لو اثقلت عليك.بشاشة ادخال الاصناف كيف يمكن لو كان الصنف موجود بالفعل مسبقا في جدول الاصناف يبقى الصنف يلي رايح اضيفو ينضاف على الكمية السابقة الموجودة بالجدول يعني موجود بجدول الاصناف مثلا سكر 145 .لما اضييف سكر ثاني مثلا 22 ينضاف على اللي قبلو و يصبح كلو 167 يعني اريد لا يتكرر الصنف مرتين و ربنا يكرمك ان شاء الله

[حريف برمجة]

الله يتقبل منك الدعوات الطيبة ولك بالمثل واكثر حتى ترضى ...

بخصوص طلبك ابشر ،،

[العيدروس]

الهي  يبشرك بالخير و الستر ان شاء الله

[حريف برمجة]

(01-12-18, 01:39 AM)العيدروس كتب : الهي  يبشرك بالخير و الستر ان شاء الله

وضعت لك في شاشة إضافة صنف ليست بوكس تعرض لك قائمة الأصناف الموجودة بترتيب ابجدي وهذا يفيدك في اختيار الصنف بدلاً من كتابته ،،

لنفرض اضفت صنف زيت 10 كلغ
ومره أخرى اخطات في كتابة زيت مثلاً كتبتها هكذا زيتت هنا سيصبح سجلين للزيت

انت الان تختار الصنف ترتيب ابجدي من الليست بوكس وتقوم بكتابة الكمية الجديدة في خانة الكمية وتعمل حفظ وهو دايركت يضيف الكمية الجديدة للكمية السابقة لنفس الصنف المعروض امامك .

أي استفسار ما راح نتأخر عنكم انا والأخوة هنا جميع .

[العيدروس]

شكر اخي حريف برمجة و بارك الله فيك بجد مش عارف كيف اشكرك ربنا يعطيك ما تتمناه هذا المطلوب الف شكر

[حريف برمجة]

الحمد والشكر لله سبحانه وتعالى ،،

بالتوفيق للجميع ،،