02-02-15, 09:12 PM
اخواني السلام عليكم
اريد التحكم في كمية المخزون عن طريق البيع و الشراء
حيث ان لدي فورم فيه معلومات البضاعة و كميتها
وفورم اخر يندرج فيه عملية البيع
وفورم فيه عملية الشراء
اذ انه اثناء بيع بضاعة فان كميتها في المخزن تتناقص و اذا اشتريتها فانها تتزايد
لقد وضعت الكود النالي فقد نجح اثناء عملية الشراء لكن لم ينجح اثناء عملية البيع
Adodc1.Recordset.Update
adodc1.rercordset.find"[Nom-P]='" & text1.text & "'"a
Form2.Adodc1.Recordset.Update
Form2.Adodc1.Recordset!Qt_S = Form2.Adodc1.Recordset!Qt_S + Val(Text3.Text)a
وهذا الكود لعملية البيع
Form2.Adodc1.Recordset.Find "[Nom-P]='" & Text1.Text & "'"a
Adodc1.Recordset.Update
Form2.Adodc1.Recordset!Qt_S = Form2.Adodc1.Recordset!Qt_S - Val(Form4.Text3.Text)a
Form2.Adodc1.Recordset.Update
لقد وضعت حرف a في اخر كل كود حتى اسهل عليكم عملية القراءة
شكرا
اريد التحكم في كمية المخزون عن طريق البيع و الشراء
حيث ان لدي فورم فيه معلومات البضاعة و كميتها
وفورم اخر يندرج فيه عملية البيع
وفورم فيه عملية الشراء
اذ انه اثناء بيع بضاعة فان كميتها في المخزن تتناقص و اذا اشتريتها فانها تتزايد
لقد وضعت الكود النالي فقد نجح اثناء عملية الشراء لكن لم ينجح اثناء عملية البيع
Adodc1.Recordset.Update
adodc1.rercordset.find"[Nom-P]='" & text1.text & "'"a
Form2.Adodc1.Recordset.Update
Form2.Adodc1.Recordset!Qt_S = Form2.Adodc1.Recordset!Qt_S + Val(Text3.Text)a
وهذا الكود لعملية البيع
Form2.Adodc1.Recordset.Find "[Nom-P]='" & Text1.Text & "'"a
Adodc1.Recordset.Update
Form2.Adodc1.Recordset!Qt_S = Form2.Adodc1.Recordset!Qt_S - Val(Form4.Text3.Text)a
Form2.Adodc1.Recordset.Update
لقد وضعت حرف a في اخر كل كود حتى اسهل عليكم عملية القراءة
شكرا