أبو إبراهيم الغامدي

أهلا بكم في المرفق السابق كان هناك إشكالية مع زر الإدخال قمت بضبطه.. كما أضفت مسح جميع الحقول إلى حدث النقرر المزدوج للزر Clear.. منع إدخال الأرقام من لوحة المفاتيح.. إليكم المرفق: Advanced KeyPad.mdb

أهلا بك @وائل أبو عبد الرحمن استخدام رز الأمر في إدخال البيانات فيه صعوبة بعض الشيء لأن هذا العنصر يقبل التركير وبالتالي تحتاج إلى إعادة التركيز إلى مربع النص بعد ضغط زر الأمر في كل مرة.. ولهذا تصبح الشفرة طويلة ومربكة. لذا أنت بحاجة إلى عنصر لا يقبل التركيز حتى تتمكن من البقاء في مربع النص بدون استخدام الشفرة. العنصر الملائم لهذا الغرض هو غنصر التحكم (عنوان Label). جرب هذا التعديل: Advanced KeyPad.mdb

أهلا بك.. هل يمكن أن تعطيني مزيدا من التوضيح..

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

هذا الخطوة متقدمة.. خارجة عن نطاق المساعدة العفوية عندي! إليك التعديل: DB2.accdb

أهلا @وائل أبو عبد الرحمن في التعديل المرفق أجريت بعض التعديلات التي تزيد في تحسين المنظر... أنشأت جدول باسم WebCode ونقلت إليه تعليمات تنسيق الصفحة وذلك من أجل إعطاء مزيد من الحريه في تنسيق الصفحة من خارج محرر الشفرة. جعلت عدد اللكلمات المطابقه لا يظهر إلا إذا كان هناك كلمات مطابقة فقط. إليك التعديل: DB2.accdb

أستاذ @ابوخليل أعجبني هذا التعبير.. سلمت قريحتك..

أهلا بك @محمد احمد لطفى أعتذر عن هذا الخطأ غير المقصود.. من المفترض أن أصرح بوظيفة تعيد بيانات تاريخ بالتحديد، وليس بيانات متنوعة.. غير السطر الأول من الوظيفة ليصير كالتالي Function AddMonth(XDate As Date) As Date

أهلا @محمد احمد لطفى استخدم الدالة التالية Function AddMonth(XDate As Date) Select Case XDate Case (#8/1/2016#) To (#10/19/2018#) And (Day(XDate) > 23) XDate = DateAdd("m", 1, XDate) Case (#10/20/2018#) To (#12/30/2024#) And (Day(XDate) > 19) XDate = DateAdd("m", 1, XDate) End Select AddMonth = Format(XDate, "yyyy/mm") End Function إليك التعديل: datex.accdb

أهلا بك @محمد ابوعبد الله لديك طريقتان لعمل ما أشرت إليه - الطريقة الأولى: إنشاء متغير عام على في مستوى قاعدة البيانات يحمل اسم التقرير النشط، ثم نضع هذا المتغير موضع اسم التقرير في محدد مجموعة التقارير في النوذج كالتالي '-- تصريح لمتغير على في مستوى وحدة نمطية عامة Dim ActiveReprotName ActiveReportName=Screen.ActiveReport.Name If strSQL <> "" Then '-- Strip Last Comma & Space strSQL = left(strSQL, (Len(strSQL) - 2)) '-- Set the OrderBy property Reports![ActiveReportName].OrderBy = strSQL Reports![ActiveReportName].OrderByOn = True Else Reports![ActiveReportName].OrderByOn = False End If عيب هذه الطريقة أنك تحتاج إلى التأكد من أن النقرير النشط هو التقرير الذي تريد فرزه؛ وذلك من خارج النموذج - الطريقة الثانية: إنشاء قائمة منسدلة تعيد أسماء التقارير عند فتح نموذج الفرز ومن ثم تقوم بفتح التقارير عن طريق نموذج الفرز ، وتكون اسم التقرير العائد من القائمة المنسدلة هو نفسة التقرير في معالج الفرز.. وهذه الطريقة هي الأفضل.. للفائدة: أذا كانت اسماء التقارير لديك باللغة الإنجليزية (وهو المتوقع) قم بالنقر بالزر الأيمن للفارة على اسم التقرير ومن خصائص التقرير قم بإضافة وصف مختصر بالعربي للتقرير واستخدم هذا الوصف كاسم للتقرير في القائمة المنسدلة.. مثلك لا يحتاج إلى التعديل على المثال

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

وحتى أنا لم أدرسها قط! لكن قبل (أوفيسينا) كنت أقرأ ملف التعليمات. لا فرق. فقط W أول حرف من Word!

أهلا @ابا حفص استخدم الوظائف المالية في أكسس وأرح نفسك (FV,PV,PTM) وغيرها.. وفي ملف التعليمات شرح كافي إن شاء الله لكلونك سوف ستخدم هذه الدوال للسنوات بدلا من الشهور فيجب أن يكون المعيار الشهري مضروبا في (1) وليس (12)

أهلا @Barna المنهج Quit له محددات يمكنك التعرف على المزيد عنها في ملف تعليمات Word VBA إذا أردت. إليك التعديل: Barna.zip

أهلا بك @محمد احمد لطفى لم استخدم لغة أخرى! إليك التعديل: Photo.zip

أهلا بك @Barna قمت بعمل إجراء بسيط لمعالجة البيانات حسب ما تفضل به الاستاذ جعفر.. أرجو أن تكون صحيحة وخالية من العيوب، وتنال استحسانكم.. 1024.barna.accdb.zip

أهلا @محمد احمد لطفى أعتذر عن التأخير.. في مستعرض الصور: اضغط على علامة الزائد لإضافة سجل جديد.. قمت بإجراء بعض التعديلات على النسخة السابقة.. بالنسبة لعناصر HTML وتنسيقتها فقد وضعتها في الجدول CodeSnipping يمكنك إعادة تنسيق العناصر عن طريق الجدول دون الرجوع إلى الشفرة.. أتمنى أن تنال الإضافة إعجابكم.. Photo.zip

أهلا بك @وائل أبو عبد الرحمن أعدت تصميم النموذج الأصلي لمعالج البحث بما يتوافق مع طلبك.. قارن بينه وبين معالج البحث المصمم على صفحة HTML إليك التعديل: Advanced Search.accdb

أهلا بك @وائل أبو عبد الرحمن هذه الفكرة لا تصلح لمشروعك أبدا، للأسباب التالية.. - تتطلب نقل المشيرة بعد كل بحث لحقل البيانات (لاتقوم بالتظليل إلا مع التركيز) - لا تدعم تظليل القم المتعددة في الحقل ومن باب الأولى؛ - لا تدعم السجلات المتعددة أتمنى أن تغلق هذه المشاركة

أهلا بك أبا عبدالرحمن نعم.. ما تبقي تجده في التعديل التالي.. وبهذا تكون مداخلتي في هذه المشاركة قد انتهت. تعديل - جزاكم الله خيرا.accdb

لم تجب على السؤال! هذا مثال بدون النموذج الفرعي Photo.zip

أهلا محمد.. يمكن بالنموذج الفرعي، وبدونه إذا أرت.. لكن ما الخطوة التالية بعد عرضها حسب الإدارة؟

أهلا محمد.. أعتذر في تأخر الرد.. هذا مثال بسيط على الفكرة، إذا أردت إضافة أشياء أخرى، أو إجراءات معينة.. أعلمني بذلك. Photo.zip

أهلا بكم.. في هذه التعديل قمت بإدراج عداد السجلات والكلمات في عرض الجدول فقط، على أن أكمل الباقي بداية الأسبوع القادم إن شاء الله... إلا إذا قام أحد الزملاء بالإكمال.. تعديل - جزاكم الله خيرا.accdb

يا أبا عبدالرحمن دعني من هذا الإنشاء الطويل وأعطني الزبدة.. أنا مبرمج أتعامل مع المنطق! إلهاب المشاعر لا يجدي نفعا في هذا المجال.. لست ملزما بتتبع مواضيعك ومشاركات! إذا كان لديك استفسار يتعلق بهذه المشاركة ضعه هنا مباشرة.. فيما يتعلق بإحصاء السجلات والكلمات فالعمل جارٍ عليه وسوف أدرجه في هذه المشاركة.. لكن إذا أردت أن تخبرني أين أضعه فافعل، وإلا عملت برأيي..