السلام عليكم .اتشرف بجد بالانضمام لمجموعتكم الرائعة
و هاي اول مشاركة لي و اطلب منكم من لطفكم التعديل على هاذ المثال فقد وجدته هنا
لما اضيف مثلا اللحم الى الفاتورة و عدده 50
اود حين اذهب للاكسس اجد هاذي الكمية تنقص من الحقل يلي اضفته أنا باسم Qty في جدول Items
املي فيكم كبير اخواني
هاي ملف تفضلو
If Rs.State = 1 Then Rs.Close Rs.Open "SELECT Qty FROM Items WHERE ItmCode =" & .TextMatrix(S, 0), CN, adOpenKeyset, adLockPessimistic Rs![Qty] = Val(Rs![Qty]) - Val(.TextMatrix(S, 3)) Rs.Update
RSS.Update
Next
MsgBox "تم حفظ بيانات الفاتورة بنجاح ", vbInformation, "حفظ" ClearAllA Me lblTotal.Caption = "" Call Grd Else MsgBox "يوجد خطأ اثناء الحفظ --- الفاتورة مسجلة من قبل", vbCritical, "خطأ" End If End With
End Sub
تم اضافة التالي فقط في الكو دالسابق
PHP كود :
Dim Rs As New ADODB.Recordset
في بداية الكو د
والتالي في وسط الكود
PHP كود :
If Rs.State = 1 Then Rs.Close Rs.Open "SELECT Qty FROM Items WHERE ItmCode =" & .TextMatrix(S, 0), CN, adOpenKeyset, adLockPessimistic Rs![Qty] = Val(Rs![Qty]) - Val(.TextMatrix(S, 3)) Rs.Update
الله يكرمك استاذ sendbad100 بجد تستحق كل الشكر .هدا المطلوب بالضبط.فقط طمعي اخير بالمعروف يلي تكرمت به وهو .
جرب استاذ و انت عمال تكتب في الفاتورة و تضيف المواد مثلا انا غلطت واريد احذف فقط السطر يلي غلطت فيه.في هذا الملف لو ضغطت على حذف تنحذف كل الفاتورة بما فيها .كيف يرحم والديك مادامت الفاتورة لم اعمل لها حفظ لو اضغط على سطر الفليكس ينحذف فقط السطر يلي ضغطت عليه .اسف على كثرة طلباتي و بارك الله فيك
(22-10-17, 04:07 PM)العيدروس كتب : الله يكرمك استاذ sendbad100 بجد تستحق كل الشكر .هدا المطلوب بالضبط.فقط طمعي اخير بالمعروف يلي تكرمت به وهو .
جرب استاذ و انت عمال تكتب في الفاتورة و تضيف المواد مثلا انا غلطت واريد احذف فقط السطر يلي غلطت فيه.في هذا الملف لو ضغطت على حذف تنحذف كل الفاتورة بما فيها .كيف يرحم والديك مادامت الفاتورة لم اعمل لها حفظ لو اضغط على سطر الفليكس ينحذف فقط السطر يلي ضغطت عليه .اسف على كثرة طلباتي و بارك الله فيك
السلام عليكم .استاذ sendbad100 ميش عارف كيف اشكرك.كثر الف خيرك.فقط في عبارة block if without end if تظهر برسالة خطأ.رغم اضافة end if لكن الكود لم يمسح السطر من الفليكس.ارجو بعد اذنك النظر فيه بارك الله فيك
الله يبارك فيك اخي sendbad100 على المجهود الرائع لمساعدة الاعضاء الكرام
المشروع ده من ايام الموقع القديم لفيجوال بيسك رحم الله اخي ابو الليث وغفر له والى القائمين على هذا الموقع جزيل الشكر والعرفان
اشكر اخي الحبيب الغالي السندبااد نشتاق اليك كثرا وبارك الله فيك