نقاط بيع بالاكسس

[حسين العربى]

http://www.officena.net/ib/topic/64121-ادراج-الكميه-في-مربع-حوار-استعلام-من-خلال-لوحة-ارقام-مصممه-داخل-النموذج/

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

[رمهان]

مرحبا بك اخ حسين

كلك بركة !

شكرا على المبادرة وارجو فقط ارفاق الملف والذي بالرابط السابق هنا !

ومشكور والشكر موصول للاستاذ ابو عارف !

وباذن الله يكون موضوع مميز وفريد !

 

تحياتي

[حسين العربى]

اليكم البرنامج  لمن يريد التطوير

For Mr_Hosain.rar

[ابو عارف]

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

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

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

 54Items.rar

و من اجل احتفاظ بازرار و ا البحث بجزء الاسم، سيكون تطبيق الفكرة على مثال التالي ان شاء الله .

 

 

[رمهان]

 

كلام خبير ! وعلينا الاستماع والانصات ! واذا حضر الماء بطل التيمم !

تحياتي استاذ ابو شفيق !  اقصد الاستاذ ابو عارف

[رمهان]

اعزائي

هذه مشاركة وبفكرة بالازرار امل ان تنال اعجابكم وتتلخص في :

1. انشاء عدة ازرار اوامر ومن ثم رصها مرتبة وبدون اي تغيير للخصائص : الاكسس 2010 يساعد كثيرا وبنقرة واحدة 

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

3. تم تغيير خصائص الازرار برمجيا وبالتحديد : خاصية عند النقر لمناداة الدالة .. خاصية التاق لمعرفة كود الصنف .. خاصية العنوان لاظهار اسم الصنف !

هناك فكرة اخرى ولكن تتطلب 2010 ومافوق ! احاول قريبا وباذن الله !

تحياتي للجميع

Access_POS.rar

تم تعديل أكتوبر 15, 2015 بواسطه رمهان

[حسين العربى]

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

 

[ابو عارف]

ماشاء الله   قمة روعة فكرة رائعة استاذنا و بالاخص السطر:

c.Caption = rs(1): c.Tag = rs(0): 

و الباقي وظائف سهل ان شاء الله كـ ادخال كود الصنف في Tx  عند اختيار الصنف و عرض صنف جديد مباشرا دون حاجة للاغلاق وفتح النموذج  و فصل فاتورة جديدة من القديمة و هذا كلهم دون اوفس 2010 باذن الله

اتمنى لك مزيد من التوفيق.

[حسين العربى]

اخي ابو عارف ممكن شرح  هذا الكود لو تكرمت 

' مشروبات ------------------
Set rs = CurrentDb.OpenRecordset("select id,iname from tabl1 where d_f=-1"): rs.MoveLast: rs.MoveFirst
For Each c In Me.ãÔÑæÈÇÊ.Controls
If Not rs.EOF Then
c.Caption = rs(1): c.Tag = rs(0): c.OnClick = "=ramhan()"
rs.MoveNext
Else
c.Visible = False
End If
Next

[ابو عارف]

السلام عليكم

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

Set rs = CurrentDb.OpenRecordset("select id,iname from tabl1 where d_f=-1"): rs.MoveLast: rs.MoveFirst

 

فتح الجدول الاصناف على المعيار نوع الصنف ( مشروبات) و اختيار سجل الاول حسب المعيار

For Each c In Me.مشروبات.Controls

 

 اختيار زر الاول في نموذج مشروبات

If Not rs.EOF Then

 

اذا وجد السجل على حسب المعيار المطلوب (لا اي سجل آخر) ثم

c.Caption = rs(1): c.Tag = rs(0): c.OnClick = "=ramhan()"

 

 الآن و بعد اختيار سجل من اصناف و اختيار زر من ازرار مشروبات، يغيرالاسم التوضيحي للزر المختار الى عمود الثاني في جدول الاصناف  من السجل المختار   (0) عمود 1 و (1) عمود الثاني في جدول اصناف، و وضع قيمة عمود الاول في علامة الزر

ملحوظة: مكان علامة الزر في لسان تبويب "غير ذالك" علامة في العربي و Tag في الانجليزي.

و اخيرا في حدث عند نقر الزر، تشغيل فنكشن ramhan الموجود في وحدة النمطية، و تتكرر العملية حتى نهاية سجلات

و في حالة عدم ايجاد سجل متطابق، جعل خاصية "مرئي" للزر الى لا حتى الزر الاخير في النموذج.

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

[رمهان]

مرحبا بالجميع

اولا استغربت طلب الاخ حسين بشرح الكود من الاستاذ ابو عارف !! والاستاذ وفى وكفى في الشرح !

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

واذا وجدت وقت عملت ان شاء الله نقاط بيع كامل !

هذا ولا ننسى مشاركتكم استاذ ابا عارف في جعل من الاكسس نقاط بيع والذي يندر وجود مثل هذا في المنتديات عربيها واجنبيها !

تحياتي للجميع

 

 

[ابو عارف]

تفضل استاذي هذا هوالبرنامج مع تشغيل كافة وظائف

Access_POS.rar

[حسين العربى]

اخي الفاضل رمهان والله انا ما حبيت اني اثقل عليك اعرف انك مشغول وانا محرج منك والله لكرمك وزوقك

واشكر اخي ابو عارف علي كرمه وزوقه 

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

[ابو عارف]

تفضل استاذي هذا هوالبرنامج مع تشغيل كافة وظائف

Access_POS.rar

[حسين العربى]

ماذا تعني كلا من

rs.MoveLast: rs.MoveFirst

. C.  ,rs,  .  اخي رمهان وشكرا

تم تعديل أكتوبر 16, 2015 بواسطه husseinarby
خطأ

[حسين العربى]

 

 برنامج مطعم2.rar

[رمهان]

 

مشكور الاستاذ ابو عارف والله ماقصرت ! جعله الله في موازين حسناتكم !

 

والله تسلم اخ حسين واهنيك على اخلاقك العالية ! وهذه المناقشات والافكار كلها بركاتك!

[رمهان]

 

اولا بالنسبة ل rs  هو كائن من نوع كائن recordset وطبعا الاصح ان نعرفه ب   dim rs as recordset   ولكن الاكسس يعرف تلقائيا عندما اسناد القيمة او التعبير !

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

ونرجع للجملة فهي بها وظيفتي الذهاب للسجل الاخير ثم الاول لهذا الكائن وهنا لماذا ؟ اولا احتاج المؤشر يكون في اول سجل لانني حلف من اول سجل ولكن ذهبت لاخر سجل ثم الاول وذلك للحصول على عد للسجلات لانه احيانا الاكسس لاياتي بالعدد الصحيح ! ولكن هنا بعد النظر وجدت ان الذهاب لاخر سجل غير مجدي لانني لا احتاج عدد السجلات وانما كان وجوده لفكرة تم تغييرها ! فنكتفي بالذهاب لاول سجل وهنا يمكنك مسح rs.movelast  والاكتفاء ب  rs.movefirst

 

 

ال rs  تم الشرح اعلى

ال c  هو متغير تم استخدامه في جملة الدوران for each  وهذه الجملة تجعلنا نلف داخل collection   اللي هو مجموعة عناصر التاب !

والنقطة معناته حسند خاصية لهذا المتغير والذي اصبح عنصر من العناصر الموجودة ضمن التاب !

 

ولا اخفيك اخ حسين يمكن الشرح يحتاج الى معلومات اخرى غائبه هنا ولكن هذا اللي اقدر عليه !

تحياتي

[حسين العربى]

شكرع لك اخي الفاضل وجزاك الله خيرا

[حسين العربى]

عمل فوق الرئع اخي الفاضل ابو عارف وجزاك الله خيرا وذادك الله من علمه  ده بصراحه  المطلوب

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

ولاكن لي سؤال لوتكرمت  انا عارف تعبتك معي ولاكن ليعم الخير عل الجميع 

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

برنامج مطعم.rar

[wael_rafat]

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

اخواني الكرام بارك الله فيكم جميعا ..... على هذا الموضوع الهام والجديد

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

استفسارى هو :- كيفية تلافي النقاط التالية :

1 - عدم السماح لادخال رقم " 0 "  قبل الرقم بحقل الكمية او حقل المبلغ  .... بمعنى عدم سماح كتابة الرقم  01 - 001

2 - عدم السماح لادخال الدوت " . " بحقل المبلغ اكثر من مرة  ........  بمعنى عد سماح كتابة مبلغ يحتوي على اكثر من " . "  مثل  1.2.3

وهل ممكن تحويل الحقول المذكورة من نوع  " نص " الى نوع  " رقم  " ؟؟؟

وبارك الله فيكم جميعا .

صور توضيحية

[رمهان]

حياك الله اخ وائل

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

وهنا انا حرد مش فنيا وانما حسب الحالة : لو تلاحظ اخ وائل بعدم وجود الدوت في لوحة المفاتيح المعمولة في البرنامج لان البرنامج سيعمل بلمس فقط ! ولا مجال للكيبورد !

وبالنسبة للحسبة فان البرنامج سيتجاهل الصفر من اليسار !

وطبعا انشاء نظام متكامل خالي من العيوب يحتاج وقت واتوقع نقاشنا هنا كان حول افكار نقاط بيع وليس تجهيز برنامج نقاط بيع !

هذا وللاساتذة مايرون !

 

تحياتي

[ابو عارف]

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

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

 

تعديل علي برنامج مطعم 2.rar

[حسين العربى]

الف شكر لك اخي الفاضل  ابو عارف فوق الممتاز *****

[wael_rafat]

يا سلام عليك استاذ ابو عارف  تسلم ايدك وزادك الله من علمه