نسخ الارباح الى جدول الحسابات مع عدم التكرار

[ahmedabuzena]

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

Database2.rar

[اكرم العريقي]

قم بعمل تشيك بحيث عند نقل القيمة يتم جعلها صحيح بحيث لا يتم نقلها مرة اخر

وستقوم بعمل الالحاق عن طريق استعلام الحاقي بالتوفيق

https://wayprograms.blogspot.com/

[Eng.Qassim]

8 ساعات مضت, ahmedabuzena said:

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

اشتغلت على حدود سؤالك فقط 

لكني لا اعلم ماهو المغزى ..وكيف يشتغل النموذج الفرعي الاخر 

 

Database2.rar

[ahmedabuzena]

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

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

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

بمعنى بالضغط على الزر يضيف ارباح كل الفواتير من فترة 1-1-2023 الى 30-6-2023 وعند الضغط على الزر اكثر من مرة لا يعيد اضافة هذة الارباح التي تم اضافتها

ثم اضافة الارباح من فترة 1-7-2023 الى 31-12-2023

ارجو ان اكون قدرت اشرح ما اريد وجزاكم الله خيرا

[Eng.Qassim]

اعتمدت على رقم الفاتورة بالنسخ وعدم التكرار ..

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

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

[ahmedabuzena]

اذا امكن تقسيم الفواتير بحيث يجمع ارباح الفواتير نصف سنوي بمعنى يجمع ارباح كل الفواتير من فترة 1-1-2021 اى 30-6-2021 

ثم من فترة 1-7-2021  الى 31-12-2021

ثم من فترة 1-1-2022 اى 30-6-2022 

ثم من فترة 1-7-2022  الى 31-12-2022

ثم من فترة 1-1-2023 اى 30-6-2023 وهكذا 

ليتسنى لي معرفة صافي الارباح بعد خصم النثريات في جدول الحسابات 

Database2.rar

[ahmedabuzena]

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

تم تعديل مايو 27, 2023 بواسطه ahmedabuzena

[ahmedabuzena]

ارجو ايجاد حل للأهمية وجزاكم الله خيرا

[دروب مبرمج]

تفضل 

سيتم نقل العناصر من الجدول الذي في اليسار الى الجدول الذي في اليمين

تفضل ضع هذه الشفرة في اخر محرر الأكواد

Sub AddNew()
Dim sSQL As String, Val1 As String, Val2 As String, Val3 As String, Val4 As String
Val1 = [Customer_Name]
Val2 = [Forms]![AHMED account $]![Sales_Invoice_main AHMED profits]![sales_Invoice_date]
Val3 = DCount("*", "customer_account_sub") + 1
Val4 = [Forms]![AHMED account $]![Sales_Invoice_main AHMED profits]![profit $]
Set db = CurrentDb
sSQL = "INSERT INTO [customer_account_sub] ([Customer_Name], [Date], [Invoice_No], [Invoice_Value]  ) " & _
        " VALUES('" & Val1 & "','" & Val2 & "','" & Val3 & "','" & Val4 & "')"
db.Execute sSQL
    [Forms]![AHMED account $]![customer_account_main Query shady]![customer_account_sub subform].Form.Requery
End Sub

و في الأزرار الخاص بالنسخ ضع الكود التالي

Call AddNew
[customer_account_sub subform].Requery

 

تماماً كما في الصورة اسفل

لم استطع ارفاق الملف الخاص بك بسبب حجمه الكبير 

لكن جرب الكون و سيفي بالغرض

 

[ahmedabuzena]

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

تفضل 

سيتم نقل العناصر من الجدول الذي في اليسار الى الجدول الذي في اليمين

تفضل ضع هذه الشفرة في اخر محرر الأكواد

Sub AddNew()
Dim sSQL As String, Val1 As String, Val2 As String, Val3 As String, Val4 As String
Val1 = [Customer_Name]
Val2 = [Forms]![AHMED account $]![Sales_Invoice_main AHMED profits]![sales_Invoice_date]
Val3 = DCount("*", "customer_account_sub") + 1
Val4 = [Forms]![AHMED account $]![Sales_Invoice_main AHMED profits]![profit $]
Set db = CurrentDb
sSQL = "INSERT INTO [customer_account_sub] ([Customer_Name], [Date], [Invoice_No], [Invoice_Value]  ) " & _
        " VALUES('" & Val1 & "','" & Val2 & "','" & Val3 & "','" & Val4 & "')"
db.Execute sSQL
    [Forms]![AHMED account $]![customer_account_main Query shady]![customer_account_sub subform].Form.Requery
End Sub

و في الأزرار الخاص بالنسخ ضع الكود التالي

Call AddNew
[customer_account_sub subform].Requery

 

تماماً كما في الصورة اسفل

لم استطع ارفاق الملف الخاص بك بسبب حجمه الكبير 

لكن جرب الكون و سيفي بالغرض

 

السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا على الاهتمام والرد إذا امكن لو تضغط الملف ببرنامج winrar وتبعته لاني ضعيف في الاكواد لا اعرف التعامل معها وجزاكم الله خيرا