ابو عارف

تستاهل تستاهل و أكثر يا أخونا @ابو ياسين المشولي ألف ألف مبروك دائما الى الامام

انظر الملف pdf تم انشاء الملف بضغطة زر واحد كل مريض في صفحة مستقلة ، لو وصلنا الجهاز مع طابعة أوراق سيطبع نفس صفحات على الورق و بضغط زر واحد طبعاً ppp.pdf

سلامات سلامات ما تشوف شر

السلام عليكم و رحمة الله و بركاته أخي صالح ماشاء الله عليك على تطور البرنامج و افكار رائعة من اول اطلاع على البرنامج بصراحة ضيعت اين بداية و اين نهاية البرنامج ولكن بعد دراسة دقيقة توصلت الى بعض نقاط مهمة كما اشار اليه الأخ( @at_aziz) و هو إضافة ازرار و اضافة الصور كما تفضلت و حاليا عملت تغيرات على هذين النقتطين حيث قبل تغبر كان من المفروض إنشاء الزر ثم تسميتها بالكود الوجبة المخصصة ثم وضع علامة ... و حاليا اضفت بعض ازرار في كل فئات و عند اضافة زر جديد، لا داعي ابة ربط يدوي البرنامج يقوم بهذالدور و ماعليك الا اضافة زر الوجبة و زر الصورة فقط يدويا علما بانه يمكن حتى إنشاء ازرار برمجياً ولكن تلك الاجراء يتطلب فتح النموذج في عرض تصميم و اضافة الزر ثم حفظ العمل و اغلاق نموذج ولكن هذا طريقة يتعذر بعد تحويل ملف الى accde . وثانيا اضفت الصورة من مجلد الصور سواء مسار الصورة موجود في جدول ام لا هذا و يوجد بعض ملاحضات بسيطة حسب فكرتي طبعا ساقوم بتعديل حسب فراغ منهم عدم تفعيل زر في حال عدم توافر كمية كافية على سبيل المثال و دمتم بصحة و العافية ملاحظة: يجب نسخ المجلد داخل ارشيف الى اي مكان في الجهاز ثم فتحه و اطلاع عليه Restaurant.rar

وعليكم السلام تفضل 7.rar

أخي قاضي جرب المثال و وافين بنتيجة (QuantityA)=(QuantityA)+(QuantityS) يفي نفس غرض تنفيذ استعلام لان مصدر هما نفس حقلين في جدول (ItemsT) دون مشاكل حذف السجل. InvoiceSale_8 (2).rar

تم حذف المشاركة

تم حذف المشاركة

السلام عليكم الحل على حسب عنوان الموضوع أخي @hassam0k New Microsoft Access Database (2).accdb افتح استعلام Q1 و انظر النتيجة

وعليكم السلام و رحمة الله و بركاته جرب المثال إخفاء أو إظهار التقرير.accdb

الحمد لله على ايجاد مطلوب كلامك صحيح اخي و انا اعتذر جدا لعدم انتباهي للتاريخ على بالي تاريخ اليوم 19 ولكن عند شراء كرت تعبئة من مكينة الكروت ، وجدت تاريخ اليوم 18 و الآن فتحت الجهاز حتى اقوم بتعديل الكود بطريقة : Function DayDate(Num As String) As Date Dim x As String Dim DT As Date Select Case Num Case "السبت", "Saturday" x = 0 Case "الأحد", "Sunday" x = 1 Case "الإثنين", "Monday" x = 2 Case "الثلاثاء", "Tuesday" x = 3 Case "الأربعاء", "Wednesday" x = 4 Case "الخميس", "Thursday" x = 5 Case "الجمعة", "Friday" x = 6 Case Else x = "" End Select DT = Date - Weekday(Date) + x DayDate = DT End Function و تعديلك صحيح ايضا

و هذا محاولة ايضا كما قال أخي ابو ياسين عند كتابة اسم يوم بالعربي أو الأنجليزي سيظهر تاريخ نفس يوم من اسبوع الحالي في مربع التاريخ New Microsoft Access قاعدة بيانات (5).accdb

مشاركه مع أخي صالح بريكان هناك طريقة اخرى لاستخراج الاسبوع بدقة دون دخول الاسبوع السابق ولا اللاحق : اما طريقة الأخ الغالي /صالح بريكان تظهر جميع أيام اسابع ماضية و لاحقة ما يصادف ايامها يوم اسبوع الحالي مثلا اليوم يوم السبت تظهر تواريخ جميع أيام السبت سواء ماضية اولاحقة 10/8 24/8...... xx.accdb

اولاً نحمد الله على وصولك للمطلوب ثانياً : لا ارحتك ولا اسررتك كما ارحتنا و اسررتنا بدعائك الطيبة و ادعو الله لك بمثل دعائك و اكثر، الله يوفقك ويرزقك من حيث لا تحتسب .

تفضل أخي جرب ان شاء الله يكون حسب المطلوب. Hr_Kashf.accdb

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

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

اولاً اعتذر أخينا يونس الخطابي لانني طرحت السؤال في موضوعه دون اذن مسبق جربت كذا طرق حتى تغير حقل الى نص منسق للاستفادة من خصائص html ولكن بلا جدوى في اصدارين 2007 ، 2010 للاسف لا اما نسخ احدث من 2010 ما جربت .

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

مبروك مبروك الف مبروك أخي محمد و كل عام و انتم بخير

طيب غير سطر : OldImage = Me.imgWorker.OldValue الى : OldImage = Nz(Me.imgWorker.OldValue, FileName(Worker)) في الملف الاول قبل تعديل طبعا

السلام عليكم و رحمة الله و بركاته و السبب سجل جديد ليس لديه قيمة سابقة و الحل: استثناء سجل جديد في بداية الكود و عرض رسالة تفيد بان سجل اللي قمت باضافته ليس له صورة هل تريد اضافة صورة؟ ، ثم خيارين اذا اخترت لا سيضيف الاسم الجديد بلا خطاء و اذا اخترت نعم سيفتح نافذة لتختار لصورة و عند اختار الصورة البرنامج ينشئ مسار في مجلد صور ثم ينسخ الصورة باسم العامل. والمثال في المرفق Worker (4) (2).rar

امين آمين اخي الكريم و جزاك الله بمتله واليك اضافة جديدة اضافة علامة مئوية مع رقم نفسه دون دون مربع اضافية لوضع علامة مئويه فيها Da3.accdb

تفضل اخي Da3.accdb

يبدو تنسيق الحقل (بالمائة) تأكد منه و احبرني