athal قام بنشر أبريل 17, 2017 قام بنشر أبريل 17, 2017 السلام عليكم اشكر الاساتذة المحترمين والقائمين في خدمة الاعضاء عندي قاعدة بيانات لنموزج فاتورة واريد عند ادخال نفس المادة ان تزيد الكمية في الفاتورة بدل ان يكون لها سجلات جزاكم الله خيرا . invoice.rar
Shivan Rekany قام بنشر أبريل 17, 2017 قام بنشر أبريل 17, 2017 1 ساعه مضت, athal said: السلام عليكم اشكر الاساتذة المحترمين والقائمين في خدمة الاعضاء عندي قاعدة بيانات لنموزج فاتورة واريد عند ادخال نفس المادة ان تزيد الكمية في الفاتورة بدل ان يكون لها سجلات جزاكم الله خيرا . invoice.rar اتفضل استخدمت هذا الكود Private Sub Form_BeforeUpdate(Cancel As Integer) Dim sql As String If DCount("[ItemID]", "[InvoiceDetails Table]", "[InvoiceID]=" & Me.InvoiceID & "and [ItemID]=" & Me.ItemID) > 0 Then sql = "UPDATE [InvoiceDetails Table] SET [InvoiceDetails Table].Quantity = [InvoiceDetails Table]![Quantity]+[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![Quantity] WHERE ((([InvoiceDetails Table].InvoiceID)=[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![InvoiceID]) AND (([InvoiceDetails Table].ItemID)=[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![ItemID]));" DoCmd.SetWarnings (warningsoff) DoCmd.RunSQL (sql) Me.Undo DoCmd.SetWarnings (warningson) End If End Sub واليك قاعدة بياناتك بعد تعديل invoice.rar 3
Ahmed.IQ قام بنشر أبريل 17, 2017 قام بنشر أبريل 17, 2017 عندي سؤال للاخ athal فرضاً لو أن الاسعار تغيرت وانت رابط رقم المادة مع العدد فقط وليس السعر . لو اصبح لديك مشكلة في فاتورة وكان هناك تغير في الاسعار عند استعادة الفاتورة سيظهر السعر الجديد وليس القديم اذا لم اكن على خطاء. يمكن ان تضيف سعر مع رقم الصنف حيث يكون رقم الصنف ثابت في الفاتورة والسعر يحفظ بنفس الوقت الذي تم البيع به الفاتورة واي تحديث على قائمة الاسعار لا يأثر بالاسعار التي تم البيع بها سابقاً 1
athal قام بنشر أبريل 17, 2017 الكاتب قام بنشر أبريل 17, 2017 (معدل) 22 دقائق مضت, Shivan Rekany said: اتفضل استخدمت هذا الكود Private Sub Form_BeforeUpdate(Cancel As Integer) Dim sql As String If DCount("[ItemID]", "[InvoiceDetails Table]", "[InvoiceID]=" & Me.InvoiceID & "and [ItemID]=" & Me.ItemID) > 0 Then sql = "UPDATE [InvoiceDetails Table] SET [InvoiceDetails Table].Quantity = [InvoiceDetails Table]![Quantity]+[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![Quantity] WHERE ((([InvoiceDetails Table].InvoiceID)=[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![InvoiceID]) AND (([InvoiceDetails Table].ItemID)=[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![ItemID]));" DoCmd.SetWarnings (warningsoff) DoCmd.RunSQL (sql) Me.Undo DoCmd.SetWarnings (warningson) End If End Sub واليك قاعدة بياناتك بعد تعديل invoice.rar استاذي القدير شفان بارك الله فيك اشكر لك سرعة تجاوبك واقدر كرمك جزاك الله خيرا 13 دقائق مضت, Ahmed.IQ said: عندي سؤال للاخ athal فرضاً لو أن الاسعار تغيرت وانت رابط رقم المادة مع العدد فقط وليس السعر . لو اصبح لديك مشكلة في فاتورة وكان هناك تغير في الاسعار عند استعادة الفاتورة سيظهر السعر الجديد وليس القديم اذا لم اكن على خطاء. يمكن ان تضيف سعر مع رقم الصنف حيث يكون رقم الصنف ثابت في الفاتورة والسعر يحفظ بنفس الوقت الذي تم البيع به الفاتورة واي تحديث على قائمة الاسعار لا يأثر بالاسعار التي تم البيع بها سابقاً استاذي احمد الكريم لم انتبه لذلك بارك الله فيك واشكر لك واقدر نصيحتك وساعمل بها باذن الله جزاك الله خيرا تم تعديل أبريل 17, 2017 بواسطه athal 1
ابوآمنة قام بنشر مارس 2, 2018 قام بنشر مارس 2, 2018 (معدل) أخي الكريم شفان / أو الأعضاء حاولت عمل ذلك على القاعدة المرفق فلم يضبط معي ممكن تساعدنا في ذلك حيث لدي فاتورة بيع وفاتورة شراء فيجمع جميع النموذج الفرعي أيضا تظهر لي رسالة خطأ لوضع رقم الصنف الفواتير.rar تم تعديل مارس 2, 2018 بواسطه saleh204
صالح حمادي قام بنشر مارس 2, 2018 قام بنشر مارس 2, 2018 السلام عليكم إطلع على هذا الموضوع إن شاء الله تجد به الحل 1 1
النجاشي قام بنشر مارس 2, 2018 قام بنشر مارس 2, 2018 بارك الله فيك استاذنا الكريم كم انت طيب القلب @صالح حمادي ان شاء الله يجد فيه غايته 1
ابوآمنة قام بنشر مارس 2, 2018 قام بنشر مارس 2, 2018 أخي الكريم العبد الصالح أسأل الله أن يوفقك لما يحبه ويرضاه حاولت فلم أوفق في الحل . ممكن تساعدني في التعديل على القاعدة المرفقة أعلاه
Shivan Rekany قام بنشر مارس 3, 2018 قام بنشر مارس 3, 2018 16 ساعات مضت, saleh204 said: حاولت عمل ذلك على القاعدة المرفق فلم يضبط معي السلام عليكم ورحمة الله وبركاته اخي الحبيب عملك مضبوط لكن فيها خطأ واحد في حرف واحد اذا تغيره سيكون كل شيء على ما يرام شوف هذه الجملة sql = "UPDATE [InvoiceHelperTab] SET [InvoiceHelperTab].QtyOut = [InvoiceHelperTab]![QtyOut]+[Forms]![SalInvoiceForm]![Child13].[Form]![QtyOut] WHERE ((([InvoiceHelperTab].InvoiceNo)=[Forms]![SalInvoiceForm]![Child13].[Form]![InvoiceNo]) AND (([InvoiceHelperTab].ProdNoAccTab)=[Forms]![SalInvoiceForm]![Child13].[Form]![ProdNoAccTab]));" القي نظرتا الى الشرط فيه الشرط الاول تمام ما فيه المشكلة WHERE ((([InvoiceHelperTab].InvoiceNo)=[Forms]![SalInvoiceForm]![Child13].[Form]![InvoiceNo]) والشرط الثاني AND (([InvoiceHelperTab].ProdNoAccTab)=[Forms]![SalInvoiceForm]![Child13].[Form]![ProdNoAccTab]));" فقط غير حرف سي الاخير من هذه الكلمة ProdNoAccTab الى حرف تي ProdNoActTab القي نظرتا الى الكود الصحيح sql = "UPDATE [InvoiceHelperTab] SET [InvoiceHelperTab].QtyOut = [InvoiceHelperTab]![QtyOut]+[Forms]![SalInvoiceForm]![Child13].[Form]![QtyOut] WHERE ((([InvoiceHelperTab].InvoiceNo)=[Forms]![SalInvoiceForm]![Child13].[Form]![InvoiceNo]) AND (([InvoiceHelperTab].ProdNoActTab)=[Forms]![SalInvoiceForm]![Child13].[Form]![ProdNoAccTab]));" اليك ملفك بعد تغيير حرف واحد الفواتير.rar 1 1
ابوآمنة قام بنشر مارس 3, 2018 قام بنشر مارس 3, 2018 شكرا لك أخي شفان لم انتبه للخطأ الآن بعد إضافة فاتورة جديدة وصنف جديد ثم صنف ثاني مختلف رقمه عن الأول في النموذج الفرعي يختفي من القائمة ينحذف لماذا !!!؟؟
Shivan Rekany قام بنشر مارس 3, 2018 قام بنشر مارس 3, 2018 41 دقائق مضت, saleh204 said: الآن بعد إضافة فاتورة جديدة وصنف جديد ثم صنف ثاني مختلف رقمه عن الأول في النموذج الفرعي يختفي من القائمة ينحذف لماذا !!!؟؟ نعتذر انا فقط اهتمت عن جملة التحديث اتفضل يجب ان تغير في هذا السطر ايضا If DCount("[ProdNoAccTab]", "[InvoiceHelperTab]", "[InvoiceNo]=" & Me.InvoiceNo & "and [ProdNoAccTab]=" & Me.ProdNoAccTab ) > 0 Then يجب ان يكون هكذا If DCount("[ProdNoActTab]", "[InvoiceHelperTab]", "[InvoiceNo]=" & Me.InvoiceNo & "and [ProdNoActTab]='" & Me.ProdNoAccTab & "'") > 0 Then اليك المرفق الفواتير.rar 2 1
ابوآمنة قام بنشر مارس 3, 2018 قام بنشر مارس 3, 2018 جزاك الله خيراً أخي شفان وأجزل الله لك العطاء وأضاء طريق وهداك إلى سواء السبيل . ويسر أمور كما يسرت أمور الناس . 1
ابوآمنة قام بنشر مارس 3, 2018 قام بنشر مارس 3, 2018 (معدل) أخي الغالي شفان ملحوظة بعد إضافة الصنف بالباركود ينتقل التركيز إلى حقل الكمية . أما يدوياً فتمام لا يخرج عن حقل رقم الصنف . المطلب : أريد بعد إضافة الصنف بالباركود لا يخرج عن حقل "رقم الصنف" . هل هناك إضافة في الكود حتى يتم نقل التركيز إلى "رقم الصنف" تم تعديل مارس 3, 2018 بواسطه saleh204
Shivan Rekany قام بنشر مارس 4, 2018 قام بنشر مارس 4, 2018 23 ساعات مضت, saleh204 said: ملحوظة بعد إضافة الصنف بالباركود ينتقل التركيز إلى حقل الكمية . نعم وهذا هو شغل جهاز الباركود بيدخل الرقم وبيروح الى التالي 23 ساعات مضت, saleh204 said: المطلب : أريد بعد إضافة الصنف بالباركود لا يخرج عن حقل "رقم الصنف" . اتفضل اليك هذا سيخرج من الحقل ويدخل الى حقل الكمية وبعدين سيدخل من جديد الى حقل رقم الصنف في جزء من الثانية اليك الكود SetFocus Private Sub ProdNoAccTab_AfterUpdate() [Price] = [SalPrice] Me.QtyOut.SetFocus Me.ProdNoAccTab.SetFocus End Sub الفواتير.rar 1 1
غسان علي قام بنشر مارس 24, 2018 قام بنشر مارس 24, 2018 استاذ شفان بياني باش اخي العزيز عندي برنامج فاتورة وطبقت الكود اللي حضرتك عملته بخصوص زيادة الكمية لكن لم انجح يا ريت وتتكرم علينا بعمل التعديل ونكون شاكرين لكم زور سباص الفاتورة (2).rar
غسان علي قام بنشر يوليو 31, 2018 قام بنشر يوليو 31, 2018 استاذ شيفان السلام عليكم الكود الذي كتبته مشكورا استفدت انا منه ايضا اريد ان لا يرجع الى حقل الباكورد بل يذهب الى حقل جديد يا ريت تزودنا بالكود Private Sub ProdNoAccTab_AfterUpdate() [Price] = [SalPrice] Me.QtyOut.SetFocus Me.ProdNoAccTab.SetFocus End Sub
غسان علي قام بنشر أغسطس 2, 2018 قام بنشر أغسطس 2, 2018 استاذ شيفان السلام عليكم الكود الذي كتبته مشكورا استفدت انا منه ايضا اريد ان لا يرجع الى حقل الباكورد بل يذهب الى حقل جديد يا ريت تزودنا بالكود Private Sub ProdNoAccTab_AfterUpdate() [Price] = [SalPrice] Me.QtyOut.SetFocus Me.ProdNoAccTab.SetFocus End Sub للرفع
Shivan Rekany قام بنشر أغسطس 2, 2018 قام بنشر أغسطس 2, 2018 1 دقيقه مضت, غسان علي said: اريد ان لا يرجع الى حقل الباكورد بل يذهب الى حقل جديد هل تريد ان يرحل الى سجل جديد او حقل اخر اذا تريد ان يرحل الى حقل اخر استخدم كود اعلاه واذا تريد ان يرحل الى سجل جديد لا تستخدم الكود من الطبيعة الجهاز الباركود يتم تسجيل الباركود ويرحل الى سجل جديد لكن اذا تدخل بيانات باليد اكتب هذا DoCmd.GoToRecord , , acNewRec في حدث بعد تحديث لحقل باركود
غسان علي قام بنشر أغسطس 2, 2018 قام بنشر أغسطس 2, 2018 استاذ شيفان اولا شكرا على الاجابة والله مشتاقين من كثر ما تقدمه من انجازات المشكلة عندي عندي استعلام بتحديث الكمية المتبقية فاريد بعد ان يذهب الى الكمية يشتغل الاستعلام ويذهب بعدها الى سجل جديد
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.