تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مثال] فاتورة مبيعات
#21
(05-01-20, 02:17 PM)جميل كتب :
(05-01-20, 02:04 PM)EYADISMAIL كتب : بارك الله في عسى الله ان يضلك يوم لا ظل الا ظله

كتابتك كلمة (يضلك) بحرف (ض) أصبح المعنى (لا يهديك) وأنت لم تقصد ذلك بالتأكيد،
الصحيح أنك تكون بحرف(ظ) (يظلك) ليكون المعنى متفق مع بقية دعائك،

تم التصحيح ((بارك الله فيك))
Dim x As Integer
        For x = 1 To 100         
   ("الْحَمْدُ لِلَّهِ رَبِّ الْعَالَمِينَ")MsgBox
   Next x
الرد }}}
تم الشكر بواسطة: جميل , asemshahen5 , asemshahen5
#22
لكن ان شاء الله

سوف


يتم بكم

1-عمل فاتورة للبيع بوحدات جزئية من وحدات كلية
بمعني
الشراء ب كارتونة مثل كارتونة شيبسي بها 24 كيس
البيع بالكيس

وكيفية اظهار الرصيد


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

بدي مساعدة في موضوع :

كيفية تحديث الكمية المخزنة عند حفظ فاتورة جديدة باستخدام ACCESS

مع العلم اني استخدمت كود 

 For i As Integer = 0 To Guna2DataGridView1.RowCount - 2

                Dim a As Integer = Guna2DataGridView1.Rows(i).Cells(3).Value

 Try
                    Dim cmdupdateitems As New OleDbCommand("update tbl_itembaseinfo set itemqty = itemqty +" & -a & " where itemid = @iditemtogetqty ", conitems)
                    cmdupdateitems.Parameters.Add("@iditemtogetqty", OleDbType.Integer).Value = Guna2DataGridView1.Rows(i).Cells(0).Value
                    conitems.Open()
                Catch ex As Exception
                    MsgBox(ex.Message + "خطأ   1")
                Finally
con.close()
                End Try



 وعند التنفيذ تكون الرسالة "تجاوز لوجود عملية حسابية"



الرجاء المساعدة في اقرب وقت
الرد }}}
تم الشكر بواسطة:



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


يقوم بقرائة الموضوع: