تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
انقاص الكمية من جدول الاصناف
#1
السلام عليكم.لو سمحتم اخواني ارجو المساعدة منكم .بالفورم1 اقوم بالحفظ بجدول الفاتورة بعدما اختار من الكومبوبكس الصنف.اريد لما اعمل حفظ الفاتورة العدد يلي حفظتو ينقص من جدول الاصناف بارك الله فيكم


الملفات المرفقة
.rar   إنقاص الكمية من جدول الاصناف.rar (الحجم : 113.49 ك ب / التحميلات : 34)
الرد
تم الشكر بواسطة:
#2
(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
يا رحمن الدنيا والآخرة ورحيمهما
الرد
تم الشكر بواسطة: العيدروس , العيدروس
#3
بارك الله فيك اخي حريف برمجة على الكود الرائع شغال مية بالمية الهي يجازيك كل الخير و يحميك و يزيدك من علمه.بقيت لي شغلانة اخيرة اخي واعذرني لو اثقلت عليك.بشاشة ادخال الاصناف كيف يمكن لو كان الصنف موجود بالفعل مسبقا في جدول الاصناف يبقى الصنف يلي رايح اضيفو ينضاف على الكمية السابقة الموجودة بالجدول يعني موجود بجدول الاصناف مثلا سكر 145 .لما اضييف سكر ثاني مثلا 22 ينضاف على اللي قبلو و يصبح كلو 167 يعني اريد لا يتكرر الصنف مرتين و ربنا يكرمك ان شاء الله


الملفات المرفقة
.rar   إضافة الكمية بجدول الاصناف.rar (الحجم : 114.47 ك ب / التحميلات : 33)
الرد
تم الشكر بواسطة:
#4
الله يتقبل منك الدعوات الطيبة ولك بالمثل واكثر حتى ترضى ...

بخصوص طلبك ابشر ،،
يا رحمن الدنيا والآخرة ورحيمهما
الرد
تم الشكر بواسطة: العيدروس
#5
الهي  يبشرك بالخير و الستر ان شاء الله
الرد
تم الشكر بواسطة:
#6
(01-12-18, 01:39 AM)العيدروس كتب : الهي  يبشرك بالخير و الستر ان شاء الله

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

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

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

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


الملفات المرفقة
.rar   إنقاص الكمية من جدول الاصناف.rar (الحجم : 280.02 ك ب / التحميلات : 76)
يا رحمن الدنيا والآخرة ورحيمهما
الرد
تم الشكر بواسطة: العيدروس , عبد العزيز البسكري
#7
شكر اخي حريف برمجة و بارك الله فيك بجد مش عارف كيف اشكرك ربنا يعطيك ما تتمناه هذا المطلوب الف شكر
الرد
تم الشكر بواسطة:
#8
الحمد والشكر لله سبحانه وتعالى ،،

بالتوفيق للجميع ،،
يا رحمن الدنيا والآخرة ورحيمهما
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] طلب عمل جدول حصص مدرسي سيد درويش 2 198 10-11-20, 01:27 AM
آخر رد: سيد درويش
  [VB.NET] جلب جدول مباريات بالكامل ميدو الفنان 1 160 31-10-20, 10:41 PM
آخر رد: ميدو الفنان
  [VB.NET] محتاج كود عرض اكثر من جدول فى داتا جرد فيو واحدة عن طريق اختيار الجدول من كومبوكس mohammed1994 1 430 01-09-20, 04:56 PM
آخر رد: اسامه الهرماوي
  طريقة استخراج كمية الاصناف المتألق9 4 572 17-08-20, 07:14 PM
آخر رد: المتألق9
  زر لاكثر من جدول فى قاعدة البيانات من نوع اكسيس احمد خطاب 0 260 07-08-20, 01:01 PM
آخر رد: احمد خطاب
  خصم الاصناف MUSTAFA ABKARINO 4 360 01-08-20, 04:28 PM
آخر رد: MUSTAFA ABKARINO
  هل يمكن تحميل اسم قاعدة البيانات في جدول DataGridView أو لست بوكس المهنا 2 572 26-07-20, 11:46 PM
آخر رد: المهنا
  إضافة بيانات جدول ثالث أثناء طباعة صفحة التقرير عبد العزيز البسكري 2 572 08-07-20, 03:24 PM
آخر رد: عبد العزيز البسكري
  برجاء تعديل على كود الكمية new_programer 4 538 26-06-20, 09:54 PM
آخر رد: ابراهيم ايبو
  [سؤال] فورم لعرض الاصناف الناقصة stiger 3 438 25-06-20, 08:01 PM
آخر رد: stiger

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


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