Moosak

بارك الله فيك أخي @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

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

طريقة الاستدعاء مكتوبة في الكود نفسه أخي أمين 🙂 : 'to call the Function 'To Hijri التاريخ الهجري 'txtMonthNameHijri =MnthName(txtDate,"HJ") 'To Arabic التاريخ بالعربي 'txtMonthNameArabic =MnthName(txtDate,"Ar") 'To English الإنجليزي 'txtMonthNameEnglish =MnthName(txtDate,"En") 'To English Short الإنجليزي المختصر 'txtMonthNameEnglish =MnthName(txtDate,"EnShrt") 'To Coptic القبطي 'txtMonthNameCoptic =MnthName(txtDate,"Cpti") 'To Syriac السرياني 'txtMonthNameSyriac =MnthName(txtDate,"Syr")

أو يمكن الضغط على [زر الويندوز] + D من الكيبورد لإظهار سطح المكتب مباشرة 🙂

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

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

أخي @ابو عبد الرحمن اشرف بالعكس .. المجلد المشترك في الشبكة يكون فيه ملف الجداول .. أو ال Back End .. أما الملف الذي ستوزعه على المستخدمين هو ملف الواجهات ( النماذج والتقارير والاستعلامات والأكواد والماكرو ) وهذه صورة مختصرة توضح الآلية .. :

هكذا تضبط معك (استخدم أداة تنسيق الأكواد من المحرر) : IIf(([انتهاء الدوام]-[بدء الدوام])*24<0;(([انتهاء الدوام]-[بدء الدوام])*24)+24;([انتهاء الدوام]-[بدء الدوام])*24)

أنظر هنا :

أخي العزيز @ابو عبد الرحمن اشرف 🙂 دائما عندما تريد مساعدة أو تفتح موضوع جديد اجعل أول ما تفكر به لكي تستقطب مساعدة الإخوة هو إرفاق ملف للتطبيق عليه .. 😅✋🏻

وعليك السلام ورحمة الله أخي الدكتور قاسم 🙂 ما يدور في ذهني في هذا الموضوع هو كيف نستطيع أن نربط قاعدة بيانات الأكسس بالجوجل شيت Google Sheet .. وخلفيتي حول هذا الموضوع غير مكتملة لحد الآن .. ولكن حسب بحثي الأولي أنه يمكن الرط عن طريق ال Google Sheets API .. وهي خدمة تقدمها جوجل للربط بخدماتها .. وتحتاج لتفعيلها للدخول إلى موقع الجوجل وتفعيل الخدمة وستعطيك رقم للتفعيل والربط مع البرامج الأخرى مثل الأكسس .. بعدها يمكنك ترحيل البيانات مباشرة 🙂 ويمكنك من خلال القاعدة المركزية تحميل البيانات من الجوجل شيت وجمعها وتحليلها . والموضوع بحاجة للمزيد من البحث والتجربة ..

وعليكم السلام ورحمة الله وبركاته 🙂 أنا تعلمت أساسيات الأكسس من قناة الأستاذ المهندس منذر السفان .. https://www.youtube.com/watch?v=I5B2G1At_lA&list=PLof3yw6ZFPFgJ64ioThh8IR_X9Rc6i0Zk

تتعدد الأساليب والهدف واحد 🙂👌🏻

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

وعليك السلام ورحمة الله وبركاته 🙂 نعم يمكنك ذلك ولكن أنصحك بعمل تعديلات على الجدول والنموذج .. قم بتقسيم الحقل إلى حقلين .. واحد للمعلم .. والثاني للمادة .. وهكذا سيسهل عليك الفرز .. وبعدها يمكنك جعل حقل المعلم عبارة عن قائمة منسدلة تختار منها اسماء المعلمين بدل الكتابة اليدوية ..

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

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

الحمدلله 🙂

الظاهر من الخطأ أن الويندوز لا تسمح لك بإنشاء ملفات في مجلد الويندوز .. بدلا من ذلك جرب عمل المجلد في الـ C مباشرة .. هكذا : "WhereToSave = "c:\Bakup بالمناسة هذه ليست دالة خاصة بالأكسس .. وإنما هي دالة أنا قمت بإنشاءها سابقا .. فلو احتجت أن تستخدمها في برنامج آخر يجب عليك أن تنسخها كاملة في موديول من موديولات البرنامج الجديد .. 🙂 وهذه هي كاملة .. : Public Function BECurrentPath() On Error GoTo ErrHandler Dim FullLinkedPath As String Dim LinkedDBPath As String FullLinkedPath = Nz(DLookup("Database", "MSysObjects", "Type=6"), "") If FullLinkedPath <> "" Then LinkedDBPath = Left(FullLinkedPath, InStrRev(FullLinkedPath, "\") - 1) BECurrentPath = LinkedDBPath & "\" Else BECurrentPath = CurrentProject.Path & "\" End If ErrHandler: If Err.Number = 0 Then Exit Function Else MsgBox "Error Number : " & Err.Number & " :::: " & Err.Description End Function

قم بكتابة الموقع الجديد في المكان الذي ذكرته هكذا : "WhereToSave = "c:\windows\Bakup حيث أن BECurrentPath هو اسم الدالة التي تحضر لك الموقع الحالي لقاعدة البيانات . وكذلك عليك أن تحذف السجل المحفوظ لهذا الأسبوع من الجدول لكي يقوم البرنامج بحفظ نسخة جديدة لهذا الأسبوع .. 🙂

تفضل : 🙂 Dim i, n i = GetUUID n = DCount("*", "[AllowedUUIDsT]", "[AllowdUsersUUID] ='" & i & "'") If n = 0 Then MsgBox "لا يحق لك الدخول" DoCmd.Quit Else Exit Sub End If لا تنسى تخزين الـ UUID المسموح لها بالدخول في الجدول AllowedUUIDsT صيانة2.mdb