الملف مرفق ..
جزاكم الله خير
مشكلة فى اخيار حساب معين
مغلق
.
Up
اخوانى ... اريد ولو بداية للطريقة --- فكرة شفهيه كلامية على الأقل
أخي عليك شرح ماتريد بالظبط في المشاركه وليس في اللمف المرفق
الملف المرفق يكون آخر مانفكر فيه اذا لم يفهم السؤال
===
عموما جاري تنزيل الملف
لم افهم المطلوب لأن هناك قاعدتين
اي القاعدتين يحوي سؤالك
حاول توضيح سؤالك هنا .
===
الأخ الكريم جزاكم الله خيراً هى استجابتك هذة !
أخى الملف الاول يعمل تمام وقد حل هذة المشكلة الاخ أحمد الحربى جزاه الله خيراً يبدوا انه غائب هذه الأيام ، ولكن القصد هو ان تعمل على الطلب الحالى فقط ،
=======================================
اريد تطبيق ذلك على القاعدة الأخرى بأسم " هذة هى الفواتير "
بحيث يحسب ضريبة الطلب الحالى فقط وليس اجمال كل الموجود بالقاعدة .
=======================================
وجزاكم الله خيراً
للرفع
الحمد لله الموضوع قريب الى النهاية
هذا الكود يحسب الضريبة ولكن على القاعدة كلها
Me.text5 = DSum("[UnitPrice]", "[Order Details]", "tax='0.05'")أما هذا يحسب الطلب الحالى فقط ولكن بكل الضرائب
Me.text5 = DSum("[UnitPrice]", "Order Details", "[OrderID] = " & [OrderID])المطلوب التوفيق بين الكودين وجعلهم كود واحد يقوم بتنفيذ الشرطين الاول , الثانى
الاول هو حساب الضريب
والثانى يكون الحساب على الطلب الحالى
حيث UnitPrice هو سعر المنتج
و Order Details هو جدول
و tax هو قيمة الضريبة
أخوانى الكرام
بارك الله فيكم جميعاً قضى الأمر بفضل الله تعالى
جزاكم الله خيراً
أخي الكريم .. ساجد لله
آسف للتأخير ولم يكن بإرداتي
عموماً الحمد لله أن المشكلة انتهت
ولكن لأني قمت بالعمل في القاعدة وأنجزت ما هو مطلوب ولأجل تلاقح الأفكار وتعدد الطرق سأشرح ما عملت وأرفق القاعدة بإذن الله تعالى :
أولاً : قمت بعمل انتقاء لسجلات الزبون المختار من قائمة مربع التحرير والسرد CustomerID لطلبياته بالكود التالي في حدث (بعد التحديث) لمربع التحرير والسرد CustomerID .. بعد أن قمت بإضافة حقل CustomerID حقل الربط في جدول Orders إلى الاستعلام Orders Qry الذي هو مصدر النموذج
Me.Filter = Me.txtCustomerID = Me.CustomerID.Column(0) Me.FilterOn = True
ثانياً : قمت بإنجاز العمليات الحسابية معتمداً على حقل OrderID لأن هذا الحقل لا يمكن تكرار قيمه في جدول Orders كالتالي :
Dim Rec As New ADODB.Recordset Dim strSQL As String Dim i As Integer Dim a5 As Double Dim aDiscuont5 As Double Dim a10 As Double Dim aDiscuont10 As Double Dim a25 As Double Dim aDiscuont25 As Double strSQL = " select * from [Order Details]" strSQL = strSQL & " where OrderID=" & Me.OrderID Rec.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly, adCmdText For i = 1 To Rec.RecordCount If Rec!Discount = "0.05" Then aDiscuont5 = aDiscuont5 + ((Rec!UnitPrice * Rec!Quantity) * 5) / 100 a5 = a5 + Rec!UnitPrice * Rec!Quantity End If If Rec!Discount = "0.1" Then aDiscuont10 = aDiscuont10 + ((Rec!UnitPrice * Rec!Quantity) * 10) / 100 a10 = a10 + Rec!UnitPrice * Rec!Quantity End If If Rec!Discount = "0.25" Then aDiscuont25 = aDiscuont25 + ((Rec!UnitPrice * Rec!Quantity) * 25) / 100 a25 = a25 + Rec!UnitPrice * Rec!Quantity End If Me.txt5 = a5 Me.tx5 = aDiscuont5 Me.txt10 = a10 Me.tx10 = aDiscuont10 Me.txt25 = a25 Me.tx25 = aDiscuont25 Rec.MoveNext Next i Rec.Close Set Rec = Nothing
الأخ الكريم أحمد حفظك الله تعالى
يكفنى اخى اهتمامك بالمساعدة ، الله اسال ان يكون ذلك فى ميزان حسناتك
"""
عموماً الحمد لله أكرمنى العليم بالوصول الى الكود ، وهذا بناءاً عن كود حضرتك الاول السابق ،
يعنى الخير ان شاء الله ذاهب إليك
اكرر شكرى وجوزاكم الله خيراً
أخيك / ساجد لله
هذا الموضوع مغلق.