ahmedabuzena

السلام عليكم ورحمة الله وبركاته برجاء للاهميه عايز اجمع الاجماليات من اكثر من استعلام في فورم مستقل حتى اقدر ان اقوم بعمل عمليات حسابيه على الاجماليات وجزاكم الله خيرا

testcalc.accdb

18 ساعات مضت, jjafferr said:

السلام عليكم 🙂

 

اي والله اشتقنا لكم 🙂

 

يجب اخذ اصل البيانات، استعمل هذه المعادلة:

=Sum(((Nz([Quantity_of_cartons],0)*Nz([pieces in each caton],0))+Nz([JUST PIECES],0))*Nz([اسعار الجملة بالدولار],0)*[VAT_SALE]/100)

او
=Sum(((Nz([Quantity_of_cartons];0)*Nz([pieces in each caton];0))+Nz([JUST PIECES];0))*Nz([اسعار الجملة بالدولار];0)*[VAT_SALE]/100)

 

جعقر

جزاكم الله خيرا يعمل تمام

تسلم هو ممكن يعمل على التقارير 

اخي جعفر رجاء ممكن تشرح لى كود dsum علشان عندي اكثر من نموزج عايز اطبق عليه الكود دة وهل ينفع يشتغل على التقارير

45 دقائق مضت, jjafferr said:

تفضل يا سيدي 🙂

 

.

vat_amount $:
=DSum("[SumOfSumOfVAT_AMOUNT_$]","[qry_sales_sub_vat_total]","[Sales_Invoice_No]= " & 2)


total vat:
=DSum("[SumOfSumOftotal_retail_sell_vat]","[qry_sales_sub_vat_total]","[Sales_Invoice_No]= " & 2)

 

رجاء الملاحظة ، بدل الرقم 2 في نهاية الكود ، اكتب اسم حقل "رقم فاتورة المبيعات".

 

جعفر

1561.qry to form.accdb.zip 147.9 kB · 1 download

اخي جعفر ربنا يبارك لك الف شكر 

5 ساعات مضت, شايب said:

اخونا شايب يعتقد

ان VAT_AMOUNT_$ مصدره عمليه حسابية وليس من ضمن حقول مصدر النموذج وبالتالي لن تعمل دالة sum

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

او تستخدم دالة dsum مع تحميل الدالة كل العملية الحسابية بمعيار الفاتوة

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

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

واعتذر عن وضع مرفق

اخيرا اليوم الموقع منور بزيادة

السلام عليكم جزاكم الله على الرد جارى التجربه لو امكن ممكن تحل المشكله ب dsum لاني معرفتش اتعامل معاها 

وحقل vat_amount_$ هو من البداية كان حقل بس علشان اعمل معادلة اتحول ولم يعد حقل 

وفي مشاركة اخري عملت استعلام وحاولت استدعي القيمه فى الفورم لكن لم يعمل بس لسه محدش رد عليا فى هذة المشكلة وجزاكم الله جميعا انت وكل اللي حاول يساعد واخونا جعفر إن شاء الله اجرب مرة اخرى رغم اني حاولت اعمل المعادله من المصدر ولم تنفع

السلام عليكم ارجو شرح هذة المشكله وحلها ليه مش عايز يديني المجموع في التكست بوكس

value in text box.accdb

السلام عليكم ورحمة الله وبركاته رجاءا عايز انسخ قيمه من استعلام الى تكست بوكس في الفورم بيديني خطأ ومش عارف السبب

جزاكم الله خيرا

qry to form.accdb

منذ ساعه, Eng.Qassim said:

اخي العزيز ..rmb_china عبارة عن تعبير ..اي معادلة ..اذا لم تكن كذا فكن كذا 

ثم بعد تحديث الصنف تعمل هذا السطر Me.[rmb china] = Me.[rmb]

لان rmb_china اخذت قيمتها من المعادلة الاولى ...والكود التالي يعمل تعارض غير منطقي ..

ثم ماذا تمثل rmb؟

اخي الكريم جزاكم الله خيرا على الرد والاهتمام rmb يعتبر حقل لسعر السلعة يتم تسجيل السعر تلقائيا عند حدث update للصنف حتى لا تضطر كتابة السعر يدويا في كل فاتورة المشكلة اني لو استلمت بضاعة bonus فيتم تغير القيمة الى صفر لانها مجانيه فانا اضطر بعد اختيار الصنف ويتم كتابة السعر تلقائيا اقوم بالتعديل يدويا واغير السعر الى صفر  يعني مثلا

 استلمت صنف ١٠٠ قطعة وعليهم bonus ١٠ قطع

فيتم تسجيل  الصنف وكتابة العدد ١٠٠ ويتم تسجيل السعر تلقائيا

ثم تسجيل الصنف مرة اخرى وكتابة العدد ١٠ وبالتالي بسبب الكود يتم تسجيل السعر تلقائي بس لو اخترت bonus عايز السعر يتغير الى صفر حتى لا يتم تسجيله فى اجمالي الفاتورة 

لو ممكن كود Me.[rmb china] = Me.[rmb يتغير بكود اخر  طبعا معرفش ازاي الكود يكون بس فكرته انه مع حدث update يسجل السعر لكن لو في bonus لا يتم تسجيل السعر ويتم تسجيل صفر

معرفش لو كان ينفع يتعمل كود بالفكرة دي ولا لا 

والف شكر على الاهتمام

21 ساعات مضت, kkhalifa1960 said:

تفضل أخي .

bonus-1-1.accdb 2.25 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 1 download

اخى الكريم بارك الله فيك هو اشتغل بس لما جيت اضيف اى صنف اخر اعطاني هذة المشكلة

في 18‏/6‏/2023 at 09:46, kkhalifa1960 said:

تفضل أخي طلبك بــ  Query1  (AA) And (BB) .

bonus-1.accdb 2.25 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 2 downloads

السلام عليكم اخي الكريم شكرا لاهتمامك والرد على مسألتي ممكن اكون معرفتش اشرح ما اريد بصورة جيدة انا عايز في نفس الفورم لو صنف اخترت انه يكون bonus or promotion يتم تغير قيمة الصنف الى صفر وده علشان ينزل من جرد المخزن ولكن من غير فلوس مرفق الملف مرة اخرى محدد فيه الفورم ومرفق صور توضيحية جزاكم الله خيرا

bonus-2.accdb

مش ممكن تتحل فى criteria بكود iif 

بس المشكله مش عارف الكود اكتبه ازاي 

iif status_med = “bonus” then cost_$=0

iif status_med = “promotion” then cost_$=0

اكتب الجمله دي ازاي علشان تشتغل صح

1 ساعه مضت, دروب مبرمج said:

اخي الكريم

انسى تماما بأنه يوجد لديك استعلام

فقاعدة البيانات المرفقة بها جدول واحد فقط 

كيف تريد نسخ و تكرار البيانات في نفس الجدول ؟ هذا غير منطقي

وضح طلبك اكثر بإختصار شديد

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

السلام عليكم ياريت حد يرد عليا إن كان ينفع اعمل حاجه زي كدة ولا لأ جزاكم الله خيرا

49 دقائق مضت, دروب مبرمج said:

استبدل الأسطر التالية 

تحويل المتعيير من رقم صحيح الى مزدوج

' القيمة الافتراضية للشراء
Public Function sellVal(Val As Integer) As Double
[Forms]![customer account]![حساب العملاء]![customer_account_sub]![rate2].DefaultValue = Val
End Function

'القيمة الإفتراضية للبيع
Public Function buyVal(Val As Integer) As Double
[Forms]![customer account]![حساب العملاء]![customer_account_sub]![rate].DefaultValue = Val
End Function

 

لم يعمل بس لما غيرت (val as integer) الى double اشتغل الف شكر جزاكم الله خيرا

Public Function buyVal(Val As double) As Double

23 ساعات مضت, دروب مبرمج said:

تفضل بهذه الطريقة

استبدل الكود في الموديل بالتالي

' القيمة الافتراضية للشراء
Public Function sellVal(Val As Integer) As Integer
[Forms]![customer account]![حساب العملاء]![customer_account_sub]![rate2].DefaultValue = Val
End Function

'القيمة الإفتراضية للبيع
Public Function buyVal(Val As Integer) As Integer
[Forms]![customer account]![حساب العملاء]![customer_account_sub]![rate].DefaultValue = Val
End Function

في حدث ضع التالي بعد التحديث لمربعة النص ( Text59 / text61 )

' القيمة الافتراضية لسعر البيع
=sellVal([Forms]![customer account]![حساب العملاء]![Text59])

' القيمة الافتراضية لسعر الشراء
=buyVal([Forms]![customer account]![حساب العملاء]![Text61])

 

test rate (4).zip 131.93 kB · 7 downloads

السلام عليكم اخي الكريم في مشكله بسيطه الرقم لو فيه علامة عشريه لا يسجل العلامه العشرية بمعنى لو كتبت 19.35 يسجلها في الجدول الفرعي 19 فقط بدون العلامه العشريه

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

عايز كود او اى طريقة اخرى يجعل القيمة تساوي صفر لو اخترت حالة الصنف free or promotion

bonus.accdb

السلام عليكم برجاء اريد تغير القيمة الى صفر على حسب اختيار الحاله وجزاكم الله خيرا

bonus.accdb

27 دقائق مضت, دروب مبرمج said:

تفضل بهذه الطريقة

استبدل الكود في الموديل بالتالي

' القيمة الافتراضية للشراء
Public Function sellVal(Val As Integer) As Integer
[Forms]![customer account]![حساب العملاء]![customer_account_sub]![rate2].DefaultValue = Val
End Function

'القيمة الإفتراضية للبيع
Public Function buyVal(Val As Integer) As Integer
[Forms]![customer account]![حساب العملاء]![customer_account_sub]![rate].DefaultValue = Val
End Function

في حدث ضع التالي بعد التحديث لمربعة النص ( Text59 / text61 )

' القيمة الافتراضية لسعر البيع
=sellVal([Forms]![customer account]![حساب العملاء]![Text59])

' القيمة الافتراضية لسعر الشراء
=buyVal([Forms]![customer account]![حساب العملاء]![Text61])

 

test rate (4).zip 131.93 kB · 2 downloads

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

ارجو المساعدة ازاي اكتب الكود لما يكون اكثر من ٣ فورم 

16 ساعات مضت, دروب مبرمج said:

تفضل هذا التعديل

ستكون القيمة الافتراضية في النموذج الفرعي هي نفسها المدخلة في النموذج الرئيسي

 

test rate (2).zip 76.38 kB · 2 downloads

السلام عليكم اخي الكريم جزاكم الله خيرا اشتغل تمام بس انا اتعقدت من الاكواد مش عارف اتعامل معها الفورم موجود بداخل فورم اخر من اللي فهمته اني اضيف علامة التعجب واضيف اسم الفورم بين قوسين زي اللي شوفته في المثال بس اعطاني هذا الخطأ اجو التعديل وشرح ليه لم يعمل معي

ا  والف شكر على اهتمامك وحل المشكله

test rate (4).rar

يا ريت حد يعرفني ان كان المطلوب يجوز ولا مينفعش يتعمل في الاكسيس 

1 ساعه مضت, دروب مبرمج said:

جملة SELECT INTO

تستخدم عادة في انشاء نسخة احتياطية من الجداول

و تأتي على عدة اوجه و استخدامات قد تختلف من SQL الى قاعدة بيانات اكسس او اوريكال

مثال على ذلك في الأكسس
 

لعمل نسخة احتياطية من نفس الجدول في نفس قاعدة البيانات

SELECT * INTO Persons_backup FROM Persons

لنسخة الجدول لقاعدة بيانات اخرى

SELECT Persons.* INTO Persons IN '........\Backup.mdb'
FROM Persons

و لنسخ الجدول مع العلاقات

SELECT Employees.Name,Orders.Product
INTO Empl_Ord_backup
FROM Employees
INNER JOIN Orders
ON Employees.Employee_ID=Orders.Employee_ID

المسميات داخل جمل الاستعلام ما هي إلا للمثال فقط

السلام عليكم اخي الكريم ممكن تعدل البرنامج انا معنديش خلفية في الاكواد يا دوب بأخذ الكود واطبقه على مثال مشابه واغير فقط الاسماء اكثر من كدة معرفش اتعامل مع الاكواد

في 30‏/5‏/2023 at 01:13, ابوخليل said:

بالفعل نحن نستخدم استعلام الحاق .. ونستدعيه بالدالة  RunSQL

DoCmd.RunSQL "INSERT INTO customer_account_sub ( Date1, Invoice_No, Invoice_Value ) " & vbCrLf & _
"SELECT Sales_Invoice_main_AHMED_profits.sales_Invoice_date, Sales_Invoice_main_AHMED_profits.Sales_Invoice_No, Sales_Invoice_main_AHMED_profits.net_sell_after_vat " & vbCrLf & _
"FROM Sales_Invoice_main_AHMED_profits " & vbCrLf & _
"WHERE (((Sales_Invoice_main_AHMED_profits.sales_Invoice_date) Between [Forms]![AHMED_account_$]![customer_account_main_Query_AHMED_dollar]![Date3_from] And [Forms]![AHMED_account_$]![customer_account_main_Query_AHMED_dollar]![Date3_To]))"

 فلو قمنا بنسخ هذا ولصقه في استعلام فارغ .. وازلنا عنه بعض العبارات الزائدة مثل   " & vbCrLf & _  وكذلك ازلنا الامر DoCmd.RunSQL في اول الجملة وايضا علامات التنصيص لحصلنا على استعلام الحاق الذي نحن نعرفه .

السلام عليكم ورحمة الله وبركاته اخي الكريم في مشكلة في البرنامج اضافة الفواتير مفيش منها مشاكل بس لما عملنا رقم الفاتورة والتاريخ مفتاح اساسي بقيت مش عارف اكتب اى مصاريف لازم اكتب رقم فاتورة وده لا يجوز لا خانة المصاريف ليس لها رقم فاتورة

7 ساعات مضت, الحلبي said:

يرجى توضيح هل تريد الاضافة من الرئيسى الى الفرعى في سجل واحد جديد 

ام تريد الاضافة فى جميع سجلات الفرعى

جزاك الله كل خير

السلام عليكم 

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

3 ساعات مضت, ابو جودي said:

جرب وضع الكود الاتى فى النموذج الفرعى 

Private Sub Form_Current()
  rate = IIf(IsNull([rate]), [Form_حساب العملاء الرئيسى].Text59, [rate])
End Sub

 

السلام عليكم اعطاني هذا الخطأ جزاكم الله خيرا

test rate.accdb