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

استكمالا لكيفية التحديث بطريقة أخرى بعد الشكر لمساعدتكم في طرح الأفكار سوف أقدم لكم هذه الطريقة وقبل البدأ اريد ان أنوه على بعض الردود حول الجداول في قاعدة البيانات هل أقوم بإعادة ربطها بعد التحدث والجواب هو (لا) وذلك عند تحديث البرنامج اقوم بإعادة ربطها من جهاز المطور وكل أجهزة المستخدمون والسيرفر وجهازي اللي أطور البرنامج عليه مرتبطة بشبكة محلية داخل الشركة وبعد التحديث وعند تركيب البرنامج على أي جهاز فإن الجداول تتصل بقاعدة البيانات مباشرة . سوف أشرح الفكرة باختصار المتطلبات 1- جدول جديد يضاف في البرنامج مرتبط بقاعدة البيانات مباشرة يحتوي على حقل رقم النسخة 2- تصميم نموذج افتتاحي مصدره الجدول السابق 3- تصميم برنامج مساعد نسميه (Update.accdb ) ونضعه في مجلد البرنامج 4- مجلد مشاركة موجود على السيرفر نضع فيه البرنامج المحدث شرح خطوات البرنامج عند التحديث 1- عند اكتمال التحديث يضاف رقم النسخة الجديدة في النموذج على سبيل المثال (002) في النموذج الافتتاحي و في الجدول رقم النسخة 2-عند التشغيل يقوم البرنامج بمقارنة النسخة المخزنة في الجدول مع جدول حقل النسخة ، سوف يجد الاختلاف وتظهر رسالة يوجد تحديث 3- يغلق البرنامج (الاصدار القديم) ويفتح البرنامج المساعد 4- عند فتح البرنامج المساعدة يقوم بحذف النسخة القديمة ويستدعي النسخة الجديدة من مجلد المشاركة على السيرفر ويلصقها في نفس مجلد البرنامج بدل النسخة القديمة التفاصيل من المعروف أن البرنامج سوف يكون على الهاردسك ( C ) عند جميع المستخدمون في المجلد (Shaoon) وأيضا البرنامج المساعد (Update.accdb) وملحقات البرنامج مثل أيقونة البرنامج او ملفات التعليمات وغيرها 👇 النموذج الافتتاحي في البرنامج عند المستخدم ذو الاصدار 001 👇 النموذج الافتتاحي في البرنامج الوسيط ( Update.accdb ) 👇 انتهى الشرح في المرفق الشرح العملي ملاحظة هامة : عند تنزيل الشرح العملي فك الضغط وضع الثلاثة المجلدات في البارتشن (C) مباشرة ومن ثم الدخول على المجلد (Shaoon) وتشغيل البرنامج (Shaoon.accdb) Program.rar

شكرا لك استاذ حسان على الشرح الوافي الكافي و هي فكرتك الأولى ولعلك نسيت اضافة الجدول المحلي ضمن واجهة المستخدم لأن كتابة المقارنة بهذه الطريقة ستعمل لمرة واحدة فقط : 'يتأكد هل فيه نسخة مختلفة If Me.VerNo <> "001" Then ' =====> في كل مرة تقوم بتحدسث النسخة يجب تعديل الاصدار هنا وفي حقل الجدول xVer MsgBox "يوجد اصدار أحدث", 48 + 524288, "تحديث النسخة" واذا سمحت لي باضافة صغيرة : الجدول xver هذا على قاعدة البيانات في السيرفر وهو من سيحمل الرقم الجديد و يوجد جدول (محلي) على واجهة المستخدم يحمل الرقم القديم عند فتح واجهة المستخدم يقارن بين الرقمين في الجدولين .. فإن اختلفا يتم تشغيل التحديث ...... ويتم ايضا تحديث الجدول المحلي بالرقم الجديد /// وبما ان النسخة جديدة يكون المطور هو من وضع الرقم الجديد في الجدول المحلي فلا حاجة للتحديث . ليصبح كود المقارنة بما يشبه هذا : If VerNo1 <> VerNo2 Then

السلام عليكم ورحمة الله وبركاته اخواني الكرام.. قرأت أكثر المواضيع التي تتعلق بموضوع الباركود والـ QR . إلا انني أبحث عن شيء محدد ، ولا أخفيكم أنني حاولت ابتكار فكرة تعمل بشكل عكسي تقوم على مبدأ أنه عند قراءة الباركود داخل آكسيس يقوم بإدراج البيانات من الباركود الى مربعات نص محددة. على سبيل المثال ( تمت التجربة على QR ):- ( رقم المريض ، اسم المريض ، رقم الهاتف ، العمر ) هذه المعلومات تمت إضافتها في QR وانشاء صورة . المطلوب أنه عند قراءة هذا الـ OR في النموذج ان يتم ادراج القيم في مربعات النص التي يتم تحديدها ( علماً بأن النموذج هذا ليس له مصدر بيانات جدول او استعلام وغير مطلوب حفظ القيم داخل اي جدول . وهذه صورة QRتحتوي العديد من البيانات للتجربة لم أقم بارفاق ملف لأنني رغبت بان يكون الموضوع مفتوح بأكثر من اتجاه وليس ضمن فكرة محددة . المطلوب :- طريقة تجعلني عند قراءة الباركود ان يتم ادراج البيانات التي يحملها في مربعات نص محددة !!

السلام عليكم.. استاذ احمد...لماذا لا تعتمد سنوات الخدمة في احتساب الراتب عملت لك هذه الشفرة ..وهي شغالة بالنسبة (للبكلوريوس) لانها تبدأ من الدرجة السابعة فقط مرر سنوات الخدمة عبر startDate في الدالة Function IncreaseSalary(startDate As Double) As Double Dim years As Double Dim newSalary As Double years = startDate '7 If years <= 4 Then newSalary = 296 + ((years - 1) * 6) '6 ElseIf years > 4 And years <= 8 Then newSalary = 362 + ((years - 5) * 6) '5 ElseIf years > 8 And years <= 12 Then newSalary = 429 + ((years - 9) * 6) '4 ElseIf years > 12 And years <= 17 Then newSalary = 509 + ((years - 13) * 8) '3 ElseIf years > 17 And years <= 22 Then newSalary = 600 + ((years - 18) * 10) '2 ElseIf years > 22 And years <= 27 Then newSalary = 723 + ((years - 23) * 17) '1 Else newSalary = 910 + ((years - 28) * 20) End If IncreaseSalary = newSalary End Function

لتطبيق الصلاحيات على أي نموذج أكتب هذا السطر في حدث عند الفتح للنموذج : Private Sub Form_Open(Cancel As Integer) Call Permissions End Sub باب الإبداع مفتوح لكم 😉👌🏼 البرنامج شغال زي السكينة على الطحينة 👍🏻😄 قم بتأمين الملف وتمكين الماكرو أخي @abouelhassan موضوع الصلاحيات باب واااااااسع جدا جدا .. وهذا مجرد نموذج مبسط .. ويمكنك الإضافة عليه كما تحب 🙂👌🏻

ما شاء الله تبارك الرحمن 🙂 🌹 فكرة رائعة أخي حسان @hassan123 وهذا دليل على أنه لا حدود للإبداع في الأكسس 👌🏼 بالإضافة للنقطة التي ذكرها أستاذنا @ابوخليل ( وهي نقطة مهمة في نظري ) .. فقط أنبهك لموضوع الروابط للواجهة القديمة و ملف التحديث و رابط التحديث الجديد .. هذه الروابط لو تجعل الكود يتعرف على مواقعها بشكل أوتوماتيكي سيسهل عليك بعض الأمور ... منها : 1- في الجدول xVer أضف حقل لمكان وجود ملف التحديث وذلك للحصول عليه تلقائيا من الجدول وذلك لأنك قد ترغب مستقبلا في تغيير أسمه أو موقعه دون الحاجة لتغييره يدويا في الكود. 2- قد يتم تنصيب البرنامج على قرص آخر غير ال C لذلك إجعل تحديد مواقع التنصيب شيء من هذا القبيل : 'حذف البرنامج النسخة V001 Kill CurrentProject.Path & "\Shaoon.accdb" ' موقع نسخة البرنامج المحدثة Dim NewUpdatePath As String NewUpdatePath = DLookup("[NewUpdateFilePath]", "[xVer]") 'نسخ النسخة الجديدة002 ووضعها بدل النسخة التي انحذفت FileCopy NewUpdatePath, _ CurrentProject.Path & "\Shaoon.accdb" . . . . ...... <<تكملة الكود>> لاحظت بأنك قمت بربط التحديث الجديد بقاعدة البيانات قبل وضع التحديث موضع التنفيذ وهذا شيء جيد 👍🏻🙂

السلام عليكم ممكن أن لاتستخدم معادلات ولا أكواد الحالة دي ممكن استخدام الجداول المحورية Pivot Tables سريعة جدا حيث أنها خاصية جاهزة في الاكسل يعيبها نقطتين يمكن التغلب عليهما 1- أن بعد تحديث البيانات ، لايتم تحديث الجدول المحوري اوتوماتيكيا بل يجب أن تضغط كليك يمين عالجدول وتطلب تحديث 2- أنك لايمكن عمل الجدول المحوري إلا إذا كانت جميع الأعمدة التي تم اختيار البيانات بها لها عناوين وهذه العناوين غير متماثلة ، تجدني وضعت عناوين بالأحمر أنظر المرفق ، عدل أي بيانات ثم ضغط كليك يمين عالجدول وتطلب تحديث معادلة الى كود.xlsm

السلام عليكم مرفق الملف بعد تغير صيغة التنسيق الشرطي الأحمر إلي =AND(TODAY()>$I2,$K2="",ISBLANK($I2)=0) إنتهاء الرحصة222.xlsm

بعد امر الحذف استخدم الأمر Docmd.Requery ينفع

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

الاخ @Foksh لقد جربت اكثر من 100 اقتراح من chat gpt لكنه مارس عليا الغباء الصناعي ههههه

رمضان كريم 🤗 بناءً على فكرتك فعلى الاغلب تم تحديد مدة أيام العطلات التي ذكرتها ( من - إلى ) ، هل هذا صحيح ؟ فكرة جميلة 😊

السلام عليكم ورحمة الله وبركاته اهلا بشمهندس foksh تحياتي لشخصك الكريم يوجد فورم به العطلات الرسميه مدرجة باسم - frmPubHolsAll - كما هو مبين بالصورة المدرجة يتم خصم العطلات الرسمية من الفورم المذكور تحياتي ورمضان كريم

أيام العطلات الرسمية كيف سيتعرف عليها نظامك يا صديقي 🤔

تفضل استاذ @SAROOK المرفق بعد التعديل حسب مافهمت . ووافني بالرد . الاجازات (6).rar

طيب هل هذه النتائج هي المرغوب فيها ................

ممكن يكون لها حل ... انتظر حتى اصل لجهازي او ممكن تجد اجابة من الاخوة الكرام

تم التغلب على المشكله كانت في الجداول وتم حلها بنجاح😊

موضوع جميل

تفضل استاذ @SAROOK المرفق بعد التعديل حسب مافهمت . ووافني بالرد . الاجازات (5).rar

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

السلام عليكم تفضل الكود التالي يقوم بطباعة الصورة مباشرة بدون عرضها في تقرير Dim imgPath As String Dim app As Object ' تحديد مسار الصورة imgPath = CurrentProject.Path & "\Pictures\" & Me.nn & ".jpg" Set app = CreateObject("Shell.Application") ' فتح الصورة في عارض الصور الخاص بالأوفيس app.Open imgPath ' طباعة الصورة Dim objShell As Object Set objShell = CreateObject("Shell.Application") objShell.Namespace(0).ParseName(imgPath).InvokeVerbEx ("print") Set app = Nothing Set objShell = Nothing print picture.rar

لايوجد خطا ..فقط استبدل الفارزة بالفارزة المنقوطة IIf(IsNull([total_arbic_nesf]); "الحقل فارغ"; IIf([total_arbic_nesf]>=85; "ممتاز"; IIf([total_arbic_nesf]>=65; "جيد جدا"; IIf([total_arbic_nesf]>=50; "جيد"; IIf([total_arbic_nesf]>=1; "ضعيف"; IIf([total_arbic_nesf]=0; "غ"; ""))))))

في كثير من الاحيان تتلخبط علينا المسميات حينما تكون باللغة العربية ...استكمالا لما انتهى اليه استاذنا الفاضل @محمد احمد لطفى Private Sub عدد_الاشهر_AfterUpdate() Me.تاريخ_الاستحقاق = DateAdd("m", Me.عدد_الاشهر, Me.تاريخ_اليوم) End Sub

الله يبيض وجهك أخوي سامي الحداد ... ورحمك الله ووالديك ألف شكر لك يا عزيزي والشكر موصول للعزيز الغالي Foksh ايعمل بامتياز👍

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

تفضل استاذ @Abdelaziz Osman المرفق بعد التعديل حسب طلبك . اليك الشرح والمرفق . codeM-2.rar

انظر هنا قد يفيدك

مبدع يالغالي تحياتي 🌹🌹🌹

إطلالتك هي الأروع أخي @SAROOK 🙂

السلام عليكم استاذنا الفاضل abouelhassan الف الف شكر لتعب حضرتك و مجهودك ربنا يجعله فى ميزان حسناتك السلام عليكم استاذنا الفاضل حسونة حسين الف الف شكر لتعب حضرتك و مجهودك الكود يعمل بكفاءة و ينفذ المطلوب ربنا يحفظك و يعزك ويبارك فيك

حسونة حسين جزاك الله خيرا بالفعل هذا هو المطلوب والكود عمل معي ورمضان كريم عليك والشكر موصول للاخ abouelhassan غلى تعبه معي

وعليكم السلام ورحمه الله وبركاته جرب هذا التعديل كود عمل فورمات للخلية عند التعديل.xlsm

شكرا لك أخي @king5star إطلالتك هي الأجمل 🙂

كل الاحترام والتقدير لك على مرورك الطيب اخي @abouelhassan 🙂

هذا الملف قالب جاهز لنموذج صفحة دخول وتغيير بيانات المستخدم والتحكم بالمستخدمين 🙂 كلمة المرور لجميع المستخدمين : 123 للتحميل : 🙂 قالب جاهز لنموذج تسجيل الدخول وتغيير كلمة المرور.accdb