كيف تبني برنامج مخازن ومبيعات بطريقة صحيحة ؟؟

أخي الغالي / محمد فؤاد تركي

مليون تحية وبعد ،،،،،،،،،،،

ما شاء الله عليك يا خبيرنا العزيز ... ما فيه كلام بعد كدة ...

سر على بركة الله ... ونحن خلفك ...

ملوحظة صغيرة ... لقد سقط سهواً عند حدث عدم وجود بيانات في التقرير وهو اضافة سطر جديد الى الكود الموجود وهو cancel=-1 وذلك حتى لا يظهر التقرير فارغ.

مع خالص حبي وتقديري

أخي الغالي كمال النحال

بارك الله فيك علي ملحوظاتك الغالية

لكن انا ايضا عندي لك ملحوظة

لو نظرت للتقرير جيداً لوجدت التالي

1 - في حالة الاستعلام عن رصيد المخازن وهذه الارصدة تحتوي علي ارصدة قد تم تصفيرها اكيد في هذه الحالة لن نحتاج لكود او رسالة تظهر في حالة عدم وجود بيانات لان التقرير بالفعل يحمل بيانات سواء صفر او بيانات

2 - في حالة الاستعلام عن رصيد المخازن وهذه الارصدة لا تحتوي علي الاصفار ايضا في هذه الحالة لن نحتاج الي اي رسائل لان سيكون ايضا بداخل التقرير بيانات

3 - الحالة الوحيدة التي تظهر فيها هذه الرسالة وهي تشغيل البرنامج فارغ تماماً بدون اجراء علية اي حركات مخزنية في هذه الحالة النادرة تظهر الرسلة لذلك وضعتها في الحسبان لكنها لا تتكرر غير في هذه الحالة فقط لكن لاجل عيونك وضعتها والكود كالتالي

Private Sub Report_NoData(Cancel As Integer)
Dim x As String
x = MsgBox("لا يوجد بيانات سيتم الغاء العملية", vbInformation, "تقرير فارغ")
Cancel = True
End Sub

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

Private Sub Zdate_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF3 Then
Dim zaValue As String
zaValue = Format(Now, "dd/mm/yyyy")
Me.Zdate = zaValue
End If
End Sub

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

مرفق البرنامج بعد عمل التعديلات اللازمة

Warehouses_System_up.rar

أخي الغالي / محمد تركي

مليون تحية طيبة وبعد ،،،،،،،،

أشكرك جزيل الشكر على مجهودك العظيم وأنا أقل لك مرة ثانية ما فيه كلام برنامج رائع وجهد كبير من خبير كبير.

سؤال أخي محمد ما رأيك لو وضعنا لكل نموذج ... من الخصائص شكلي أو مشروط تساوي نعم ؟ لأنه لو فتحت نموذج وفتحت آخر دون اغلاق النموذج الاول يكون عدد النماذج المفتوحة كبير وتمتلئ الشاشة بالنماذج المفتوحة ... هذا مجرد إقتراح.

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

الاخ العزيز محمد فؤاد الكلمات وحدها لاتوفيك حقك على هذا المجهود الرائع وجزاك الله الف خير

ارجو توضيح مصدر استعلامات التوحيد للعميل والمورد هل مسحتها بعد استخدامها ام موجوده ام ماخوذه مباشره ولك جزيل الشكر

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

اخي الفاضل محمد

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

لكن فيه حقول كثيره راح احذفها من الجداول

مثلا من جدول الاصناف

انا مااريد منه الا رقم الصنف واسمه فقط

ومن جدول الشراء والبيع

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

واريد ان اضيف عليه حقل اسمه نوع الصرف وحقل اسمه اسم المستودع الموجود فيه الصنف

اما الحقول الباقيه مااستفيد منها شي

كذلك من جداول رؤس الفواتير البيع والشراء

مااريد منها الا حقل رقم الفاتوره وهذا الحقل راح اغير اسمه الى رقم الامر

وكذلك حقل التاريخ وحقل المورد وحقل العميل

السؤال اخي الكريم

هل اذا قمت بحذف هذه الحقول هل يكون لها تأثير على الحقول المتبقيه ام لها ارتباط بها

كذلك اخي انا حملت المثال الاخير في الصفحة رقم18 المشاركة رقم 177

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

وهي اني لما ادخل في فاتوره شراء والبيع

واقوم بادخال صنف جديد

اذا نزل مؤشر الماوس الى السجل التالي واردت الخروج مايقبل الخروج وتظهر لي رساله ان هذا الكود غير

موجود بدليل المخازن

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

وكذلك في فاتورة البيع

لما ادخل افاتوره بيع للصنف معين اذا ادخلت الكمية المباعه تظهر لي رساله ان الرصيد غير كافي علما ان

الرصيد كافي ويغطي

لكن ماادري وش المشكله

ارجو اخي الكريم توضيح هذه الاشكالات

بارك الله فيك وجزاك الله خير

وينك ياباشا فؤاد

منتظرينك بفارغ الصبر

أخي

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

أحمد بدر

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

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

أخي الغالي

حسام خليل

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

ايضا اذا اردت ان تتعلم كيفية برمجة اكسس تفضل بالدخول الي هذا الرابط فستجد فية خطوة خطوة تعليم مباديء واساسيات برمجة اكسس

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

الاخوة الزملاء

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

بارك الله فيكم جميعاً

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

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

أخواني الزملاء من يستطيع اضافة جديد الي العمل فليفعل وجزاه الله خيرا

وان لم يستطع فيكفيني مروره الكريم علي الموضوع

وفي النهاية وبعد فترة استمرت عدة شهور في خلال الفترة من 2 مايو 2007 وحتي اليوم سعدت جداً بملاحظاتكم وانتقاداتكم علي هذا الموضوع واتمني من الله سبحانة وتعالي ان اكون فعلا استطعت تقديم نموذج من الشرح يستطيع الكثيرون الاستفادة منه

* ملحوظة تم اضافة بعض اللمسات الجمالية البسيطة علي شاشات البرنامج ايضا تم عمل شاشة افتتاحية للبرنامج هذا وبالاضافة الي عمل شاشة لدخول المستخدم

( باص ورد ) وطبعا اسم المستخدم

mfouad

والباص وورد الخاص بالبرنامج

55555

مرفق الملف النهائي للعمل

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

Warehouses__System.rar

بارك الله فيك وجزاك الله خير اخي الفاضل محمد

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

اخي الكريم

ارجو ان تطلع على مشاركتي رقم 180 التي على الرابط هذا

/index.ph...5583&st=170

فيه بعض الاشكالات ماقدرت احلها في البرنامج

الله يرضا عليك

ارجو الرد عليها

لي فترة وانا انتظر ردك عليها

بارك الله فيك وجزاك الله خير

احترامي وتقديري

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

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

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

واخص بالشكر والتقدير الاخ صاحب هذا الموضوع الاخ محمد فؤاد تركي

وكذلك الاخت زهره

لمجهودهما الاكثر من رائع

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

السؤال:

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

واشكركم سلفأ على هذا المجهود

وكلى ثقة بأنكم لن تردوني خائبأ

ملاحظة: انا مبتدأ جداً في اكسس فاتمنى التريث معي في الشرح ان امكن

اخوكم. سيد عدنان

السلام عليكم اخي الكريم sayed adnan

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

نرجع لموضوعك..

انت عايز تنبيه لتعدي الحد الادني

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

قم بالتالي :

1- لفتح البرنامج بشكل عادي كانك مستخدم وليس مبرمج اكسس يعني بدون شيفت

2- ادخل شاشة فواتير البيع -- ستظهر لك فاتورة البيع رقم 1

3- قم باضافة سطر جديد ( سطر رابع بالجدول الفرعي )

4- ادخل كود الصنف 1 ثم اضغط انتر

5- بحقل الكمية المباعة ادخل الكمية 280 هنا ستظهر لك رسالة بتجاوز الحد الادني .... لماذا ؟

لاننا قمنا باضافة حقل بجدول الاصناف Names اسمة MinLimit مخصص لتعريف الحد الادني من الاصناف

والصنف رقم واحد رصيده 290 والحد الادني 20 يعني لا تستطيع صرف اكثر من 270

وبالكود ستتعرف علي بساطة الطريقة

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

اخوك فى الله

Warehouses_System_up.rar

اخويا وحبيبي احمد

dlookup عاملة معاك شغل عشرة علي عشرة

الله يبارك فيك

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

vb.net

Sql server2005

والويب ديزاينر

والحاجات دي

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

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

مرفق البرنامج

za_Warehouses_System_up.rar

محمد باشا فؤاد التركي

كل المجهود ده وتقول مقصر :-))

ربنا يوفقك ويبارك فيك

اخوك المتغرب احمد

1) شي طيب

لا والله شي جميل

يشكر عليه الاخوة ahamied , محمد فؤاد تركي

2) بس ياريت يكون جدول خاص بالاشياء اللي تعدت الحد الادنى فقط

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

3) والشرح للي حصل واللي راح يحصل إن شاء الله بحيث انو يكون يناسب امكانياتي :wacko:

واكون لكم من الشاكرين

سيد عدنان

أخي الغالي سيد عدنان

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

تفضل الشرح خطوة خطوة بناء علي طلبك

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

Private Sub Qty_out_Exit(Cancel As Integer)
Dim xx As Integer
هي قيمة الرصيد الفعلي الموجوده من الصنف 
xx = DLookup("sum([qty_in])-sum([qty_out])", "transaction", "[number]='" & [ßæÏ ÇáÕäÝ] & "'")

If xx - Me.Qty_out < Me.ItemBalance Then MsgBox " ستتجاوز الحد الادني يا أخي", vbCritical, "صح صح يا ناصح"
بعد كده اعمل اللي انت عاوزة ممكن تلغي العملية او لتنبية فقط

End Sub

Private Sub كود الصنف_Exit(Cancel As Integer)
[كود الصنف] = DLookup("[Name]", "Names", "Number=[بيان الصنف]")
[كود الصنف] = DLookup("[Name]", "Names", "Number=[بيان الصنف]")
[unit price] = DLookup("[unit price]", "Names", "number=[كود الصنف]")
[unit] = DLookup("[unit]", "Names", "number=[كود الصنف]")
If IsNull(DLookup("[number]", "names", "[number]='" & [كود الصنف] & "'")) Then
	   MsgBox " هذا الكود غير موجود في رصيد المخازن ", vbCritical
	   Cancel = -1
	  End If

	  هنا نخصص قيمة الحقل ليظهر بها الحد الادني
	  Me.ItemBalance = DLookup("[MinLimit]", "Names", "[number]='" & [كود الصنف] & "'")

بالتوفيق

أخي الغالي

سيد عدنان

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

اليك الشرح التالي

Min limit request: IIf(Balance!MinLimit2<Balance!MinLimit,Balance!MinLimit2,0)

0<>

مرفق الملف بعد التعديل

za_Warehouses_System_up.rar

اشكرك اخي العزيز محمد فؤاد تركي على ما تفضلت علي به

وسأحفظ لك هذا الجميل ان شاء الله

ووالله اني لأستحي ان اسأل بعد هذا الشرح الوافي والواضح

ولكن كما قلت لك من قبل بأنني في Access في مرتبة ما قبل المبتدئين

فإن كان معي في نفس الحقل ونفس الحدث كود آخر وهو كما بالصور المرفقة

فلا يبقى معي في هذه الحالة الا السؤال

فأستميحك عذراً وارجو ان تطيل بالك علي

1.bmp

2.bmp

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

الموضوع : توضيح السؤال في المشاركة بالاعلى

كيف اضع كودين في الحقل نفسه وفي نفس الحدث

وشكراً

سيد عدنان

الاخ محمد فؤاد شكرا على مجهوداتك ولكن سالتك اكثر من مره ولم تجبني

فاتورة الشراء او البيع يجب ان لايتكرر فيها الصنف فهل من حل ارجو الاجابه

أخي الغالي سيد عدنان

بعد ما لاحظت الكودين المرفقين في الصورة

وجدت ان الكودين مختلفين تماماً في مكان موضعهم

فالكود الاول مكانة في حقل كود الصنف حدث عند الخروج

والكود الثاني مكانة في حقل الكمية المنصرفة حدث عند الخروج

فماذا تريد بارك الله بك

هل تريد ضم الكودين في حقل ثالث

ام هل تريد ضمهم في اي من الحقلين كود الصنف او الكمية المنصرفة ولماذا؟

اخي الغالي ابو عمر75

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

لذلك سأحاول البحث عنه وايجاده لك حتي تسطيع تطبيق في تطبيقاتك