أكسس وبس

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

الدنيا ماشيه ولا ؟؟؟؟

اخى الكريم عملت برأيك تقريبا عمل جدول واحد Table1 للمشتريات والمبيعات ومردوداتهم وعملت جدول للتصنيع لوحده Table2 وعملت جدولين للحركة واحد Transaction مشتريات وتصنيع وواحد Transaction2 مردودات تصنيع ومبيعات فى نموذج ا لتصنيع frmControl عملت نموذجين فرعيين واحد عشان اسم الصنف الى حصنعه وكميته والتاني عشان كمية اصناف المواد الخام الى حتدخل فى التصنيع جدول Table2 مربوط مع جدولين الحركة يارب اكون عملت شئ استاهل تسقيفه من الاساتذة Copy of EndWork1.rar

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

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

الاستعلامات استعلام Purchase لتقرير فاتورة المشتريات استعلام Purchasesout لتقرير مردودات مشتريات استعلام Sales لتقرير فاتورة المبيعات استعلام Salesout لتقرير مرودات المبيعات استعلام Account payables توحيد لكشف حساب المورد بس بعد ما عملت سند الصرف والقبض مع بعض بيطلع اخطاء استعلام Account Receivables توحيد لكشف حساب العميل ونفس المشكلة بس حزود عليه جدول الصيانة بيطلع اخطاء استعلام Item_Trans تقرير لحركة الاصناف خلال فترة محددة والله ده كل الشغل الى انت شايفه صح اتركه والى فيه اخطاء ياريت تحذفه او ممكن تعدل الامر لك مطلق الحرية معلش الموضوع بقا ممل من كتر المشاركات فيه والاسئلة

بتظهر فى كل النماذج الرئيسية انا ممكن ابعتلك اخر شغل وهو ناقص فيه بعض المشكلات فى الرسائل وكشوف الحساب حيكون واضح ده اخر شغل لو عايز أوضحلك شئ انا موجود EndWork1.rar نموذج Compuny بيانات المؤسسة نموذج Names للاصناف المواد الخام والمنتجات نموذج FrmPeople للموردين والعملاء والعمال الى شغالين نموذج Trans_in فاتورة مشتريات نموذج Trans_inOut مردودات مشتريات نموذج frmControl للتصنيع باب او شباك وخلافه نموذج Trans_out مبيعات باب او شباك او مواد خام نموذج Trans_outin مردودات مبيعات نموذج Maintenance الصيانة للعملاء نموذج Expenses للمصروفات دى بعض النماذج ممكن تلاقي نماذج مش لها لازمة من كتر التجريب

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

وبعدين انا عملت جدول Transaction الحركة عشان كل العمليات تصب فيه المشتريات Add_doc والتصنيع Control والمبيعات Issue_doc والصيانة Maintenance عشان اقدر اجيب كشف حساب مورد وحساب العميل فى المبيعات والصيانة لان الصيانة للعملاء وجدول People شامل العملاء والموردين والعمال الى فى الورشة وجدول Catch_pay شامل سند الصرف والقبض وجدول Expense المصروفات وجدول Treasury ده جدول الخزينة عشان اعرف المالية الخاصة بسند الصرف والقبض والمصروفات وضيفت عليه المدين اجل والدائن اجل ممكن حضرتك تصححلى بس ياريت بالجداول عشان انا تهت والله بقالي شهر بعمل فيه عارف وشوفت والله شروحات كتير ومنها سيد بدران بس انا برنامج مش مشتريات ومبيعات فقط فيه مرحلة فى الوسط اسمها تصنيع فبيكون البرنامج محاسبة تكاليف كنظام محاسبي ياريت تقولى فكرك ومش مشكلة ابدأ من الاول المهم اكون صح المشكلة اهم حاجة المرحلة الاولى رسم الجداول وعلاقتها عاوز اعمل نظام محاسبة تكاليف بسيط مش لازمني اذن صرف او اضافة او مخزن كل الى عايزه فاتورة مشتريات ومردودات مشتريات امر تصنيع حياخد من المواد الخام الى جت بفاتورة مشتريات حصنع باب او شباك من المواد الخام الى حيفضل حيرجع مواد خام عشان رصيد المواد الخام والمنتجات من باب او شباك حيباع للعملاء بفاتورة مبيعات ولو حب يرجع نعمل فاتورة مردودات مبيعات ولو فيه عميل عاوز يعمل صيانة نعمله صيانة وفاتورة صيانة سند الصرف والقبض للفواتير النقدية والمصروفات عندي كشف حساب مورد - وكشف حساب عميل شامل المبيعات والصيانة وكشف الارباح والخسائر نظام اى برنامج لا يعتمد على فكرة واحدة بل مجموعة افكار حتى يتم بناء نظام برنامج متكامل ومتماسك خالى من الاخطاء وخاصة البرامج الرقمية او المحاسبية عشان مبنية على ارقام

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

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

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

اخى لا تعمل هذه الشفرة عندما اقوم باختيار الصنف لم يتم الاختيار بل تظهر رسالة خطأ فى الفيجوال بيسك ورسالة تظهر فى حدث Private Sub Category_Code_Exit(Cancel As Integer) نص الرسالة خطأ فى بناء الجملة ( عامل التشغيل مفقود) فى تعبير الاستعلام [Category_Code ]= هذه الرسالة صراحة تربك تربك تربك تربك

اخوانى اين انتم المشكلة عند الصرف للتصنيع فى النموذج frmControl قمت بتعديل المعادلة جملة Cancel = -1 الى جملة Cancel = 1 مرة وحذفتها مرة ولكن تظهر رسالات خطأ بالنسبة للفيجوال وهذه الرسائل تعمل ارباك للبرنامج

اشكرك يا اخي جارى التجريب ان شاء الله

اخى الكريم فيه رسالتين فى الفيجوال بيسك بتظهر خطأ رسالة تظهر عند عدم وجود كمبية للصنف فى حدث Private Sub Category_Code_Exit(Cancel As Integer)نص الرسالة Run-time reeor "94" ( Invaild use null) ورسالة تظهر فى حدث Private Sub Category_Code_Exit(Cancel As Integer) نص الرسالة خطأ فى بناء الجملة ( عامل التشغيل مفقود) فى تعبير الاستعلام [Category_Code ]= اخى Peposat ان شاء الله الفضل يعود لله ثم للاحبة الى فى المنتدى يكمل لان لازم يكون البرنامج مظبوط ولا يحتمل نسبة خطأ 0.0000001 فيه بعض الاشياء مازالت لم تكمل ومحتاج مساعدة من اهل الخبرة واوعدك اول ما يخلص حرفعه فى المنتدى

اشكرك يا اخي نأخذ بالرأى الاصوب ان شاء الله

اخوانى اخوانى اريد كود يجعل اى نموذج فرعى فى النماذج الرئيسية Trans_in - Trans_out - frmControl لا يقبل بيانات إلا بعد إدخال البيانات الرئيسية فى رأس النماذج اولاً End4.rar

اخوانى سلام الله عليكم فى المرفق نموذج التصنيع frmControl والفرعى الخاص به frmControlSub عند ادخال بيانات فى النموذج الفرعى frmControlSub اختيار المنتج ثم كميته التى تصنع ثم اسم صنف المادة الخام ثم ((((( ادخال كمية المنصرف من المادة الخام )))) تظهر رسالة تحذيرية الرصيد غير كافي رغم اني بدخل كمية اقل من الرصيد الحالى وهذه الرسالة مفروض تظهر فقط عندما تكون الكمية المنصرفة للتصنيع اكبر من الرصيد وهذه الرسالة لا تختفى بل تقوم بغلق النموذج بالكامل الرجاء تصحيح الكود حيث انه عند الخروج من الكمية Cquantityout Private Sub Cquantityout_Exit(Cancel As Integer) If Cquantityout > ItemBalance Then MsgBox "الرصيد غـير كافي", vbCritical + vbOKOnly, "رسالة تحذيرية" Cancel = -1 Else Me.Total.SetFocus End If End Sub End4.rar

ممكن اعمل استعلام الحاق افضل من استعلام تحديد تجميع

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

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

اخى الكريم عملت تعديل على الكود عشان اضيف تاريخ السند والنوع والمبلغ فى جدول الخزنة مرة واحدة ولكن كل نوع فى سجل تحت بعض وانا عايز بيانات السند كلهم مرة واحدة فى سطر واحد فى جدول 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

لما اعمل ازالة لجدول سند الصرف والقبض Catch_pay استعلام المورد يظهر البيانات ولما اضعه لم يتظهر اي بيانات

وايه الحل