استخدام السعر الجديد بدل سعر محفوظ مسبقا

[النجاشي]

السلام عليكم 

احبتي الكرام

عندي جدول اسمه Hrakatsanf  يتم فيه حفظ اي حركه بيع او شراء او مثلا عرض سعر 

طيب انا مثلا عملت عرض سعر اجيت بعد فتره تغيرت الاسعار

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

فالمطلوب عند الادراج بالفاتوره ياخذ السعر من جدول الاصناف اسمهAlsnaf من حقل سعر البيع  ويكون استخدمنا السعر الجديد

ان شاء الله تكون وصلتكم الفكره احبتي

شاكرين لكم احبتي

السعر الجديد.rar

[ابو ياسين المشولي]

اتفضل اخي ابو زاهر

Dim i As Integer
Dim rst As DAO.Recordset
Set rst = Me.RecordsetClone
rst.MoveLast: rst.MoveFirst
RC = rst.RecordCount
rst.MoveFirst
Forms![frmSales].SetFocus
Forms![frmSales]![SubSales].SetFocus
For i = 1 To RC
  Me.Refresh
  If rst!Xsave = True Then
    DoCmd.GoToRecord , , acNewRec
    Forms![frmSales]![SubSales]![رقم_الصنف] = rst!Rajmsanf
    Forms![frmSales]![SubSales]![ID_Sanf] = rst!ID_Sanf
    Forms![frmSales]![SubSales]![Alkmiah] = rst!Alkmiah
    Forms![frmSales]![SubSales]![Price] = DLookup("[Price_Sales]", "Alsnaf", "[Rajmsanf]=  Forms![frmSales]![SubSales]![رقم_الصنف] ")
    Forms![frmSales]![SubSales]![mjmo] = rst!mjmo
'    Forms![frmSales]![SubSales]![safi] = rst!safi
 

   Forms![frmSales]![SubSales]![Adfah] = rst!Adfah
   Forms![frmSales]![SubSales]![Nwaha] = Me.n3
  End If
  rst.MoveNext
Next i
rst.Close: Set rst = Nothing

    

' Dim rst As DAO.Recordset
    Set rst = Forms!frmSales!SubSales.Form.RecordsetClone
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount

    T = 0 'Total
    D = 0 'Discount

    For i = 1 To RC

        rst.Edit
            rst!mjmo = rst!Alkmiah * rst!Price
            rst!safi = rst!Alkmiah * rst!Price * (1 - Forms!frmSales!Percentage_Discount)
            T = T + (rst!Alkmiah * rst!Price)
            D = D + (rst!Alkmiah * rst!Price * Forms!frmSales!Percentage_Discount)
        rst.Update

        rst.MoveNext
    Next i
    rst.Close: Set rst = Nothing

    DoCmd.RunCommand acCmdSaveRecord

    Forms!frmSales!n1 = T
    Forms!frmSales!Alhasm = D
    Forms!frmSales!n2 = T - D
Rajmsanf.SetFocus

    Call Form_frmSales.Percentage_Discount_AfterUpdate
DoCmd.Close acForm, "ARD"

 

تم تعديل فبراير 4, 2018 بواسطه ابو ياسين المشولي

[ابو ياسين المشولي]

اتفضل المثال

 

السعر الجديد.rar

تم تعديل فبراير 4, 2018 بواسطه ابو ياسين المشولي

[النجاشي]

32 دقائق مضت, ابو ياسين المشولي said:

اتفضل المثال

السعر الجديد.rar

الله يجزيك خير استاذي ابو ياسين هو المطلوب الف شكر اليك استاذي الكريم

والشكر موصول لكل من سعى جاهدا لمساعدتي

الف تحيه اليك يابو ياسين 

شكرا

[ابو ياسين المشولي]

بالتوفيق اخي ابو زاهر

[SOSO2010123456789]

الاخوه جزاكم الله خيرا علي الجهد المشكور

بس الملف عندي لايفتح تالف اذا ممكن مثال توضيحي لانو مثل هيك موضوع له قيمة فيجب ان نفهم ذلك لتعم الفائدة للجميع

 

تم تعديل فبراير 11, 2018 بواسطه SOSO2010123456789

[النجاشي]

6 ساعات مضت, SOSO2010123456789 said:

الاخوه جزاكم الله خيرا علي الجهد المشكور

بس الملف عندي لايفتح تالف اذا ممكن مثال توضيحي لانو مثل هيك موضوع له قيمة فيجب ان نفهم ذلك لتعم الفائدة للجميع

 

اخي الكريم هو ليس تعديل اسعار 

وانما مثلا عملت عرض سعر بيقيمه 50 ربال بعد فتره انا عملت تعديل اسعار وبدي استخدم احول عرض السعر الي فاتوره عند التحويل لفاتوره نقديه يعطينا السعر الجديد بجدول الاصناف

اما من ناحيه الملف تالف اتمنا من الاخوه ينزلوه من جديد  قد يكون عندك برنامج الضغط قديم حاول نتزل نسخه جديد او تتنظر حتا احد من الاخوه ينزله 

تحياتي اليك

[طاهر الوليدي]

نزل برنامج فك الضغط زابيا الى جانب ارار