نجوم المشاركات

جرب هذا الملف (ليس فقط الشهر بل السنة ايضاً) MY_DATE.xlsx

اتفضل اوفسنا.accdb

ابو اشرف اذا ما ضبط اي حل ارفق المثال يمكن يكون محتاج شوية حنان ههههه

غريبة يبو اشرف الحلول المقدمة من الزملاء صحيحة على العموم جرب التالي IIf(IsNull([Amount]);0;[Amount])

السلام عليكم و رحمة الله تعالى و بركاته الأستاذ عبد الله طلب طريقة استعمال الحلقات التكرارية بالعد التنازلي و هذا يعني استعمالها بدون دوال إضافية مثل الدوال الشرطية للحلقات التكرارية ستة أشكال و قد شرحتها جميعها في هذه السلسلة: دروس VBA أكسس و هذا حل لسؤال الأخ عبد الله بخمسة أشكال من الحلقات التكرارية: الأول: الدالة For Dim i As Integer, k As Integer k = 4 For i = k To 1 Step -1 MsgBox i Next i الثاني: الدالة Do While Dim i As Integer i = 4 Do While i >= 1 MsgBox i i = i - 1 Loop الثالث: الدالة Do Until Dim i As Integer i = 4 Do Until i < 1 MsgBox i i = i - 1 Loop الرابع: الدالة Do.....Loop Until Dim i As Integer i = 4 Do MsgBox i i = i - 1 Loop Until i < 1 الخامس: الدالة Do.....Loop While Dim i As Integer i = 4 Do MsgBox i i = i - 1 Loop While i >= 1

هنا في الاستعلام اوفسنا.accdb

اعتقد ان هذا الكود يتم وضعه فى مصدر عنصر التحكم فى التقرير وسيفى ان شاء الله بالغرض

جرب هذا IIF(IsNull([سندات القبض]![Amount]);0;[سندات القبض]![Amount])

تفضل Nz([سندات القبض]![Amount];0)

فورم لترحيل اى عدد معين من البيانات الى صفحة الترحيلات الفيديو الصورة

استاذي الفاضل ابو ياسين الله يبارك فيك وجزاك الله خيرا نعم هذا هو المطلوب ربي يحفظك ويمن عليك بالصحة والعافية يارب

كلكم لم تقصروا الله يعطيكم العافية وبارك الله فيكم والى اللقاء في مسألة صعبة جديدة 🧡

للاسف لم يجلب أي نتيجة يا ريت على قاعدة البيانات نزلتها قبل شوي تم الحل الحمد لله الله يعطيكم العافية جميعا

كما قلت لك هكذا =Nz([نص176]+[total]-[Amount];"0")

اذا كان بالحسابات فافضل داله هي nz وهذا مثال nz([b1]+[b2]+[b3];"o") جرب وشوف

غير اسم عنصر التحكم الى Amount2 مثلا ثم ضع الكود فى مصدر عنصر التحكم للتقرير مع ابقاء الإسم Amount

وهذه فكرة اخرى ممكن تعملها في التقرير اذا حبيت تطبعها مقارنه السعر بين موردين.accdb

واذا ماضبط لازم ترفق ملف هنا مع التنصيص IIf(IsNull([Amount]);"0";[Amount])

جرب هذي ضبط معاي فل الفل

كذلك يوضع في الاستعلام و ممكن يوضع في النماذج يعمل في الجميع

طيب جرب هذا Nz([سندات القبض]![Amount];0)

جرب المرفق استاذي الكريم Microsoft Access قاعدة بيانات جديد.accdb

او ممكن تجعل قيمة الحقل الافتراضية بالجدول 0 سؤال : هو لازم يكون فى الاستعلام ام ممكن فى الكود؟

جرب هكذا Amountt: Nz([Amount];"0")

لا اوامر ولا شيء تحدث مشكلة هذا عند تغير اللغة في اعدادات الاقليمية لان تلك المسميات باللغة الفرنسية و كانت تحدث مشكلة مماثلة عند ما كانت لغة في اعدادات الاقليمية انجلزية و مسميات باللغة العربية و عند تغير اللغة حلت المشكلة . و هنا غيرنا مسميات الى الانجلزية

فورم هوايات وانشطة بالنادى مع ترتيب الاسماء الفيديو الصورة رابط الملف

السلام عليكم اليك الملف بعد تعديل testlogiciel.rar

في المرفقات 311.accdb

و هذا على طريقة استعلام مقارنه السعر بين موردين.accdb

اتفضل اتمنى يكون المطلوب مقارنه السعر بين موردين.accdb

وعليكم السلام تفضل اخي ان شاء الله تجد ضالتك هون البركه في استاذنا محمد صالح الله يعطيه العافيه صاحب البرنامج لعلك تستفيد منه لجميع مفاتيح الكيبورد open form by keys.accdb

تفضل هذا التعديل Overtime2019.accdb

تفضل جرب هذا اخي الكريم السبب ان اصدار الاوفيس لديك قديم لكن جرب المرفق و اعطيني النتائج مثال للتعامل مع الصور.mdb

اخي الكريم تم انشاء استعلام الحاقي ادخل على عرض التصميم و احذف الحقول التي تريدها هذا كل شئ تفضل هذا الشرح

تفضل اخي الكريم If [ActiveXCtl0].Visible = False Then [ActiveXCtl0].Visible = True Else [ActiveXCtl0].Visible = False End If

شرح الطريقة قمت بتحديد النطاق XEY2:XFA254 وذهب إلى مكن نهاية السهم الذي بالصورة المرفقة فكلمة Ahmed تعني النطاق السابق وإذا أردت زيادته اضغط مفتاح كنترول + مفتاح F3 يظهر الشكل كما بالصورة الثانية شرح الدالة =IFERROR(VLOOKUP(A2;Ahmed;2);"") لو هناك خطأ في الدالة vlookup العثور على قيمة الخلية A2 في النطاق Ahmed العمود رقم 2 منه يكون الناتج فراغ يعني ابحث عن القيمة الموجودة في الخلية A2 في العمود الثاني من النطاق المسمى Ahmed شرح الدالة =IFERROR(VLOOKUP(A2;Ahmed;3);"") لو هناك خطأ في الدالة vlookup العثور على قيمة الخلية A2 في النطاق Ahmed العمود رقم 3 منه يكون الناتج فراغ يعني ابحث عن القيمة الموجودة في الخلية A2 في العمود الثالث من النطاق المسمى وأخيرًا أتمنى أن قدرت أوصل الفكرة

تفضل محمد.xls

بعد اذن الأستاذ أحمد-هذا حل اخر لإثراء الموضوع بدون أعمدة مساعدة serial Number.xlsx

اذا انشئ استعلام اخر مبنى على نفس هذا الاستلام بدون اضافة التاريخ بحيث يكون فلتر التاريخ في الاستعلام الاول فقط تفضل الملف بعد التعديل * تم التعديل على معايير الاستعلام * تم انشاء استعلاميين Base de données4.accdb

بعد اذن استاذ حسين مامون جرب هذا الملف لعله يفى بالغرض قوائم اعلام الطلاب االفصل االثاني 2018-2019 --1.xls

تعلم أكسس 2007 | الفصل الأول : بدء العمل مع أكسس

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

نسيت ان ارفق الملف WATER_BILL.rar

إخواني الأعزاء نظراً لتزايد الحاجة إلى استعمال أدوات أقرب ما تكون إلى ثابتة للتحكم في مسار البرامج الخاصة بالأكسس وخاصة التجارية منها .. لذلك افردت جزء من اهتمامي لتطوير أدوات إدارية خاصة بي للتحكم في جميع برامجي بها .. وقد أرفقت هذا المثال في مشاركة خاصة بالحماية ولكن من الحكمة فصلها حتى تكون مرجع مناسب للبحث عن مثل هذه الأدوات . المثال الجامع للأدوات الإدارية 1- ربط البيانات 2- النسخ الاحتياطي 3- توجيه المسار لنسخة سابقة 4- حماية البرنامج من النسخ 5- صلاحيات المستخدمين 6- نسخ المراجع وإضافتها 7- إخفاء الجداول 8- معلومات النظام 9- وضع صورة في الخلفية مع الأخذ في الاعتبار أنني بدلت وغيرت بعض الأشياء وتم تبسيط بعض الأمور حتى لا تتعارض مع برامجي المنشورة وخاصة أنها خاضعة لشركة تجارية . ونظراً لضيق الوقت سأقوم بتفسير بعرض الأدوات باختصار شديد الدخول اسم المستخدم : 1 كلمة المرور : 1 1- ربط البيانات : عند فتح البرنامج يعمل الماكرو التنفيذي على فتح شاشة بدء التشغيل وكذلك نموذج الربط التلقائي وفي حالة فقد الرابط تخرج شاشة الربط التلقائي لتحديد المسار بالنقر المزدوج داخل المسار . 2- النسخ الاحتياطي يكون لقاعدة البيانات المرتبطة فقط أي للجداول فقط بنفس تاريخ يوم النسخ 3- توجيه المسار لنسخة أخرى شبيه بالربط التلقائي ولكن يستخدم لربط نسخة سابقة أو تالية 4- حماية البرنامج من النسخ تستخدم نفس الأسلوب الذي أشرت إليه في مشاركة الخاصة بالحماية للأخت زهرة مع ملاحظة وضع الكود التالي في حدث عند الفتح للنماذج الهامة التي نريد بدء الحماية عليه DoCmd.OpenForm "serial" من قائمة أدوات – تسجيل نسخة شرعية – استخدم المعادلة الأتية الرقم العلوي + 12305+( مدة التشغيل إما 15 يوم أو 30 أو 90أو 366 أو 1000 أو 10000 يوم ) الناتج يضرب × 2 والناتج يطرح منه 9999999 ومن السهل معرفة المعادلة من داخل الكود 5- صلاحيات المستخدمين تستخدم أسلوب اقرب ما يكون لأسلوب ابن مسقط مع مهند عبادي وقد قمت ببنائه بالمشاورة مع أبو عبد الله ولكن به بعض الاختلافات الجوهرية عن ما سبق الإشارة إليه == تم تقسم الصلاحيات إلى مسئول له جميع الصلاحيات == مستخدم يقوم المسئول بمنحه الصلاحيات == يمكن إنشاء أكثر من مسئول وتم التقسيم السابق لمنح المرونة للمسئول في منح الصلاحيات وتفويضها إن احتاج الأمر . == الجدول AdForToUse يستخدم لتحديد النماذج التي سيتم تركيب صلاحية لها ( ليس كل النماذج نرغب في وضع صلاحية عليها أو عرضها في شاشة منح الصلاحيات ) مع وضع اسم النموذج أو وظيفته باللغة العربية ليتمكن مسئول النظام من فهم كيفية منح صلاحية لمستخدم لأن استخدام أسماء النماذج كما هي لا يفيد إذا تم توزيع البرنامج وخاصة إذا كانت باللغة الأجنبية . == في نفس الجدول يجب تحديد مستوى النموذج من حيث الصلاحية a.b.c.g - المستوى a النماذج العامة - اختبار ( فتح ، تعديل ، حذف ، إضافة ) - المستوى b النماذج الفرعية - اختبار ( تعديل ، حذف ، إضافة ) - المستوى c النماذج الخاصة بالمسئول فقط - اختبار ( فتح فقط )لمسئول فقط - المستوى g النماذج التي يتم استدعاء التقارير منها - اختبار ( فتح فقط ) == في حدث عند الفتح يتم وضع الكود التالي فقط دون وضع أي أدوات أخرى على النموذج ... فقط هذا الكود .... Call allaw([Form]) أما باقي الأدوات فسأترك لكم استكشافها . وسيعجبكم كثيراً بإذن الله أداة إخفاء الجداول أيضاً أو التنويه على أن ما سبق ليس مطلقاً ولكنه خاضع للتطوير باستمرار مثل تشفير الصلاحيات والاستغناء عن الاستعلام في الصلاحيات وتطوير الحماية لتكون أكثر مرونة ولكن لن أستطيع أرفاق إلا ما سبق للأمانة العلمية . ===== في حالة وجود أي خطأ فني اعذروني للسرعة . مع خالص تحياتي رضا عقيل GeneralTols.rar