Moosak

تعمل مع حقل التاريخ 🙂 ابحث عن المواضيع التي تتكلم عن جدولة الأقساط في المنتدى .. فالفكرة واحدة.

أهلا بك أخي @يحي عبد الله 🙂 ببساطة يمكنك عمل استعلام تحديث .. والتحديث سيكون : [حقل تاريخ انتهاء العقد] + 30

عن طريق تقرير رئيسي وبه تقارير فرعية تكون مربوطة ببعضها البعض عن طريق العلاقات كما قال أخي @Mohameddd200300 ..

وأحب أن أشير لهذا الموضوع الذي له صلة بما ذكرته لك 🙂 :

ما شاء الله تبارك الرحمن ☺️🌹 ممتاز جدا .. ويفتح آفاق عديدة لتحسين العمل على الأكسس .. 🙂👌🏼 عندي لا تظهر الأسماء العربية .. هل هناك ضبط معين لها ؟ مع العلم أن الأسماء تظهر جيدا عندما أفتح الملف الذي ينشأ بجانب القاعدة مباشرة .. أيضا لي تساؤل أعلم أنه ممكن ولكن لا أعلم كيفية تنفيذه .. 🙂 هل يمكن عرض رسومات بيانية بشكل حديث ومطور بلغة ال HTML لبيانات مصدرها جدول أو استعلام ؟ وهل يمكن طباعة نفس الرسومات البيانية في التقارير ؟ كيف يمكن عمل ذلك ؟ نطمع في دروس تفصيلية مما وهبك الله ☺️🖐🏼️ بارك الله فيك أخي @دروب مبرمج وفتح الله عليك 🙂

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

تحسين بسيط على الكود .. وهو حتى كلمات البحث تطبق عليها دالة تجاهل الهمزات 🙂 فلو كتبت في البحث ( أحمد ) تظهر جميع النتائج .. أحمد .. احمد .. إحمد .. وهكذا .. بحث بعدد 3الكلمات.rar

بالنسبة لي سأساهم في هذا الجزء بدالة تقوم بتوحيد الحروف المتشابهة إلى حرف واحد وذلك لتلافي موضوع أخطاء الطباعة : 🙂 Function ReplaceArabicLetters(strText As String) As String ' استبدال الحروف العربية المتشابهة إلى حرف واحد وذلك لاستخدامها في عملية البحث وتلافي أخطاء الكتابة ' أ،إ،ا =(تحول إلى)=> ا ' ي،ى =(تحول إلى)=> ي ' ـه،ـة =(تحول إلى)=> ـه ' Moosak strText = Replace(strText, "أ", "ا") strText = Replace(strText, "إ", "ا") strText = Replace(strText, "ى", "ي") strText = Replace(strText, "ة", "ه") ReplaceArabicLetters = strText End Function مثال : ReplaceArabicLetters("أجمل إنسان في الحياة من ينسى الأحزان ويعيش الأمل") النتيجة : اجمل انسان في الحياه من ينسي الاحزان ويعيش الامل

أخي @ابو عبد الرحمن اشرف استخدم المعايير في الاستعلامات .. ضع مثلا تحت حقل الشقق التالي : Not In(1308, 1307, 1302) وهكذا .. تضيف الأرقام التي لا تريدها أن تظهر بين القوسين. 🙂

هنا أنت تقارن بين شيئين مختلفين لا علاقة بينهما ، التقسيم الهدف منه التمكين من عمل أكثر من مستخدم على نفس قاعدة البيانات ، أما تحويل القاعدة لـ accde لحماية عناصر البرنامج من التحرير ومنع المتطفلين. انتبه ثم انتبه ثم انتبه .. !!! هذه نقطة مهمة جدا جدا حتى لا تقع في الفخ !!! 🙂 يجب أن تحتفظ بنسخة accdb معك قبل أن تحول البرنامج الى accde ، لأن نسخة accde لايمكن تحريرها أو التعديل عليها بأي شكل من الأشكال .. هي نسخة مقفلة لاستخدام العميل فقط .. وأنت كمبرمج يجب أن تحتفظ عندك بالملفات الأصلية القابلة للتعديل ..

وعليكم السلام ورحمة الله وبركاته .. 🙂 من خصائص النموذج حسب الصورة تختارون Edited Record وليس All Records

وعليكم السلام ورحمة الله وبركاته 🙂 عن طريق استعلام إجماليات .. تحت الاسم (تجميع حسب) وتحت أرقام السجلات (max)

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

حسب نظام الصلاحيات عندك .. لو كان عامل للمدير صلاحيات خاصة تطبقها عند فتح النموذج .. مثال : If [forms]![LoginForm]![IsManager] = True Then Me.AgreeCbo.Visible = True Else Me.AgreeCbo.Visible = False End If بمعنى التحكم يكون بخاصية الظهور Visible للقائمة المنسدلة .. والطرق كثييييييييرة ومتنوعة 🙂

وعليكم السلام ورحمة الله 🙂 ممكن تعمل حقل عبارة عن قائمة منسدلة بها الـ 3 خيارات اللي ذكرتها (موافق - غير موافق - للتريث ) .. وتكون ظاهرة للمدير فقط .. ويمكنك أن تفلتر السجلات عليها ..

الحمدلله على سلامتك حبيبنا 🙂 عودا حميدا 🌹

البرنامج محول إلى الصيغة accde .. لايمكن فتحه .. يجب أن ترجع للمصمم الأصلي للبرنامج وتطلب البرنامج بصيغة accdb

تعديل على ملف الأستاذ @kkhalifa1960 🙂 جرب الآن الملف .. ( قبل وبعدما تقسمه ) attention.rar

تفضل أخي @waheidi2005 🙂 تكتب في القيمة الافتراضية للحقل tno هذه الجملة : =Nz(DMax("[tno]";"[tbltameem]");0)+1

بارك الله فيك أخي @qathi 🙂 إذا أفضل إجابة تذهب للعزيز @saud3 🌹😉

حياك الله أخي أبو طلال 🙂 لم أجد الجدول الذي به تواريخ البداية والنهاية في مرفقك .. ولكن عملت لك دالة تحيب عدد الأيام بين تاريخين بدون أيام السبت والأحد ... وكذلك تتجنب أيام الإجازات الرسمية حسب الجدول الذي في قاعدتك .. Function CountWorkingDays(startDate As Date, endDate As Date) As Integer ' لحساب عدد الأيام بين تاريخين غير أيام السبت والأحد والإجازات الرسمية الموجودة في جدول الإجازات Dim totalDays As Integer Dim workingDays As Integer Dim currentDay As Date startDate = Format(startDate, "mm/dd/yyyy") endDate = Format(endDate, "mm/dd/yyyy") totalDays = DateDiff("d", startDate, endDate) + 1 ' Include both start and end dates Dim i Dim c For i = 0 To totalDays - 1 currentDay = DateAdd("d", i, startDate) ' البحث في جدول أيام الإجازات إن كان هذا اليوم هو يوم إجازة أم لا c = DCount("[ID]", "[Holidays]", "CDbl(date) =" & CDbl(currentDay) & "") If Weekday(currentDay) <> vbSaturday And Weekday(currentDay) <> vbSunday And c = 0 Then workingDays = workingDays + 1 End If Next i CountWorkingDays = workingDays End Function

تفضل أخي @qathi 🙂 جواب مسألتك هنا :

وهنا فكرة أيضا .. شاشة انتظر من فضلك !! | سلسلة مهارات في أكسس | 06 |

تفضل أخي عبد القدوس .. ممكن تعملها عن طريق التنسيق الشرطي 🙂 : والنتيجة ( لا يمكن تحرير البيانات ..... وتبقى مجمدة حتى يتم تغيير خانة مشطوب) : قاعدة البيانات.accdb

نفس الشي وما صارت عندي أي مشكلة ..