kha9009lid

هذا الامر في السابق اما حاليا فالامر تغير مايكروا توصي باستخدام 64 علما بانها سوف توقف اصدار انظمة تشغيل 32 بت للنسخ الاحدث من ويندوز 10 الاصدار 2004 وسبق مناقشة الموضوع في شهر رمضان الماضي

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

اضافة لما اشار الية الاستاذ @husamwahab يمكن استخدام كود الرقم مباشرة للالوان ..........BackColor = 16250095 اود ان اضيف بعض الادوات المساندة لاختيار الالوان لقاعدة البيانات هذه الصفحة تحتوي على مجموعة كبيرة من الالوان بثلاث صيغة تعمل مع اكسس اداة صغيرة لمعرفة كود اللون لاي موقع او برنامج قاعدة بيانات لتحويل كود اللون لصيغة الوان اكسس الرقمية او صيغة Hex او R G B الملف في المرفقات Colors.rar

جرب >="45"

مع ذلك ممكن عملها بدون الى الحاجة الى عدة تقرير وعدة استعلامات تقرير واحد مبني على استعلام واحد ويكون معيار الاستعلام حقل في نموذج ويتم اختيار التصفية من قائمة منسدلة تحتوي على ممتاز جيد جدا جيد مقبول راسب

استخدم Between 45 And 50 في معيار الاسعلام للدرجة

التصفية يقصد فيها اظهار سجلات وفق معايير محددة ولكن انت حسب فهمي ترغب في جملة شريطة لاستخراج التقدير المستحق للطالب حسب الدرجة اذا كان فهمي صحيح ممكن عمل ذلك بالعديد من الطرق ولكن دائما الحل الاسهل اقرب الى الذهن وسوف اشرح ذلك باستخدام طريقتين الطريقة الى الاولى باستخدام دالة IIf ولها وسيطتين اذا حضر الطالب الاختبار فهو ناجح او راسب Expr1: IIf([الدرجة] Between 90 And 100;"ممتاز";IIf([الدرجة] Between 89 And 75;"جيد جدا";IIf([الدرجة] Between 74 And 64;"جيد";IIf([الدرجة] Between 63 And 50;"مقبول";"راسب")))) الطريقة الثانية باستخدام الدالة Switch وتتميز بتعدد الاحتمالات دون الحاجة لتكرار كتابنها ويكون الكود على النحو التالي Expr2: Switch([الدرجة] Between 90 And 100;"ممتاز";[الدرجة] Between 89 And 75;"جيد جدا";[الدرجة] Between 74 And 65;"جيد";[الدرجة] Between 64 And 50;"مقبول";[الدرجة]<50;"راسب") ومرفق مثال للطريقتين Database1391.accdb

اللهم اشفي والديه بمنك وكرمك شفاءا لا يغادر سقما وجميع مرضا المسلمين ومتعهم بالصحة والعافية ما أحييتهم يا رب العالمين اللهم اجعل ما أصبتهم رفعة في درجاتهم وزيادة في أجورهم يا رب العالمين آمين الحقيقة اكثر مالفت نظري وجعلني اقف لك بكل احترام وتقدير كود xml في جدول USysRibbons وبالرغم من اجادتي لهذة اللغة واستخدامي لها في اكسس وغيرها الا اني اجد الكود الذي قمتم بكتابتة رائع ومختصر ويؤدي المطلوب بشكل جميل ويجيب عن استفسارات كثيرة لرواد الموقع واعتبره مرجع لمن يريد انشاء قوائم للاصدارات من 2007 - 2019 ولعلنا سوينا نجد وقت مناسب لشرح استخدام هذه الوسوم وخصوصا ان استخدامها لا يقتصر على زر امر وانما يمكن عمل قوائم ديناميكية وخانات احتيار ومربعات بحث تغني عن وضع مربع نص داخل النموذج الخ بارك الله فيك اخي صالح وجعل ماتقدمه من عمل في ميزان اعمالك تحياتي وتقديري

طابعة جيدة وتستخدم ورق مقاس 80 فقط اختار عرض 7.9 وفي تنسيق التقرير ضع العرض 6.5 انظر للصورة المرفقة بالنسبة لطول الورقة غير مهم الطابعات الحرارية تطبع الرول حسب طول التقرير ويتم قطع الورقة من خصائص الطابعة بشكل اتوماتيكي او يدوي حسب اعدادك لها

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

الشكر لله اخي احمد🌹

بعد اذن اخي محمد كود مختصر ممكن عن طريق كود استعلام على اساس الرقم الفردي يبقى صفر والرقم الزوجي اي ما يقبل القسمة على 2 يحدث ابى 1 DoCmd.RunSQL "UPDATE tblNumbers SET tblNumbers.chkdays = 1 " & vbCrLf & _ "WHERE (((IIf([mynumber] Mod 2=0,""Even"",""Odd""))=""Even""));" للتصفير DoCmd.RunSQL "UPDATE tblNumbers SET tblNumbers.chkdays = 0;" TestDB.accdb

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

جرب المرفق Database001.accdb

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

ممكن عن طريق وحدة نمطية واستعلامين 2 النتيجة النهائية في استعلام q_2 ConcatRelated("[q]";"nam4";"[nb] = " & [nb];"[id]";" - ") 0.accdb

جرب المرفق من مشاركة سابقة لاستاذنا الفاضل @jjafferr 0.accdb

من هنا

الشكر لله اخي فايز ايضا من اساليب البحث اذا اردنا ان نبحث بجزء من الاسم بدون الحاجة الى معيار like واستخدام علامة * عندها ممكن استخدام FindRecord ويكون البحث على النحو التالي Me.نص18.SetFocus DoCmd.FindRecord n, acAnywhere, , acSearchAll وتفسيرها بعد كتابة الاسم او جزء منه في حقل البحث n انقل التركيز الى حقل اسم الموظف وهو لديك في النموذج باسم نص18 ثم نفذ البحث وكذلك الكود الجميل للاستاذ محمد ممكن البحث بجزء من الاسم بعد استبدال السطر الثالث ليكون rs.FindFirst "[10] like '*" & Me.n & "*'" اساليب البحث كثيرة ومتعددة وهناك طرق اكثر احترافية ولكن الكثير من مبرمجي اكسس يفضلون وضع حقل خاص للبحث بينما يمكن البحث في نفس الحقول الاساسية للنموذج ولكن العملية اكثر تعقيدا

اضافة لما اشار اليه الاساتذة ناقل و محمد ممكن استخدام الكود التالي Me.Filter = "[10] like '*" & Me.n & "*'" Me.FilterOn = True وايضا الكود التالي يؤدي المطلوب DoCmd.ApplyFilter , "[10] like '*" & Me.n & "*'" وجميعها تعطيك امكانية البحث باي جزء من الاسم تحياتي استاذ فايز ولا اخفي اعجابي ببرنامجكم وجهودكم حفظكم الله 🌹

تجربتي انا اضع جدول للمشتريات وجدول فرعي اطراف مشتريات وجدول للمبيعات وفرعي اطراف مبيعات وفي كل منهما استخدم الترقيم التلقائي الخاصة باكسس ولكن باجراء تعديل لتكون فاتورة المبيعات الاولى تبدأ برقم 10000001 وفاتورة المشتريات برقم ايضا تلقائي بيبدأ بـ 20000001 الفواتير تحفظ تلقائيا بمجرد ادخالها ولكن الفاتورة تبقى غير منفذة الا بالنقر على زر حفظ حيث يتم اضهار نموذج السداد وبمجرد تنفيذ السداد يتم زيادة الكميات او انقاصها في جدول الكميات الخاص بالاصناف وتكون الفاتورة منفذة لايمكن الغائها او تعديلها الالغاء او تعديل الكميات يكون عن طريق شاشة المرتجع وهذا الامر مفيد بالنسبة لي لكون بعض العملاء يتراجع عن الشراء او يرغب في البحث عن اصناف اخرى وهنا يمكن تعليق الفاتورة و فتح فاتورة جديدة للعميل التالي وايضا لا يتغير كميات الاصناف الا للفواتير المنفذة وللتحديث استخدم جداول مؤقتة واستعلام يقوم بحساب الكمية المتوفرة وتنفيذ الزيادة او النقص حسب نوع العملية ولم يواجه مستخدمي الاصدارة الاخيرة بيتا4 اي مشكلة علما بان احد المستخدمين لديه اربعة موظفي كاشير وتصل عند الذروة الى 6 موظفين يعملوا عن طريق الشبكة للحصول على الترقيم التلقائي المنسق يمكن بعدة طرق من ابسطها عن طريق استعلام sql للمبيعات INSERT INTO invoices ( bil_number ) SELECT 10000001 AS Expr1; للمشتريات INSERT INTO invoices ( bil_number ) SELECT 20000001 AS Expr1; هذا الاستعلام ينفذ في بداية تشغيل القاعدة ثم يحذف ملاحظة مهمة عند حذف كافة الفواتير وعمل ضغط واصلاح للقاعدة فسوف يعود الترقيم الاساسي لاكسس من رقم 1 اما في حالة وجود فواتير مسجلة فلن يكون هناك اي مشكلة مع الضغط والاصلاح

ياهلا ابا عبد العزيز لاعادة الحقل عن طريق الكود CurrentDb.Execute "ALTER TABLE tbl1 ADD COLUMN test text(100)", dbFailOnError لاحظ حددنا نوعة نصي وحجمة 100 حرف ويمكن تحديد اي نوع من انواع الحقول مثلا حقل رقمي حجمة ونوع تنسيقة الخ او تاريخ ووقت والتنسيق وهكذا اخي فايز اعتذر عن التطفل على موضوعك ولكن تحمست بزيادة

احسنت يا ابا عبدالله لتكون الامور واضحة فهناك فرق بين حذف سجل كامل او تحديث حقل او عدة حقول ومن ضمن التحديث جعل الحقل فارغ او حذف حقل من الجدول بما يحتوي من بيانات اما لحذف حقل من الجدول ولايمكن التراجع فيكون عن طريق Dim strDrop As String strDrop = "ALTER TABLE tbl1 DROP COLUMN test " CurrentDb.Execute strDrop, dbFailOnError وللعادة الحقل يكون عن طريق الدخول على تصميم الجدول واعادة تعريفة او عن طريق الكود وفي جميع الاحول وداعا للبيانات المحذوفة

السلام عليكم الاستاذ العزيز @محمد أبوعبدالله جزاه الله خير وضع حل جميل يؤدي المطلوب بناء على طلب اخونا الزبير ومداخلتي هنا تعبر عن وجهة نظر غير ملزمة وانما رأي شخصي قد يستفيد منه احدما مربع التحرير والسرد هللة يحتوي على قيمتين 0.15 و 0.30 وبالتي فان اختيار احدهما والتعديل بهذه الطريقة سوف يقوم بتعديل كافة السجلات مهما كانت كمية الاستهلاك وهذا الامر سوف يؤدي الى قيمة خاطئة في قيمة الاستهلاك لدينا تحسب قيمة الاستهلاك على اساس كمية الاستهلاك / 30*30 مثلا كمية الاستهلاك 7000 ك و س وعدد الايام 30 يوم تحسب 6000 / 30 * 30 = 6000 6000 * 0.18 = 1080 + 1000 * 0.30 = 300 الاجمالي 1380 * 0.15 = 1575 باضافة 10 ريال رسم عداد ولو كانت نفس كمية الاستهلاك 7000 ك و س وعدد الايام 27 تكون 7000 / 30 * 27 وتكون قيمة الفاتورة 1679.80 ريال مما تقدم فان عمل برنامج لاحتساب الفواتير يتطلب منا تحديد فئة المستهلك سكني تجاري صناعي حكومي قيمة الشريحة المالية لكل فئة كمية الاستهلاك عدد ايام الفاتورة عندها ممكن ان نعمل البرنامج بشكل صحيح ولسنا في حاجة الى ادخال التعرفة كل مرة وانما يتم احتساب الفواتير بشكل تلقائي بمجرد ادخال حقل القراءة الحالية يوجد في الموقع برنامج جميل لاستاذنا محمد صالح لاحتساب الفواتير في مصر يعطي افكار جميلة لكيفية احتساب الفواتير اطيب تحياتي

مرحبا اخي زبير للحصول على اجابة اسرع يفترض ان تشرح المطلوب في نفس الموضوع لانه الكثير من الاعضاء لا يرغب في تحميل الملف المرفق ثم يقرر هل يستطيع تقديم المساعدة من عدمة ايضا اخي العزيز لا تستعجل الرد وباذن الله دائما ستجد العون من اعضاء الموقع الكرام في المرفق قمت باجراء تعديل على اساس عند اختيار التعرفة من قائمة هلله يتم احتساب المبلغ سواء كانت التعرفة 0.15 او 0.30 هلله ويتم احتساب الضريبة بواقع 15% هل هذا هو المطلوب اخيرا يمكن عمل المطلوب بشكل افضل بحيث يتم احتساب التعرفة والضريبة بشكل تلقائي بمجرد ادخال قيمة القراءة الحالية ولكن يتطلب معرفة متى يتم احتساب تعرفة 15% ومتى تكون 30% الملف مرفق تجربة.accdb