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

وعليكم السلام ورحمة الله وبركاته ضع الشفرة التالية في زر أمر.. 'On Error Resume Next Dim Tbl As TableDef, NewDB '-- Get current db name and combine date with it NewDB = Replace(CurrentDb.Name, ".", "_" & Format(Date, "dd-mm-yyyy") & ".") '-- create new db If Dir(NewDB) <> "" Then Kill NewDB CreateDatabase NewDB, dbLangGeneral '-- Loop throu db tables and exoprt them to new db For Each Tbl In CurrentDb.TableDefs If Tbl.Name Like "[!M,!U]*" Then DoCmd.TransferDatabase acExport, "Microsoft Access", NewDB, acTable, Tbl.Name, Tbl.Name, False End If Next

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

كان القصد من الإحالة إلى Outlook هو التركيز على الفكرة من خلال مثال محسوس ولم أقصد الاستفاضة.. قمت بعمل مثال يحاكي Outlook.. قم باختيار تاريخ ووقت التنفيذ.. عدل الوقت إلى وقت قريب جدا لتري النتيجة.. لا تنس اختيار النغمة بالنقر على أيقون الجرس.. لا يلزم أن يكون النموذج مفتوحا إليك المثال: Reminder.zip

وعليكم السلام ورحمة الله عملت لك إجرائين.. إجراء لحفظ مرفقات السجل الحالي إجراء لحفظ جميع المرفقات في الجدول إذا كان حقل المرفقات يحمل أكثر من مرفق فسيقوم الإجراء بإضافة رقم تسلسلي لاسم الصورة بغض النظر عن نوع المرفق إليك المرفق: Save Attachment File.zip

جرب على الهوية رقم 111 إليك التعديل:mailk.zip

قمت بتطبيق طريقة الحل على النموذج P1.. كما غيرت مصدر بيانات النموذج إلى project1. علاقة الجدول يجب أن تكون رأس بأطراف وليس رأس برأس إذا كنت تريد إظهار كافة البيانات للجدول Project1 وكذلك جداول المشاريغ الأخرى.. إليك التعديل:3-10-2017.zip

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

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

وعليكم السلام ورحمة الله.. أهلا بك محمد.. في أشياء في النموذج formulaire3 أوقفت عملها! الرجاء التأكد منها وحذفها إن لم يكن لها صلة بالنموذج إليك المرفق: Nouveau Microsoft Access Base de données.zip

السلام عليكم يمكن إعادة ضبط الطابعة الافتراضية لأكسس برمجيا على النحو التالي Function UF_REPORT_PROCESS(Optional REPORT_VIEW As AcView) Dim CUR_PRINTER As Printer '-- GET CURRENT DEFAULT PRINTER Set CUR_PRINTER = Application.Printer '-- SET NEW DEFAULT PRINTER Application.Printer = Application.Printers(Me.CMB_PRINTER_LIST.Value) '-- PRINT REPORT DoCmd.OpenReport Me.LST_REPORT_LIST, REPORT_VIEW '-- RETURN TO SYSTEM DEFAULT PRINTER Application.Printer = CUR_PRINTER End Function وهذا مثال مبسط: SET DEFAULT PRINTER.zip

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

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

التالي الذي أشرت إليه ليس له علاقة بعنوان السؤال.. السؤال تمت الإجابة عليه، وهذه المشاركة في نظري مغلقة

وعليكم السلام ورحمة الله وبركاته @محمد احمد لطفى إليك التعديل test200.zip

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

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

عودا إلى ما سبق بيانه في خطة معالجة البيانات في نموذج البحث الموسع.. إليك المثال المعدل: بحث مطابق.zip للأسف.. هذا ليس من اختصاصي..

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

لا بأس.. يسهل الله الأمر.. المرفق الذي أحلت إليه لا يدعم البحث المطابق.. هذا مثال لما سبق بيانه في مشاركتي السابقة تنبيه.. يظهر في المثال بيانات تحتوي علامة الاستفهام.. ذلك لأني لم استثنها ونظيراتها في معامل البحث.. تركتها قصدا إليك المثال بحث مطابق.zip

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

أهلا بك @وائل أبو عبد الرحمن أجريت التعديل على (الاستلام1) وجعلته مصدرا لنموذج البحث.. أتمنى لك التوفيق والسداد.. إليك المرفق البحث في حقل أصله رقمي ( لكنه يظهر في النموذج حقل نصي)1.zip

وعليكم السلام ورحمة الله وبركاته.. أهلا بك أيمن.. مع استخدامك للميكرو المضمن للتصدير فأمامك طريقتان لعمل المطلوب.. الطريقة الأولي: وهي الأجمل عندي وهي إرسال التقرير مباشرة إلى مجلد الحفظ دون اللجوء إلى مربع حوار الحفظ.. ويمكن تطبيق هذه الطريقة بعمل التالي .. نحث قاعدة البيانات لأخذ مسار قاعدة البيانات كمسار افتراضي وذلك بتغير إعدادات قاعدة البيانات كما في الصورة التالية.. هذه الطريقة من أسهل الطرق... الذهاب إلى حدث عند النقر لزر الأمر وتعديل الميكرو كما في الصورة التالية.. إذا كان لديك مجلد فرعي للملفات قم بتضمينه في التقرير قم بإضافة مرجع رقم الموظف إلى مصدر بيانات التقرير بعد قلبه إلى استعلام كما في الصورة التالية الطريقة الثانية في نظري لا تلزمك إليك التعديل Save with record no.zip

قمت بطبيق هذه الطريقة على الوظيفة ConsumChart طبقت هذه الطريقة في حقل الاستعلام Consum Amount هذه صورة الناتج وهذا التعديل كهرباء.zip

المعذرة أخي محمد على تجاهلك.. .. حالة أغسطس 2017 التي لدينا الآن هي حالة آنية للدراسة فقط.. لا يمكن أن تكون حالة منطقية أبدا.. تطبيق هذه الحالة يتم بأحد أمرين: إما بدمج التعرفتين داخل الوظيفة ومن معالجها بــ (..)If. أو عمل وظيفة لكل تعرفة وفي الاستعلام نمررها على التابع ()IIF مع شرط التاريخ .. .. لكون التعرفة السابقة ليست لدي فليس بمقدوري وضع مثال للتوضيح. :: تعريف: الحالة المنطقية هي التي يتم فيها إعادة احتساب التعرفة آليا؛ بمعنى كلما تغيرت التعرفة يتم إعادة احتسابها آلية بدون إعادة كتابة الشفرة المصدرية.

إليك هذه التعديل على مثال في أحد مشاركاتك 726.نقل موشر الماوس بعد التحديث.accdb.zip أنشأت دالة تعيد السجلات للنموذج الذي يمرر عليها.. عند تمرير نموذج فرعي لا يكفي تمرير اسم التابع بل نحتاج إلى المنهج Form ؛ وعليه يكون الممرر هو ([SubFormName].[Form]) هذه الدالة تنفع في أي نموذج وتمرر على أنها مصدر بيانات عنصر التحكم ولا يلزم وضعها في حدث.. Function RecCounter(objMe As Object) '-- special records counter Dim CrntRcd, RcdCnt CrntRcd = objMe.CurrentRecord RcdCnt = objMe.RecordsetClone.RecordCount If objMe.NewRecord Then RecCounter = CrntRcd & " من " & RcdCnt + 1 Else RecCounter = CrntRcd & " من " & RcdCnt End If End Function