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

[ahmedabuzena]

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

Database transfer 4.accdb

[ahmedabuzena]

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

[Eng.Qassim]

وعليكم السلام

في جدول customer_account_sub

اعمل رقم الفاتورة Invoice_No مفتاح اساسي

قم بعمل زر لالحاق جميع البيانات الى الجدول customer account sub dollar من الجدول customer_account_sub ثم ضع الكود التالي

DoCmd.SetWarnings False
Dim strSQL As String
strSQL = "INSERT INTO customer_account_sub ( Customer_Name, [Date], Invoice_No, Invoice_Value ) " & vbCrLf & _
"SELECT [customer account sub dollar].[اسم العميل], [customer account sub dollar].التاريخ, [customer account sub dollar].[رقم الفاتورة], [customer account sub dollar].[قيمة الفاتورة] " & vbCrLf & _
"FROM [customer account sub dollar] ;"
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True

 

[ahmedabuzena]

4 ساعات مضت, Eng.Qassim said:

وعليكم السلام

في جدول customer_account_sub

 

اعمل رقم الفاتورة Invoice_No مفتاح اساسي

 

قم بعمل زر لالحاق جميع البيانات الى الجدول customer account sub dollar من الجدول customer_account_sub ثم ضع الكود التالي

DoCmd.SetWarnings False
Dim strSQL As String
strSQL = "INSERT INTO customer_account_sub ( Customer_Name, [Date], Invoice_No, Invoice_Value ) " & vbCrLf & _
"SELECT [customer account sub dollar].[اسم العميل], [customer account sub dollar].التاريخ, [customer account sub dollar].[رقم الفاتورة], [customer account sub dollar].[قيمة الفاتورة] " & vbCrLf & _
"FROM [customer account sub dollar] ;"
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True

 

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

Database transfer 4.accdb

[Eng.Qassim]

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

لاحظ السبب

Database transfer 4(1).rar

[ahmedabuzena]

[Eng.Qassim]

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

توضيح المطلب واسماء الجداول كما موجودة في البرنامج يسهل كثيرا من الحل

ربما احد الاخوة يفهم المطلب اكثر مني ويبدي المساعدة

[ahmedabuzena]

في 13‏/5‏/2022 at 17:42, Eng.Qassim said:

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

توضيح المطلب واسماء الجداول كما موجودة في البرنامج يسهل كثيرا من الحل

ربما احد الاخوة يفهم المطلب اكثر مني ويبدي المساعدة

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

ما اريده هو 

1- انشاء زر يقوم بنسخ اي فاتورة موجودة في فورم (استعلام باجمالى فواتير الجملة بالدولار) في جدول الحسابات (customer_account_main) ينسخ اي اسم عميل غير مسجل  لانه مش حاينفع ننسخ حسابات عميل اسمه غير موجود في جدول الحسابات الرئيسي

ثم ينسخ حسابات العميل في جدول الحسابات الفرعي (customer account sub dollar) يقوم بنسخ اسم العميل مرة اخري في الجدول الفرعي ورقم الفاتورة واجمالي الفاتورة والتاريخ كما هو موضح بالصور وجزاكم الله خيرا

[ahmedabuzena]

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

[ِAbo_El_Ela]

اخي ahmedabuzena 

حاول توضح طلبك اكثر و ان كان طلبك طلب كبير 

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

 

[ِAbo_El_Ela]

هل انت عايز ترحل اسماء العملاء اللي ليهم فواتير 

الي جدول customer_account_main

هل انا فهمت مظبوط

الي هذا الجدول

[ِAbo_El_Ela]

بمعني انك عايز تعمل تست علي اسماء العملاء و تشوف مين من العملاء اسمة مش موجود في جدول customer_account_main 

ذي المثال اللي في الصورة 

[ahmedabuzena]

4 ساعات مضت, ABOLO2 said:

بمعني انك عايز تعمل تست علي اسماء العملاء و تشوف مين من العملاء اسمة مش موجود في جدول customer_account_main 

ذي المثال اللي في الصورة 

نعم اخي الكريم الكود يكون مقسم الى جزئين 

الاول يعمل تست على اسماء العملاء فى customer account main والغير موجود يتم نسخه

الثاني نسخ التاريخ ورقم الفاتورة واسم العميل والمبلغ فى customer account sub dollar 

[ِAbo_El_Ela]

انا مبتدئ و علي قدي 

جرب اول مطلب 

Database transfer 4.accdb

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

الي customer account sub dollar 

[ahmedabuzena]

5 ساعات مضت, ABOLO2 said:

انا مبتدئ و علي قدي 

جرب اول مطلب 

Database transfer 4.accdb 2.92 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 4 downloads

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

الي customer account sub dollar 

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

طلبي هو عمل كود علي زر في الفورم يقوم :

ا- اضافة اي عميل غير موجود من جدول  customers الي جدول customers_account_main

2-اضافة اي فاتورة غير موجودة من استعلام (استعلام بجميع فواتير الجملة بالدولار) الي استعلام (customer account sub dollar Query) ولو ينفع يكون هذة الاضافة تكون مربوطة بين تاريخين

Database transfer 6 1.accdb

[ِAbo_El_Ela]

و 

[ِAbo_El_Ela]

حضرتك انا عملت استعلام من معالج الاستعلامات (معالج استعلام البحث عن غير المتطابقات ) وتم تحديد الجدول الكبير الذي يشمل جميع الحقول 

ثم الجدول الصغير الذي لايشمل جميع الحقول و اضافة علامة لا يساوي 

بعد كدة عملت استعلام الحاق 

 

16 دقائق مضت, ABOLO2 said:

و 

في الجزء الثاني عملت نفس اللي اتعمل في الجزء الاول 

بس لما جيت اعمل استعلام الحاق مرضيش يعمل الحاق 

 

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

 

Database transfer 6 1.rar

[ahmedabuzena]

23 ساعات مضت, ABOLO2 said:

انا مبتدئ و علي قدي 

جرب اول مطلب 

Database transfer 4.accdb 2.92 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 6 downloads

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

الي customer account sub dollar 

 

15 ساعات مضت, ABOLO2 said:

حضرتك انا عملت استعلام من معالج الاستعلامات (معالج استعلام البحث عن غير المتطابقات ) وتم تحديد الجدول الكبير الذي يشمل جميع الحقول 

ثم الجدول الصغير الذي لايشمل جميع الحقول و اضافة علامة لا يساوي 

بعد كدة عملت استعلام الحاق 

 

في الجزء الثاني عملت نفس اللي اتعمل في الجزء الاول 

بس لما جيت اعمل استعلام الحاق مرضيش يعمل الحاق 

 

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

 

Database transfer 6 1.rar 341.59 kB · 0 downloads

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

[ِAbo_El_Ela]

العفو 

و يارب توصل ان شاء الله لطلبك

[ِAbo_El_Ela]

Up

[Eng.Qassim]

السلامك عليكم..

ممكن سؤال؟...ماهي الفائدة من جدول customer_account_main الي يتم الحاق اسماء العملاء اليه طالما ان جدول العملاء موجود ومرتبط بنفس الجداول

على كل حال..اذا اردت الحاق اسماء العملاء الغير موجودين بالجدول customer_account_main استخدم الكود التالي

Private Sub Command33_Click()
Dim strSQL As String
DoCmd.SetWarnings False
strSQL = "INSERT INTO customer_account_main ( Customer_Name ) " & vbCrLf & _
"SELECT Customer.Customer_Name " & vbCrLf & _
"FROM Customer LEFT JOIN customer_account_main ON Customer.Customer_Name = customer_account_main.customer_Name " & vbCrLf & _
"WHERE (((customer_account_main.customer_Name) Is Null));"

DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End Sub

 

[ahmedabuzena]

56 دقائق مضت, Eng.Qassim said:

السلامك عليكم..

ممكن سؤال؟...ماهي الفائدة من جدول customer_account_main الي يتم الحاق اسماء العملاء اليه طالما ان جدول العملاء موجود ومرتبط بنفس الجداول

على كل حال..اذا اردت الحاق اسماء العملاء الغير موجودين بالجدول customer_account_main استخدم الكود التالي

Private Sub Command33_Click()
Dim strSQL As String
DoCmd.SetWarnings False
strSQL = "INSERT INTO customer_account_main ( Customer_Name ) " & vbCrLf & _
"SELECT Customer.Customer_Name " & vbCrLf & _
"FROM Customer LEFT JOIN customer_account_main ON Customer.Customer_Name = customer_account_main.customer_Name " & vbCrLf & _
"WHERE (((customer_account_main.customer_Name) Is Null));"

DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End Sub

 

اخي الكريم بارك الله فيك وجزاكم الله خيرا الجدولين مربوطين بجداول كثيرة في البرنامج

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

 2-اضافة اي فاتورة غير موجودة من استعلام (استعلام باجمالى فواتير الجملة بالدولار) الي استعلام (customer account sub dollar Query) ولو ينفع يكون هذة الاضافة تكون مربوطة بين تاريخين

 

Database transfer 7 1 - Copy.accdb

[Eng.Qassim]

1-    مصدر بيانات الاستعلام (استعلام باجمالي فواتير الجملة بالدولار ) هو الجدول Sales_Invoice_main

ولاحظ ان نوع البيانات  ل Sales_Invoice_No = Number

بينما الاستعلام customer account sub dollar Query الذي مصدر بياناته الجدول customer account sub dollar والذي نوع البيانات لرقم الفاتورة = short text

يجب هنا توحيد نوع البيانات ..

2-    اذا اردت الحاق نتائج الاستعلام (استعلام باجمالي فواتير الجملة بالدولار ) فيجب الحاقها الى الجدول customer account sub dollar وليس الى الاستعلام الناتج عنه

فأذا فتحت استعلام الحاق تفتح لك نافذة (الحاق الى جدول ) وليس الى استعلام ...

بالتوفيق يارب

[ahmedabuzena]

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

1-    مصدر بيانات الاستعلام (استعلام باجمالي فواتير الجملة بالدولار ) هو الجدول Sales_Invoice_main

 

ولاحظ ان نوع البيانات  ل Sales_Invoice_No = Number

 

بينما الاستعلام customer account sub dollar Query الذي مصدر بياناته الجدول customer account sub dollar والذي نوع البيانات لرقم الفاتورة = short text

 

يجب هنا توحيد نوع البيانات ..

 

2-    اذا اردت الحاق نتائج الاستعلام (استعلام باجمالي فواتير الجملة بالدولار ) فيجب الحاقها الى الجدول customer account sub dollar وليس الى الاستعلام الناتج عنه

 

فأذا فتحت استعلام الحاق تفتح لك نافذة (الحاق الى جدول ) وليس الى استعلام ...

 

بالتوفيق يارب

 

ممكن تطبقها على المثال كيف يتم عمل كود يأخذ نتائج الاستعلام ويضعها في جدول  ويكون النتائج التي اريدها بين تاريخين وطبعا عدم التكرار يتم نسخ فقط ما هو ليس موجود مثل ما صنعت في العملاء وجزاكم الله خيرا

[ahmedabuzena]

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

ممكن تطبقها على المثال كيف يتم عمل كود يأخذ نتائج الاستعلام ويضعها في جدول  ويكون النتائج التي اريدها بين تاريخين وطبعا عدم التكرار يتم نسخ فقط ما هو ليس موجود مثل ما صنعت في العملاء وجزاكم الله خيرا

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