WinMaster

exp: [table1]![date1]-[table1]![date2

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

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

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

السلام عليكم اخوي مهند هل تريد انت حدث Key down؟ ام مجرد تريد الحل لهذه المسالة؟ ارجو ارفاق الكان لكي اجرب عليه ونحاول انحل الاشكال. تحياتي

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

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

سلامات واتمني لك الشفاء لا باس طهور انشاءالله تحياتي

السلام عليكم بالنظر السريع للقائمة ( اعتقد هذه مجخلات البرنامج) في حالة الصنف يجب معرف الصنف بصراحة العربي ما يسعفني لذلك ساقوم بشرح وجهة النظر اذا كانت السلعة سيار يموك معرف الصنف هو رقم الشاصي اذا كانت السلعة تلفزيون يكون معرف الصنف هو السيريل او رقم التسلسل بالنسبة للتصنيف يجب ان تصنف السلع على مجموعات مثلا مجموعة سيارات مجموعة الكترونيات مجموعة اثاث وهكذا هذا سوف يسهل عملية ادخال البيانات في النماذج في المستقبل ويمكنا من تحديد الحقول التي يجب ان تدخل. بالنسبة للعملاء يتم ادخالهم في جدول العملاء ومن هناك نستطيع ادراج اسم العميل كمشتري او كفيل طبعا هذا سابق لاوانه ولكن جت في بالي تحياتي

السلام عليكم انا ان شاءالله اساعد قدر الامكان لتعم الفائدة تحياتي

السلام عليكم يا سيدي العزيز اولا بالفواتير العادية تقوم بتحديد السلعة وثم تكتب الثمن او ياتي الثمن من جدول المبيعات. فلن تحدد سعر اي شيء الشيء الثاني هو اني صممت الفكرة بدون ديكور والعمليه كلها بامكاني ان اجعلها تلقائية من تدخل المستخدم بباسط شديدة . ولكن لو عملتها تلقائية لن تتمك من رؤية الفكرة وكيف تعمل !! بالنسبة للفاتورة يا عزيزي من غير المعقول اجلس اصمم فاتورة واتعب عليها لترى ان الفكرة تشتغل . ولا اشرايك؟؟ هذه امور اي شخص من غير المام بالبرمجة يستطيع عملها فلا نضيع وقتنا عليها :lol: ثالثا من الواضح ان الفكرة لم تصل . بهذا التكنيك عزيزي تستطيع ان تقوم باكثر من سيناريو لبيع السلع تلقائي 1- ان يكون الكود داخل الفاتورة وما ان يضع الصنف حتى تظهر له الكمية المتوفرة بالمخازن(حتى لا يبيع سلعة غير متوفرة) وايضا سعر البيع موجود ايضا هنا يقوم بادخال الكمية المطلوبة وبعدها يذهب الى الصنف التالي وهكذا عندما يضغط علي زر اصدار الفاتورة يقوم البرنامج بعمل كود سحب المواد حيب سعرها واكمياتها واحدة تلو الاخرى بدون تدخل المستخدم. سهلة صح ؟ 2- الطريقة الثاني تعطي مجال للمستخدم او البائع ليرى اي كميات متوفرة وباي اسعار تم شراؤها وبذلك ما ان يدخل الصنف ويدخل الكمية حتى تظهر له شلشة اخرى يختار منها اي مجموعة(مصنفة حسب فواتير الاستلام وا الشراء المدخلة من قبل المخازن) والكمية المرادة من هذه المجموعة ويرجع الى الفاتورة لاكمال الاجراءات. الخلاصة اني ما عملت البرنامج ليشتغل على طول انا عملته فقط لترون الفكرة وكيف تعمل ولكم ان تختارو كيفية تطبيق الفكرة ببرنامجكم مثل ما اسلفت بالاعلى اتمنى ان اكون قد اوضحت الفكرة الان واتضحت الرؤية وعموما انا شاكرلك تعليقك واتمنى ان نستفيد جميعنا من افكار بعض. تحياتي

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

السلام عليكم طبعا انا ضد كتابة الجداول واسماء الكائنات بالعربي لانها تلخبط البرمجة والكود. لذلك انا قمت بتعديل قاعدة كنت عاملها الحد الصدقاء للمخازي وبدون مبيعات عموما لا تتفاجأ من كثر الجداول اكثرها غير مستعمل لغرض برنامجنا. الان اللي انا فعلته باختصار هو جداول للاستلام tblReceipt و tblRecieptDetails وهذه لادخال الكميات من الموردين الى المخازن. طبعا جدول tblItems للاصناف جدول للبيع tblSale و tblSaleDetails وهذا للبيع وتخزين الكميات المباعة جداول مؤقته لحفظ معلومات الاصناف المختارة للبيع وعر كمياتها واسعار شراؤها والمتبقي منها. نموذج البيع يتكون من صفحتين الصفحة الاولى تختار الصنف المراد ثم تذهب للصفحة الثانية وتختار المجموعة التي تريد بيعها حسب سعر الشراء . تقوم بضغط Select وتضع الكمية المطلوبة للبيع وطبعا تقدر تختار نفس الصنف من مجموعة ثاني اغلى او ارخص حسب ما تريد بعد الاختيار وادخا الكمية المرادة اضغط Add to Order لاضافة الصنف داخل الطلبية واذهب الى الصفحة الاولى لاختيار الصنف التالي وهكذا. واعد نفس الترتيب الاعلى بعد الانتهاء من اختيار الطلبات انت جاهز لاصدار الفاتورة اضغط على Proceed وهنا سوف تنقل المعلومات من الجداول المؤقتهالى جداول tblSale و tblSaledetails ومسح الجداول المؤقته لتكون جاهزة للعملية التالية. ايضا قمت باستحداث جدول tblPrices وهذا لادخال سعر بيع الاصناف . طبعا البرنامج غير كامل تماما ولا به ديكور لاني ما عندي وقت ولكن يغطي جزئية حساب المواد والمخازن والتكاليف طبعا التكاليف اصبحت مهمة سهلة جدا لانه يمكن حساب التكاليف بالضبط حسب المخزون والموجود. ادخال الاصناف للتجارب حسب الاتي tblItems ادخل الصنف ومعلوماته tblReciept ادخل معلومات الاستلام tblRecieptDetails ادخل تفاصيل الاستلام (الصنف السعر الكمية) tblPrices ادخل سعر بيع كل صنف ( ممكن نجعل هذا كحقل داخل جدول الاصناف) ابدا التجارب ارحب بتعليقاتكم حول هذا التكنيك ( هو شكله معقد ولكن بالتمعن يكون سهل باذن الله) تحياتي لكم StoreTbl.zip

ارفع الجدول وانا اعمل التعديل اللازم انشاءالله

الفكرة: ان نستدل على سعر الشراء من جدول المشتريات والذي يكون احد حقوله رقم الصنف الكمية السعر. نستحدث جدول جديد لاسعار البيع يكون فيه رقم الصنف سعر البيع في جدول البيع يكون رقم الصنف وسعر البيع موجود ايضا في شاشة صرف الاصناف(بيع السلع) نضع كود يسرد لنا بعد اختيار الصنف الكميات الموجوده واعلى سلعةتم شراؤها تكون هي الاول فالارخص فالارخص وهكذا. عندما يختار المستخدم السلع تخصم من الموجودات وبذلك نكون قد صرفنا السلع الغالية اولا ثم الارخص فالارخص. الان عندما نحسب التكاليف تكون الحسبة دقيقة لاننا عرفنا بالضبط سعر الشراء وسعر البيع . والكميات المتبقية محسوب سعر شراؤها ايضا. ما رايكم بهذا التحليل ؟ باتظار تعليقاتكم الكريمة تحياتي

السلام عليكم داخل خصائص النموذج اذهب الى من اليمين الى اليسار Form Properties Oriantation = Right to left تحياتي

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

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

السلام عليكم هذا يحدث لعدة اسباب جرب الاتي 1- اذهب الى المجلد الذي فيه البرنامج اذا رايت نفس الفايل موجود بس باضافة lock مثلا اسم الفايل Stores.mdb ووجدت معه Stores مع علامة مفتاح على الايقونة قم بمسح Record Locking information الذي يحمل نفس الاسم 2- تاكد ان الفايل ليس للقراءة فقط. (Read Only( 3- يحدث ايضا اذا منت وضع النسخة على شبكة وليس لك حق الكتابة في الشبكة وهذا هو الشائع. 4- اذا ما مشى الحال ابعثلي الملف وانا حاضر تحياتي

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

السلام عليكم اسال الله الذي لا اله لال هو ان يسدد خطاك ويحشرنا معك في اعلى عليين تحياتي (y)

شؤالك غير واضح اخي . هل تعني مسح السجل او مسح مكنات الحقل ؟ اذا كان المراد مسح مكونات الحقل في مربع نص فالجواب يكون Text1.value = "" حيث text1 هو اسم مربع النص بس ما اعتقد هذا ما تريد تحياتي

ضع الكود في حدث BeforeInsert للنموذج تحياتي

السلام عليكم استعمل هذا الكود لعد السجلات . اذا كان العدد اكثر من 9 يعطي رسالة ثم يغلق النموذج . طبعا انت عدل عليه على راحتك بما يتناسب مع متطلباتك 'Declare the Connection Object and The recordset to hold the data Dim Cnn As New ADODB.Connection Dim Rst As New ADODB.Recordset 'Set The Connection Set Cnn = CurrentProject.Connection 'Open the Record Set Rst.Open "Select * From table1", Cnn, adOpenStatic 'Check if the Table has more than 9 records then do the action If Rst.RecordCount > 9 Then 'Enter your code here MsgBox " You Cannot Add a New Record" 'Exit the form or do what ever you want DoCmd.Close End If Rst.Close

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