Moosak

:: بسم الله الرحمن الرحيم ::
** السلام عليكم ورحمة الله وبركاته **
.. أما قبل ..
فالصورة التالية تحكي لكم الفكرة باختصار :

 
.. أما بعد : ..
فإليكم الطريقة كما هداني إليها رب العالمين 🙂  :
أولا :: تقوم بتصميم جدولك وإضافة حقول نعم/لا بالطريقة العادية

ثانيا :: تصمم استعلام يكون مصدره جميع حقول جدولنا الجميل 🙂 

ثالثا :: تضيف حقول جديدة في الاستعلام ( حقل مقابل كل حقل من نوع (نعم/لا) في الجدول )
نسميه بنفس اسم العقل مع إضافة رقم2 لتفنيده عن الحقل الأصلي  وتضيف له هذه الدالة : ..
NewFeildName: IIf([TrueOrFalseFeild]=-1;ChrW(10004);ChrW(10008)) وتقوم بتغيير اسم الحقل لكل واحد من حقول الجدول

ملاحظة :
ChrW(10004) تعطيك الرمز   ✔
و ChrW(10008) تعطيك الرمز    ✘
 
لتكون التيجة النهائية هكذا :

وعند حفظ الاستعلام وعرضه يظهر لنا هكذا :

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

خامسا :: فقط بقي علينا أن نظيف أمر تغيير قيمة حقول (نعم/لا) الأصلية عند النقر على الحقول البديلة ..
ولعمل ذلك نضع الأمر (الكود) البسيط التالي في حدث عند النقر على لكل خانة ( IsActive كمثال ) :
Private Sub IsActive2_Click() IsActive = Not IsActive x.SetFocus End Sub وتكرر نفس العملية لكل واحد مع تغيير أسماء الحقول ..
لاحظ أنني أضفت هذي للكود ( x.SetFocus ) في النهاية ، وهي باختصار حركة تجميلية .. حيث قمت بإضافة مربع نص (غير منظم) للنموذج وسميته x
وجعلت لونه ولون حدوده نفس لون خلفية النموذج ، وجعلت حجمه صغيييييييييييييييير جدا 🙂 يعني الطول x العرض بمقدار = 0.01  تقريبا ..( الهدف أنه ما يظهر للمستخدم)
وبعدها خليت الأمر ينقل التركيز لهذا المربع الصغير  ..
فكانت النتيجة كما شاهدتم سيداتي وسادتي 😊
ونكون بذلك قد انتهينا من عمل مربعات صح أو خطأ كبيرة وجميلة وتنفتح لها النفس  😉👌
وبعدها ينفتح لكم باب الخيال الواسع للإبداع والزيادة كما تشتهي أنفسكم وتلذ أعينكم 😊

ولا تنسونا من صالح دعواتكم وزكواتكم وهداياكم  😅
:: وختامها رابط المثال للتحميل (مجاناً) 😁 ::
 
 
صح أو خطأ.accdb

جرب الآن أخي أبو البشر 🙂 
إرسال مع مرفقات ..
ABO.mdb

ما يقصده الأستاذ @احمد الفلاحجي هو أن تلغي خاصية التجميع أو الإجماليات من تصميم الاستعلام :

أخي صابر جرب مبدأيا تعديل غلق السجل المحرر من خصائص النموذج كما يلي :

وإذا لم تجدي جرب غلق جميع السجلات :

 
جرب وأخبرنا بالنتيجة 🙂 

وعليكم السلام أخي أزهر 🙂 
جرب هذا :
="[Nameread]='" & [x1] & "' And [dateread] Between #" & Nz([Forms]![fmainreader]![x2]) & "# And #" & Nz([Forms]![fmainreader]![x3]) & "#"  

تم حل المشكلة أخي @figo82eg 🙂 
بدل الدالتين بهذه ..
لنوع الملف :
=IIf(Not IsNull([Full]) And InStr(1;[Full];".")<>0;Right([Full];Len([Full])-InStrRev([Full];"."));"") لاسم الملف :
=IIf(Not IsNull([Full]) And InStr(1;[Full];".")<>0;Left([Full];InStrRev([Full];".")-1);[Full]) ولعيون الحبيب @ابو جودي تم حل قضية الخانات الفاضية أو الأسماء الغير صحيحة 😏 :

وعندما تكون فاضية كذلك :

إمتداد.accdb

تفضل أخي @ra7yl2006 🙂
هذه جملة الإحصاء التي استخدمتها للحصول على الناتج :
=DCount("*";"[Gyab_Query]";"[كود الموظف] =" & [Forms]![المرتبات]![كود الموظف] & " And [gMonth] =" & [Forms]![المرتبات]![MonthCbo] & " And [gYear] =" & [Forms]![المرتبات]![yearCbo] & " ") ولكن بعد العديد من التعديلات الضرورية على بنية الجداول والنموذج مع إنشاء استعلام جديد باسم Gyab_Query للحصول على تاريخ وسنة الغياب ..

aa.rar

السلام عليكم ورحمة الله وبركاته ..
اليوم جايب لكم موقع وظيفته يقرأ أو يشرح لك الكود بلغة إنجليزية مفهومة ، ويمكنك عن طريق المترجم تحويلها إلى اللغة العربية 🙂 
وهذا هو الموقع :
https://denigma.app
الموقع بفضل الله يتعامل مع معظم اللغات البرمجية تقريبا ، ومن ضمنها الفيجوال بيسك VBA ..
وهذا شرح مبسط للاستخدام  ..
بعد فتح الموقع ننزل تحت إلى هذي الخانة، يوضع الكود في الخانة اليسرى ويظهر التفسير في الجهة اليمنى :

نجرب نلصق دالة حساب العمر بالسنة والشهر واليوم ونضغط على [Explain it!]  :

ولترجمته باللغة العربية ، تأخذ النص لمترجم جوجل فيعطيك النتيجة هكذا : 🙂 

هذا وسلامتكم ☺️🌹
 
 

وعليكم السلام ورحمة الله وبركاته أخي عمر ..
إن كنت تستخدم نسخة 2007 أو أقدم .. فجرب تغيير كلمة Recordset2  إلى Recordset  
يمعنى شيل رقم 2 من الحكاية .. وجرب 🙂 

عذرا أخي @figo82eg إنشغلنا بإجازة العيد 😅 ..
تفضل التعديل :

 

بعدها يتم حذف المجلد [ 1 ]  والخاص بالسجل رقم 1 بالكامل بما فيه من ملفات 🙂 
وهذا الكود المرتبط بزر الحذف :
Private Sub DltBtn_Click() Dim DesPath As String Dim D As String: D = "\" DesPath = BECurrentPath & D & Me.InOut & D & Me.Department & D & Me.DocType & D & Me.ID If IsFileExists(DesPath) = False Or IsBlank(Me.FileName) = True Then MsgBox "لا يمكن العثور على الملف", vbOKOnly, "": Exit Sub On Error Resume Next If MsgBox("هل حقا تريد حذف الملفات المرتبطة ؟", vbYesNo, "") = vbYes Then DleteFolder DesPath Me.FileName = "" Me.ImageBox.Requery End If End Sub وفي حدث عند الحذف للنموذج تضع هذا الأمر :
Private Sub Form_Delete(Cancel As Integer) DltBtn_Click End Sub مع الحاجة لإضافة هاتين الدالتين في موديول ( أنا أضفتها للموديول المسمى FilesHandlingModule  ) :
Public Function DleteFolder(FolderPath As String) Dim fs Set fs = CreateObject("Scripting.FileSystemObject") fs.DeleteFolder FolderPath, True Set fs = Nothing End Function '----------------------------------------------------------------------------- ' True if the argument is Nothing, Null, Empty, Missing or an empty string . '----------------------------------------------------------------------------- Public Function IsBlank(arg As Variant) As Boolean Select Case VarType(arg) Case vbEmpty IsBlank = True Case vbNull IsBlank = True Case vbString IsBlank = (LenB(arg) = 0) Case vbObject IsBlank = (arg Is Nothing) Case Else IsBlank = IsMissing(arg) End Select End Function  
 
AttachFilesToDB.rar

عذرا أخي @figo82eg إنشغلنا بإجازة العيد 😅 ..
تفضل التعديل :

 

بعدها يتم حذف المجلد [ 1 ]  والخاص بالسجل رقم 1 بالكامل بما فيه من ملفات 🙂 
وهذا الكود المرتبط بزر الحذف :
Private Sub DltBtn_Click() Dim DesPath As String Dim D As String: D = "\" DesPath = BECurrentPath & D & Me.InOut & D & Me.Department & D & Me.DocType & D & Me.ID If IsFileExists(DesPath) = False Or IsBlank(Me.FileName) = True Then MsgBox "لا يمكن العثور على الملف", vbOKOnly, "": Exit Sub On Error Resume Next If MsgBox("هل حقا تريد حذف الملفات المرتبطة ؟", vbYesNo, "") = vbYes Then DleteFolder DesPath Me.FileName = "" Me.ImageBox.Requery End If End Sub وفي حدث عند الحذف للنموذج تضع هذا الأمر :
Private Sub Form_Delete(Cancel As Integer) DltBtn_Click End Sub مع الحاجة لإضافة هاتين الدالتين في موديول ( أنا أضفتها للموديول المسمى FilesHandlingModule  ) :
Public Function DleteFolder(FolderPath As String) Dim fs Set fs = CreateObject("Scripting.FileSystemObject") fs.DeleteFolder FolderPath, True Set fs = Nothing End Function '----------------------------------------------------------------------------- ' True if the argument is Nothing, Null, Empty, Missing or an empty string . '----------------------------------------------------------------------------- Public Function IsBlank(arg As Variant) As Boolean Select Case VarType(arg) Case vbEmpty IsBlank = True Case vbNull IsBlank = True Case vbString IsBlank = (LenB(arg) = 0) Case vbObject IsBlank = (arg Is Nothing) Case Else IsBlank = IsMissing(arg) End Select End Function  
 
AttachFilesToDB.rar

عذرا أخي @figo82eg إنشغلنا بإجازة العيد 😅 ..
تفضل التعديل :

 

بعدها يتم حذف المجلد [ 1 ]  والخاص بالسجل رقم 1 بالكامل بما فيه من ملفات 🙂 
وهذا الكود المرتبط بزر الحذف :
Private Sub DltBtn_Click() Dim DesPath As String Dim D As String: D = "\" DesPath = BECurrentPath & D & Me.InOut & D & Me.Department & D & Me.DocType & D & Me.ID If IsFileExists(DesPath) = False Or IsBlank(Me.FileName) = True Then MsgBox "لا يمكن العثور على الملف", vbOKOnly, "": Exit Sub On Error Resume Next If MsgBox("هل حقا تريد حذف الملفات المرتبطة ؟", vbYesNo, "") = vbYes Then DleteFolder DesPath Me.FileName = "" Me.ImageBox.Requery End If End Sub وفي حدث عند الحذف للنموذج تضع هذا الأمر :
Private Sub Form_Delete(Cancel As Integer) DltBtn_Click End Sub مع الحاجة لإضافة هاتين الدالتين في موديول ( أنا أضفتها للموديول المسمى FilesHandlingModule  ) :
Public Function DleteFolder(FolderPath As String) Dim fs Set fs = CreateObject("Scripting.FileSystemObject") fs.DeleteFolder FolderPath, True Set fs = Nothing End Function '----------------------------------------------------------------------------- ' True if the argument is Nothing, Null, Empty, Missing or an empty string . '----------------------------------------------------------------------------- Public Function IsBlank(arg As Variant) As Boolean Select Case VarType(arg) Case vbEmpty IsBlank = True Case vbNull IsBlank = True Case vbString IsBlank = (LenB(arg) = 0) Case vbObject IsBlank = (arg Is Nothing) Case Else IsBlank = IsMissing(arg) End Select End Function  
 
AttachFilesToDB.rar

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

وهذه لقطتين واحدة لشاشة قائمة المراسلات والثانية لقائمة الرسائل في أحد المحادثات ..

 
لن أطيل عليكم الشرح فقد شرحت البرنامج في مقطعين فيديو الأول يشرح البرنامج والثاني كيفية تنصيب البرنامج على الأجهزة ..
أولا : شرح عمل البرنامج واستخدامه :
 
ثانيا : شرح كيفية تنصيب البرنامج على الأجهزة :
 
وأخيرا لا تنسوني من صالح دعواتكم ونصائحكم وإرشاداتكم ..
ولا أنسى أن أتقدم بالشكر الجزيل لأخي المهندس @ابا جودى على مراجعته النهائية للبرنامج ودعمه الدائم ..
 
لتحميل النسخة الغير مقسمة من هنا ::
https://drive.google.com/file/d/1OQFZJ_4hc1_dyNyz8PLkNPABE_4yM7e1/view?usp=sharing
ولتحميل النسخة المقسمة ( جداول و واجهات ) من هنا ::
https://drive.google.com/file/d/1oj-5wqwLgq8d6TSEyjikhGbEGAloz_Xp/view?usp=sharing
 
أخوكم ومحبكم ،،
موسى الكلباني
 

السلام عليكم ورحمة الله وبركاته ..
 
وبدون مقدمات  🙂 
يطيب لي أن أضع بين يديكم برنامج ( مكتبة الأكواد الخاصة )
كان الهدف من تصميم البرنامج أن يخدمني بشكل خاص وذلك لحفظ الأكواد التي أحتاجها بشكل دائم وتجميعها في مكان واحد وتسهيل عملية البحث والوصول إليها بكل سهولة ..
والبرنامج به تجميعة طيبة من الأكواد بعضها مما أبدعه الشباب هنا وبعضها مما صنعتها بنفسي ومنها من مواقع مختلفة ..
والآن أحببت أن أشارككم بها وأن تعم الفائدة للجميع 🙂 
البرنامج طبعا مفتوح بأحلاسه وأقلاسه ( بنماذجه وأكواده ) 😁
ويوجد فيه خاصية البحث ، وإدراج مرفقات (خارجية طبعا )
ومتاح للتطوير والتعديل والزيادة وتطويعه حسب احتياجاتكم .. 🌹
:: ولا تنسوني من صالح دعواتكم :: Pleeeeeeeeeeeeeeese 😄🤲🌷🌹
 
(واجهة البرنامج)

 
(نافذة تفاصيل الكود)

 
أعتقد البرنامج ما محتاج شرح واضح وضوح الشمس  😁
 
 ::والتحميل في المرفقات ::
مكتبة الأكواد الخاصة.accdb

السلام عليكم ورحمة الله وبركاته 
هذا ناتج تمرين اليوم على البرمجة VBA 🙂 
:: آلة حاسبة ::
أهديكموها مفتوحة المصدر  😊🎁
ملاحظة : تم إضافة خاصية الحساب عن طريق مفاتيح الكيبورد 😊
مع حل مشكلة الأرقام العشرية 😁
 
    
 
آراؤكم ودعواتكم 😉
 
 
Moosak Calculator V1.1.accdb

تفضل هذه المحاولة أخي @naguib_3778  🙂 
استخدمت هذا المعيار :
>=(Date()-Weekday(Date();7)+1) And <=Date() ووضيفته أن يحصر لك السجلات بين أول يوم من الأسبوع الحالي ( بدءا من يوم السبت ) والى اليوم الذي نحن فيه من نفس الأسبوع .

وإذا كان الأسبوع يبدأ من يوم الأحد تغير الرقم 7 إلى الرقم 1
New Microsoft Access Database.accdb

وعليكم السلام ورحمة الله وبركاته أخي هاني 🙂 
عملتها لك في استعلام .. ويمكنك أن تصمم منه نموذج ، وممكن تجعل فيه شرط [تحديد السنة].

اسم الاستعلام : Qry_No_of_Days_Abcent
تجميع غياب لكل طالب.mdb

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته

يسرني اليوم أن أقدم لكم هذه الهدية الرمضانية المتميزة والرائعة 😊
( الكاتب الذكي لدوال المجال في أكسس ) 
Dloockup, DCount, DMax, DMin, Dfirst, DLast , DSum, DAvg


هذه الأسطورة هي عبارة عن أداة صممتها في أكسس ( بفضل الله وحمده ) تقوم بكتابة دوال المجال نيابة عنك بشكل آلي .. وتعطيك النتيجة بشكل مباشر  😉👌🏼
لن يخطيء أحد بعد اليوم في كتابة جملة هذه الدوال إن شاء الله  😁
كل ما عليك فعله هو استيراد هذه الأداة لبرنامجك ثم اختيار الجدول أو الاستعلام المطلوب والحقل المراد وبعدها سترى العجب العجاب 🙂

✨ ومن مزاياها :✨ 
1 - تسهل عليك كتابة أسماء الجداول والحقول ( فقط تختارها من القائمة المنسدلة ) .
2- يحل مشكلة تداخل النصوص عند استخدامها مع الجداول والحقول المكتوبة باللغة العربية .
3- تفحص لك النتيجة مباشرة للتأكد من أنك ستحصل على البيانات التي تريدها .
4 - سهلة الاستخدام فقط اتبع الخطوات الموضحة وتأكد من اختيار نوع البيانات الصحيح .
5 - يمكنك عمل دالة بأربعة 4 معايير بكل سهولة ويسر .
6 - يمكنك عمل تعديلاتك الخاصة على الدالة مباشرة وفحص النتيجة مباشرة بعد التعديل على النتيجة النهائية .
7 - إمكانية الحصول على الصيغة الخاصة بمحرر الأكواد VBA أو الصيغة المستخدمة في الاستعلامات ومنشيء التعبير .
8- إمكانية استخدام الأداة بشكل مستقل من غير الحاجة لنقلها إلى برنامجك .
9- وغيرها الكثير مما سيفتح الله عليكم اكتشافه بأنفسكم إن شاء الله 😅
طريقة الاستخدام :
سهلة يسيرة بحمد الله .. فقط قم بسحب النموذج المسمى SmartDomainFunctionsBuilder_F إلى برنامجك عن طريق السحب والإفلات ..
ثم قم بفتح النموذج عندك وسوف يقوم هو آليا بالتعرف على الجداول والاستعلامات الخاصة ببرنامجك بدون الحاجة إلى جهد يذكر 🙂 
( مع إمكانية استخدام الأداة بشكل مستقل من غير الحاجة لنقلها لبرنامجك ولكنك ستفقد الكثير من المميزات 😉 )

الأداة تم عمل الكثير من التجارب عليها وتم تلافي العديد من الأخطاء وإصلاحها بحمد الله وفضله...
ولكن لا زلت لا أستغني عن آراءكم وملاحظاتكم من خلال استخدامكم لها  😉
الشرح بالتفصيل : 🙂 
وهنا قمت بشرح الأداة بشكل مفصل نوعا ما في مقطع فيديو مدته نصف ساعة تقريبا :
وأخيرا التحميل 😊
تحميل الملف الأصلي :
>> حمل من هنا آخر إصدار للأداة <<
تحميل الملف بلمسات المهندس العزيز @د.كاف يار :
د.كاف يار __Domain Functions Builder V1.0.accdb
 
وأهم من الأداة نفسها 😉
لا تنسوني من صالح دعائكم لي ولوالدي ..
ولا تحرموني من آرائكم ومقترحاتكم ونصحكم وإرشادكم 🙂 
 
أخوكم ومحبكم 
موسى الكلباني 😊
‏‏Domain Functions Builder V1.0.accdb

هل تقصد .. عند الضغط على الزر (1) تنتقل الالأصناف في رقم (2) إلى النموذج ؟
ومن الزر (3) تطبع الفاتورة ؟

أهلا بك أخي figo82eg 🙂 

تم عمل المطلوب ،،، وهو على جزئين :
1 - كود لإنشاء المجلدات المطلوبة موضوع على الزر الخاص بالحقل CRN :
Public Sub CreatFolders() Dim Fldr1 As String, Fldr2 As String, Fldr3 As String, Fldr4 As String, Fldr5 As String Dim DBPath As String Dim D As String: D = "\" 'فحص ما إذا كانت جميع الخانات معبئة If IsNull(Text10) Or Text10 = "" Then: MsgBox "يرجى تعبئة جميع البيانات": Text10.SetFocus: Exit Sub If IsNull(Me.نوع_الخطاب) Or Me.نوع_الخطاب = "" Then: MsgBox "يرجى تعبئة جميع البيانات": Me.نوع_الخطاب.SetFocus: Exit Sub If IsNull(Me.Combo1) Or Me.Combo1 = "" Then: MsgBox "يرجى تعبئة جميع البيانات": Me.Combo1.SetFocus: Exit Sub If IsNull(Me.Combo2) Or Me.Combo2 = "" Then: MsgBox "يرجى تعبئة جميع البيانات": Me.Combo2.SetFocus: Exit Sub If IsNull(Me.crn) Or Me.crn = "" Then: MsgBox "يرجى تعبئة جميع البيانات": Me.crn.SetFocus: Exit Sub Fldr1 = Me.Text10 Fldr2 = Me.نوع_الخطاب Fldr3 = Me.Combo1 Fldr4 = Me.Combo2 Fldr5 = Me.crn 'إنشاء المجلدات DBPath = BECurrentPath MkDir (DBPath & D & Fldr1) MkDir (DBPath & D & Fldr1 & D & Fldr2) MkDir (DBPath & D & Fldr1 & D & Fldr2 & D & Fldr3) MkDir (DBPath & D & Fldr1 & D & Fldr2 & D & Fldr3 & D & Fldr4) MkDir (DBPath & D & Fldr1 & D & Fldr2 & D & Fldr3 & D & Fldr4 & D & Fldr5) MsgBox "تم إنشاء المجلدات بنجاح" End Sub 2- كود لإحضار الملفات أو الصور على زر مسار الصورة ( ينسخ لك الصورة في المجلد المطلوب ، ثم يعرضها لك) :
Private Sub cmdAdd_Click() Dim file As String Dim fileName As String Dim DesPath As String Dim D As String: D = "\" DesPath = (BECurrentPath & D & [Text10] & D & [نوع الخطاب] & D & [Combo1] & D & [Combo2] & D & [crn] & D) If IsFileExists(DesPath) = False Then Call CreatFolders file = selectFile If IsNull(file) Or file = "" Then Exit Sub fileName = GetFileName(file) DesPath = DesPath & fileName FileCopy file, DesPath Me.ImagePath = fileName Me.ImageFrame.Requery MsgBox "تم إضافة الملف بنجاح" End Sub  
 
طبعا تم الاستعانة بعدة دوال عامة جميعها موجودة في الموديول basBrowseFiles
جرب وأخبرني بالنتيجة 🙂 
 
ارشيف - Moosak.rar

تفضل أخي figo82eg  🙂 
إضغط على المسار بالنفس للمعاينة

PIC-Fixed.rar

أسهل من العسل 🙂 
فقط أضفت دالة ()NZ لتجنب القيمة الفارغة

=Nz(DSum("[add_amount]";"[add]";"[add_date] >=#"& [Forms]![Employee]![date1] &"# And [add_date] <=#"& [Forms]![Employee]![date2] &"# And [emp_id] ="& [Forms]![Employee]![Employeecbo] &" ");0)  
test_5.rar

أنا مستمع جيد  .. نورني 
بسيطة .. غيرها إلى Dlookup 🙂 
DLookUp("[totalbook]";"[tblibrarey]";"[books] ='"& [Forms]![finfo]![bx] &"' And [readers] ='"& [Forms]![finfo]![rx] &"' ") العفو حبيبنا 😊🌹

وعليكم السلام 🙂 
 
جرب كتابتها هكذا : (أكبر من أو يساوي)---->     0.85

انتهيت ولله الحمد 😄

للتحميل من المرفقات ( دعوة للتجربة وإبداء الرأي ) 😊:
الروزنامة الأسبوعية.accdb