ابو عارف

عليك نور أخي ممكن ارفاق النموذج

أسماء نماذج طبعا مختلفة انا سئلتك أسماء مربعات وتسمياتها داخل نماذج ، و نسيت اسئلك مصادر عناصر تحكم تلك النماذج هل هو نفس جدول ولا كل نموذج له جدول على العموم انت جرب المرفق و وافيني بنتيجة sa.rar

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

وياك وياك أخي

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

وعليكم السلام تفضل ProgControlCard.mdb

On Error Resume Next لعدم وقوف على خطاء و تكميل المشوار ولكن قبل نهاية و عرض النتيجة علينا اضافة سطر يظهر رسالة خطاء و يقف دون عرض نافذة Debug حتى لا يدخل المستخدم نافذة أكواد مثلا: Private Sub Command1 Click() On Error Resume Next 'كود الحاق بيانات الى جدول If Err.Number > 0 Then MsgBox Err.Description: Exit Sub Msgbox "(تم ترحيل)" End Uub

العفو أخي هذا لعدم عرض #خطأ في حال قيمة مربع DT تكون خالية

تفضل Projects.accdb

حاضر لم لا بديتا غيرت اسم قائمة منسدلة(مربع) في نموذج رئيسي الى combo1 اذا قيمة الموجودة في Combo1 هي "M" المعادلة تقوم ب [Qavilable]-[Q] و غير ذالك، عكس بالعكس [ْQ]-[Qavilable] غير الى المعادلة الى : =IIf([Forms]![lsh]![combo1]="M",[Qavilable]+[Q],[Qavilable]-[Q]) بتوفيق

وعليكم السلام تفضل kaser906.accdb

العفو أخي انا في خدمة

شكراً اخي @ابو ياسين المشولي لو جربت الزر الثاني يفي نفس غرض اما اجبار المستخدم استخراج ملف من ارشيف ، تعمدت عليه بسبب مسار برنامج في ارشيف تكون في مجلد Temp ويصعب عثور المستخدم على الملف المستخرج لهذا لسبب وضعت شرط if حتى يضطر مستخدم وضع البرنامج في مجلد يعرف مساره اما اذا حذفت شرط if يعمل ككود اللي تفضلت به حتى لو برنامج في ارشيف أو خارج ارشيف.

عزيزي @jo_2010 اضقت لك زرين في نموذج عند ضغط على الاولى ستفتح لك نافذة غير اسم الملف في مربع اسم الملف ثم عند ضغط على موافق، سيستخرج ملف pdf في مجلد مستندات أو حدد مجلد مراد استخراج تقرير اليه من مجلدات معروضة في شاشة ثم اضغط زر موافق و عند ضغط على زر الثاني سيقوم البرنامج بإنشاء pdf في نفس مسار قاعدة بيانات ولكن بعد استخراج القاعدة من ارشيف بتوفيق،، Lab.rar

شوف أخي اول شئ انت حطيت اسم و بعض بيانات المريض في رأس تقرير و من المعروف رأس تقرير يظهر مع صفحة الاول فقط لا مع باقي صفحات و فعلا من الصعب طباعة تقرير لكل مريض على حدى و الان تم نقل تلك البيانات ال رأس صفحة و عمل تقرير واحد لجميع مرضى بصفحات متعددة (لكل مريض صفحة) تماما كملف PDF ولا داعي تحويل الى PDF يمكن طباعته على الورق متى ما شئت اضفت زر اضافي بأسم (معاينة) عند ضغط علىه سيظهر لك تقرير في عرض معاينة يمكن تنقل بين صفحات من خلال اسهم اسفل تقرير و اذا حبيت تحويل الى PDF اضغط اختصار ctrl + p و غير طباعة الى Microsoft print to pdf اضغط على موافق اكتب اسم الملف و اختر مكان حفظ ثم ok أو موافق اما عند ضغط على الزر السابق ، سيطبع جميع صفحات مباشراً دون عرض معينة الى طابعة افتراضي (طابعة الورق أو Microsoft print to pdf او اي طابعة اخرى) Lab.rar

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

انظر الملف 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