عندي برنامج أريد معرفة كيفية جعل البرنامج يقبل صنف جديد
وعند وجود الصنف مسبقاً فإن البرنامج يقوم بتعديل كميته في المخزن فقط
ولا يقوم بإضافة أي بيان أخر
حقول قاعدة البيانات
كود الصنف - اسم الصنف - الكمية - سعر الشراء - سعر البيع - التاريخ
ملحوظة : حقل التاريخ بالنسبة لأول مرة فقط يضاف فيها الصنف
الأخ الفاضل الأفضل ان ترفق مثال ليتم التعديل عليه
واليك هذا الكود لعله يفى بالغرض
rs.open "select * from ItemsTabel where itemname='" & itemname & "'",db
if rs.recordcount=0 then
rs.addnew
rs.feilds("itemname")=itemname
rs.feilds("qty")=qty
rs.feilds("salesprice")=salesprice
rs.feilds("costprice")=costprice
rs.feilds("operDate")=OperDate
else
rs.feilds("qty")=rs.feilds("qty")+qty
end if
rs.updateتم تعديل هذه المشاركة بواسطة عبدالفتاح حسن في 4 يناير 2009 في 08:43
كن كالنخيل عن الأحقاد مرتفعا .. يرمى بصخر فيرمى أطيب الثمر
بســم الله الـرحمــن الرحيــم
اخى العزيز
اليك هذا الكود
اذا كان البرنامج الذى تعمل بة للمخازن
فأنا اعددت لك مثلا بسيط ارجو ان يكون فية الفائدة اسف لانى اعددتة على عجلة فقمت بأضافة الكود الذى بقى بالعرض فقط فيجب عليك وضع الاكواد التى تتأكد من ان التكيستات غير فارغة . اعتذر جدا جدا جدا عن انى قمت بتغيير اسماء الحقول فى الداتا بيز لكنى تهودت على التعمال معهم بأسماء انجليزية لان الاسماء العربى تحدث مشاكل كثيرة فى البرامج هى تعمل ولا مشكلة ولكن انا افضل الانجليزى فى اسماء الخقوم دائما اكرر اسفى الاكواد فى قسم التصاريخ العامة Dim db As Database Dim rs As Recordset
فى الفورم لود
Private Sub Form_Load()
Set db = OpenDatabase("db1.mdb")
Set rs = db.OpenRecordset("Qty", 2)
End Subكود التسجيل
rs.FindFirst "ItemId = '" & Text1.Text & "'" If rs.NoMatch = True Then rs.AddNew rs!ItemId = Text1 rs!ItemName = Text2 rs!cont = Text3 rs!ByePrice = Text4 rs!SalePrice = Text5 rs!Sdate = DTPicker1.Value rs.Update Else rs.Edit rs!ItemName = Text2 rs!ByePrice = Text4 rs!SalePrice = Text5 rs!cont = Val(rs!cont) + Val(Text3) rs.Update End If Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = ""
يمكنك تحميل المثال من المرفقات
ارجو ان اكون وفقت فى ذلك
الشلام عليكم
اخوك Amr Soft
اذا اردت التحكم فى البيانات التى يقوم البرنامج بتعديلها
يمكنك التعديل فى هذا الكود
rs.Edit
rs!ItemName = Text2
rs!ByePrice = Text4
rs!SalePrice = Text5
rs!cont = Val(rs!cont) + Val(Text3)
rs.Update
السلام ختام
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…