wael_rafat

السلام عليكم ورحمة الله وبركاته ،،،، السادة الافاضل مشرفي واعضاء منتدانا الجميل استفساري عن تحديد بداية ونهاية اسابيع الشهر الحالي بمعنى 1- الاسبوع الاول من الشهر الحالي يبدأ بتاريخ 1 / 4 / 2017 وينتهى بتاريخ 7 / 4 / 2017 2 - الاسبوع الثاني من الشهر الحالي يبدأ بتاريخ 8 / 4 / 2017 وينتهي بتاريخ 14 / 4 / 2017 3 - الاسبوع الثالث من الشهر الحالي يبدأ بتاريخ 15 / 4 / 2017 وينتهي بتاريخ 21 / 4 / 2017 4 - الاسبوع الرابع من الشهر الحالي يبدأ بتاريخ 22 / 4 / 2017 وينتهي المفروض بتاريخ 28 / 4 / 2017 ولكن حتى لا يتبقى يومان بالشهر يمكن عملة الي نهاية الشهر 30 / 4 / 2017 هي الفكرة تدور حول تقسيم الشهر الى اربع فترات اسبوعية والغرض منها تقارير اسبوعية للمبيعات ( الاسبوع الاول - الثاني - الثالث - الرابع ) برجاء من لدية رؤية او مقترح للمطلوب بطريقة افضل ... اكون له شاكرا ،،، كل الشكر والتقدير احبائي ،،، weekly.rar

الف مبروك استاذنا وحبيبنا والي الامام دائما باذن الله

كلام من ذهب!!!! عودا حميدا استاذنا وحبيبنا نورت الدنيا كلها

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

يرجع بالسلامة ان شاء الله

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

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

السلام عليكم ورحمة الله وبركاته اساتذتي الكرام و السادة الافاضل اعضاء منتدانا الجميل تظهر رسالة بصفة مستمرة عند فتح نموذج البداية والذي يقوم بالتأكد من وجود ملف فى جهاز الكمبيوتر ( ملف الويندوز ) والذي يقوم بغلف البرنامج فى حالة عدم وجوده . ولا ادري ما المشكلة ؟؟؟ وانما عند الدخول الى الكود بنافذة الاكواد ثم الخروج منها مرة اخرى لا تظهر هذه الرسالة !!!! ؟؟؟؟ مرفق الكود ورسالة الخطأ Private Sub Form_Open(cancel As Integer) On Error Resume Next If Dir("c:\windows\compu.dll") = "" Then MsgBox "نسخة غير اصلية .. اتصل بالمبرمج non genuine copy , contant programmer", vbCritical, "Error " SendKeys "{ESC}" DoCmd.Quit Exit Sub End If End Sub افيدوني بارك الله فيكم هل هناك مشكلة بالكود ..؟؟؟ ولماذا عند الدخول لنافذة الاكواد ثم الخروج منها تختفي هذه الرسالة ثم تعود مرة اخرى ............. وهكذا علما ان ...... نسخة الاكسس لدي 2013 32 بت كل الشكر والاحترام ،،،،

والبحث سيكون بالمجموعة او الصنف او الشركة ................. الخ وبذلك سيكون البحث سلس وبسيط

مشاركة مع الاستاذ شيفان استاذي الحبيب السيد جمال لا احبذ موضوع البحث عن الصنف بالاسم وذلك لانه فيما بعد سوف يكون احتمال كبير في تغيير الاسم ولذلك احبذ موضوع الكود لانه ثابت لا يتغير وطبعا سيكون الادخال اما عن طريق ادخال كود الصنف مباشرة او عن طريق الباركود كما اشار استاذ شيفان والميزة في ذلك انه مهما تغير اسم الصنف سيظل الكود ثابت تحياتي نعم استاذي خلي الكود صغير نسبيا بمعني 4 او 5 ارقام حتي لا يكون عملية الادخال شاقة على البائع بمعنى مجموعة الاسلاك او الكابلات تبدأ برقم 1 1001 كابل 100 ملل 1002 كابل 200 مللي 1003 ...... الخ مجموعة اللمبات و الاضاءة مثلا تبدأ برقم 2 2001 لمبات فلورسينت مقاس كبير نوع كذا 2002 لمبات فلورسنت مقاس وسط نوع كذا .... الخ وعلية سوف يكون عملية الادخال بسيطة وسلسة شكرا لك اخى الكريم بس انت عارف علشان اخليه يشترى طابعة للباركود ب 3000 جنيه وقارئ كمان بقدهم العملية صعبة شوية اما بخصوص لاصق الباركود نفسة اللي موجود على الصنف حتي يتعرف الكاشير على كود الصنف فممكن تطبع ورقة واحدة فقط لكل صنف على ورق استيكر عادي وتضعة عن مكان تخزين هذا الصنف او عند الكاشير وعلية سوف يقوم الكاشير برؤية كود الصنف وادخالة مباشرة الى البرنامج ، ومع الوقت والتكرار ستكون العملية سلسة رؤية

واياك اخي الفاضل بالتوفيق

عليكم السلام اخي الطاير ولنفترض ان حقل الرقم القومي اسمه civil_no الطريقة الاولي ضع في خصائص الحقل بالجدول عند خاصية input mask القناع 00000000000000 ;0;_ الطريقة الثانية بالنموذج عند خاصية on change if len (me.civil_no.text )<>14 then رسالة بالخطأ me.civil_no.set focus end if بالتوفيق

السلام عليكم مشاركة مع اخي ساند اخي محمد في الغالب هذه الرسالة تدل علي انك تستخدم نسخة اوفيس 64 بت وليس 32 بت راجع هذا الرابط او حاول وضع كلمة ptrsafe قبل كلمة function لتصبح declare ptrsafe function بالتوفيق

تمااام استاذ شيفان الكود يعمل تمام تسلم ايدك تمام استاذ شيفان الكود يعمل تمام تسلم ايدك

بارك الله فيك استاذ شيفان وجاري التجربة

تمام ان شاء الله وتسلم استاذنا وجزاك الله كل خير كل الشكر والتقدير استاذنا .....

هو بالفعل قيمة افتراضية لنموذج المبيعات on load وايضا عند الضغط على زر حفظ بعد ادخال البيانات .... واضحة استاذ رمهاان ؟؟؟ ام اوضحلك اكثر ؟؟

انا وضعت Dim F As Date If DCount("daily_serial", "Torderno") > 0 Then F = DMax("dat", "Torderno") If Date < F Then MsgBox " لا يمكن" DoCmd.close acForm, "f_order" End If End If Me.daily_serial = Nz(DMax("daily_serial", "Torderno", "dat=date()")) + 1 يا سلام عليك يا فناااان يا ملك الاختصارات تسلم ايدك استاذنا الغالــــــــــــــي والله لا يحرمنا منك بارك الله فيك وزادك الله من فضله كل الشكر والتقدير

تمااام استاذي ..... يعمل تمااام

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

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

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

اساتذتي الافاضل بارك الله فيكم المشكلة ان الكود يبحث عن اكبر قيمة لل daily_serial لنفس اليوم المخزن بالجدول بصرف النظر عن الشهر والسنة ، ثم يقوم باضافة +1 يعني مثلا تاريخ اليوم 24 / 2 / 2017 يوجد لدينا بالجدول يوم 24/ 1 / 2017 اعلي قيمة له 30 ويوم 24/ 6/ 2016 اعلى قيمة له 40 ويوم 24/ 9/ 2015 اعلي قيمه له 50 فان الكود يقوم يأخذ اعلي قيمة ليوم 24 بالجدول ثم +1 وهنا اعلي قيمة رقم 50 بتاريخ 24/ 9 /2015 وبعد اضافة 1 لها فيصبح الرقم الجديد 51 مع ان الشهر والسنة مختلفين ... وعلية ..... يجب على الكود التعرف علي اكبر قيمة لليوم الحالي التابع للشهر الحالي والتابع للسنة الحالية

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

اهلا بيك استاذنا الغالــي رمهان صاحب اللمسات الرمهانية الجبارة ... الله لا يحرمنا منكم بعد التجربة حصل الاتــــي :- 1 - الترقيم خلال اليوم الحالي والايام التالية خلال الشهر ...... تمااااااام 2 - عند تغيير التاريخ للخلف يغلق النموذج ..... تماااام ولكن .. عند اختيار شهر او سنة مختلف مثل 1 / 3 / 2017 او 1/ 1 / 2018 يقوم بترقيم الرقم ( 1 ) فقط .....ثم بعد ذلك تظهر الرسالة التالية وهذا هو الملف wael.rar وبارك الله فيك وجزاك الله عنا كل خير كل الشكر والتقدير استاذنا ...