المساعدة فى ترحيل مبالغ سند القبض والدفع الى جدول Treasury

[أكسس وبس]

اخوانى

لدي جدول Treasury  وهذا جدول الخزنة او الصندوق اريد عند عمل سند دفع او قبض من خلال النموذج Receipt_voucher وادخال المبلغ وعند الحفظ او القفل اريد ترحيل هذه المبالغ الى جدول الخزنة Treasury  اذا كان قبض يرحل الى حقل Ward واذا كان المبلغ مدفوع يرحل الى حقل  Sader  لعمل حساب الارباح والخسائر

 

End.rar

[ابوخليل]

تفضل

 

End3.rar

[أكسس وبس]

اشكرك يا استاذنا الفاضل وبارك الله فيك وعليك

اشكرك يا استاذنا الفاضل وبارك الله فيك وعليك

[أكسس وبس]

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

وحقل BDate عشان اضع تاريخ السند 

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

[أكسس وبس]

اخى الكريم

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

 

DoCmd.SetWarnings False

If Me.Type = "ÕÑÝ" Then

DoCmd.RunSQL "INSERT INTO Treasury (sader)SELECT [forms]![Receipt_voucher]![le] AS Expr1"

DoCmd.RunSQL "INSERT INTO Treasury (BDate)SELECT [forms]![Receipt_voucher]![Date] AS Expr2"

DoCmd.RunSQL "INSERT INTO Treasury (Bdata)SELECT [forms]![Receipt_voucher]![Type] AS Expr3"

 

 

ElseIf Me.Type = "ÞÈÖ" Then

DoCmd.RunSQL "INSERT INTO Treasury (Ward)SELECT [forms]![Receipt_voucher]![le] AS Expr1"

DoCmd.RunSQL "INSERT INTO Treasury (BDate)SELECT [forms]![Receipt_voucher]![Date] AS Expr2"

DoCmd.RunSQL "INSERT INTO Treasury (BDate)SELECT [forms]![Receipt_voucher]![Date] AS Expr2"

DoCmd.RunSQL "INSERT INTO Treasury (Bdata)SELECT [forms]![Receipt_voucher]![Type] AS Expr3"

 

Else

Exit Sub

End If

DoCmd.SetWarnings True

[أكسس وبس]

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

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

[ابوخليل]

تفضل

End4.rar

[أكسس وبس]

 اشكرك يا اخي ذوق ذوق ذوق