اذا تغيرت الاسعار’’ تتغير معلومات المبيعات السابقة

السلام عليكم ورحمة الله وبركاته

اخي الكريم

المشكلة دى قبلتنى قبل كده

والحل اللي انا عملته انه :

انا كان عندى جدول اسعار

وجدول لفاتورة البيع

وكنت عامل علاقه مابينهم

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

انا بقا عملت حقل زيادة في جدول البيع ؛ وسميته price 1 بحيث ان الحقل ده بيساوى حقل السعر الاصلي اللي بيكون موجود في الفاتورة ( اللي اساسا جاى من جدول الاسعار )

عن طريق وحده نمطية . انه ( عند الخروج من price يبقي price1=price )

كده انا استفدت اكتر من استفاده :

وهي امكانية تعديل السعر في جدول البيع دون التغير في جدول الا سعار

الاستفادة التانية انى ممكن ابيع الصنف بكذا سعر

علي حسب السوق وفي كل مرة حعرف انا بعت الصنف بكام

جرب الطريق دى وان شاء الله هي العلاج

وفعلا طريقه مفيدة من كذا ناحية

أخوك في الله

هشام

السلام عليكم ,,,

يعطيك العافية على الحل,,,, بس برضه انا لقيت حل ثاني,,

الحل هو انه انشاء استعلام بحيث يعرض لك السعر الموجود في الجدول,,, وتشغله عن طريق VBA, طبعا في خانه رقم القطعة ( رقم المنتج) بحيث انه يجد السعر بناءا على اختيارك للقطعة

Private Sub partNo_AfterUpdate()
On Error GoTo Err_partNo_AfterUpdate

    Dim strFilter As String
    
    ' Evaluate filter before it's passed to DLookup function.
    strFilter = "partNo = " & Me!PartNo
    
    ' Look up part's unit price and assign it to Price control.
    Me!Price = DLookup("price", "parts", strFilter)

Exit_partNo_AfterUpdate:
    Exit Sub

Err_partNo_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_partNo_AfterUpdate

End Sub

والحمد لله شغال تمام...

على فكرة ,,, ترى برنامج النورث ويند الموجود مع الاكسس مليان بالاشياء المهمه...

يعطيكم العافية......