اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

  • Like 2
رابط هذا التعليق
شارك

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

كلك بركة !

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

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

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

 

تحياتي:fff:

رابط هذا التعليق
شارك

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

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

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

 54Items.rar

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

 

 

  • Like 2
رابط هذا التعليق
شارك

 

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

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

  • Like 1
رابط هذا التعليق
شارك

اعزائي

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

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

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

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

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

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

Access_POS.rar

تم تعديل بواسطه رمهان
  • Like 1
رابط هذا التعليق
شارك

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

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 ولكن لا ادري لماذا اكتف اللاستاذ رمهان على عرضه في الرسالة فقط، بعض تغيرات بسيطة  في البرنامج يعمل بكفائة كاملة  ماشاء الله عليه.

رابط هذا التعليق
شارك

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

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

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

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

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

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

 

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

 

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

 

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

  • Like 1
رابط هذا التعليق
شارك

 

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

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

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

 

 

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

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

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

 

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

تحياتي

رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

صور توضيحية

1.thumb.JPG.565c5b3cfecb4817e4c430ee3f422.thumb.JPG.6b1a92607fba5f590f53f007f42d

رابط هذا التعليق
شارك

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

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

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

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

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

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

 

تحياتي

  • Like 1
رابط هذا التعليق
شارك

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

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

 

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

  • Like 1
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information