ابو جودي

السلام عليكم ورحمة الله وبركاته اساتذتى الكرام ،، تحية طيبة عطرة من باب الطمع فى تحصيل العلم إن قدر الله الخير وسمح لى وقتكم وجهدكم الثمينين اتمنى على الله تعالى ثم عليكم ان تتفضلوا بطرح أفكاركم النيرة وتنيروا ظلمات الجهل لى ولكل طلاب العلم جزاكم الله خيرا السؤال كان لاخت لنا فى المنتدى وتم الإجابة عليه وأعجبتنى الفكرة الى ان توسعت فتعثرت اولا الموضوع الأصلى ارفق لكم قاعدة جديدة والتى تحمل تساؤلاتى المرفق الجديد يعتمد فى عمله على العناصر الثلاث الاتيه جدول tblRegVacation >>---> جدول يتم فيه تسجيل اول تاريخ بدء الأجازة ,اخر تاريخ لنهاية الأجازة , وطبعا كود الموظف qrySysSourc >>---> استعلام سحرى يعتمد على جدول من جداول النظام وهذا اول تساؤلاتى أريد فهمه وفيما يمكن الاستفادة منه أكثر qryVacationsDetailed >>---> استعلام يعتمد على الاستعلام السابق والجدول يسجل التاريخ متسلسلا ومفصلا بناء على أول تاريخ وأخر تاريخ المطلوب كيفية استثناء العطل الأسبوعيه ( الجمعة و السبت - أو أى أيام أخرى تبعا للحاجة ) وكذلك التواريخ للعطلات الرسمية والمحجوزة ومسجلة فى الجدول tblHolidays وذلك كما تم عمله فى الحل بالمرفق الأصلى للموضوع الأساسى جزاكم الله خير Daynamic Gnrate Date.zip

يا هلا والله كود ولا أروع افضل واسرع جزاكم الله خيــــــــــــرا

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

اولا فى ظل تقدم تكنولجيا الحواسيب والمعلومات وايقاف الدعم من ميكروسوفت لويندوز7 هجرع الكثيرون ثانيا تصحيح صغير ببعض الحيل يمكن تنصيبع على ويندوز 7 وقنت بذلك قبل فترة لاستاذ @ابوبسمله تقريبا لوم لم تخوننى الذكرة للعلم إن أردت المقارنة حقا بين الاصدارات 2010 اسرع وأكثر أستقرار من 2013 و 2016 و 2019 2021 تقريبا ابطئ قليلا بدرحة غير ملحوظة من 2010 لكنه أكثر إستقرار لو أردت الإحتيار لا تخرج عن 2010 , 2021 ملاحظة الأكسس 64 بت أسرع من 32 سواء استخدمت قاعدة البيانات على جهاز منفردا بنفسه أو عبر الشبكة المحلية وتتم ملاحظة الفرق بدرحة كبيرة جدا لو ان تتعامل مع هارد SSD or MM2 طيب للعلم كذلك قبل سبتمبر 2018 ، أوصت Microsoft بالإصدار 32 بت كتثبيت افتراضي لـ Access ، إلى جانب برامج 32 بت الأخرى من Office. في الوقت الحاضر ، يعد الإصدار 64 بت هو الافتراضي الموصى به ، كما هو الحال بالنسبة لجميع برامج Microsoft 365 الخاصة بهم وأعتقد استاذى الجليل ومعلمى القدير و والدى الاستاذ @jjafferr قد تطرق الى تلك الجزئية وأوضحها بعد ذلك الوصول و SQL Server أحد الأسباب التي تجعلك مضطرًا للذهاب إلى 64 بت Access هو أن قاعدة البيانات الخاصة بك بها نهاية خلفية لـ SQL Server والجداول الموجودة في تلك النهاية الخلفية تحتوي على حقول من نوع بيانات bigint. تم تجهيز إصدارات 64 بت من Access ، بدءًا من الإصدار 2007 ، بنوع بيانات رقم أكبر ، مما يوفر التوافق المطلوب. لا يمكن أن تدعم إصدارات 32 بت من Access نوع بيانات "الرقم الكبير". هذه بعض الاعتبارات الخاصة بترقية الكمبيوتر من 32 إلى 64 بت Access: هل تفي أجهزة الكمبيوتر بالحد الأدنى من المتطلبات لنظام التشغيل Windows 64 بت و 64 بت من Office 365؟ دون الخوض في التفاصيل ، فإن الحد الأدنى من المتطلبات هو معالج أسرع من 1.6 جيجا هرتز ، و 4 جيجا بايت من ذاكرة الوصول العشوائي ، و 4 جيجا بايت مساحة خالية على القرص الصلب وشاشة بدقة 1280 × 768. راجع https://products.office.com/en-gb/office-system-requirements هل الكمبيوتر مزود بنظام Windows 64 بت؟ (لا يمكنك تثبيت Office 365 64 بت على جهاز كمبيوتر يعمل بنظام Windows 32 بت) لا يمكنك مزج 32 بت و 64 بت Access على نفس الكمبيوتر إذا كنت تنوي تشغيل قاعدة بيانات متعددة المستخدمين على أجهزة كمبيوتر بمزيج من 32 بت و 64 بت Access فهناك اعتبارات إضافية قد تحتاج إلى القيام بها عند التعامل فقط مع دوال API لتوافر العمل على كلا النظامين مكاسب في الأداء مع 64 بت الآراء المعبر عنها على الويب حول مكاسب الأداء المنسوبة فقط إلى ترقية تطبيقات 32 بت إلى 64 بت من المستخدمين منقسمة ولكن الأغلب يفضل التعامل مع 64

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

القديمة جدا الاقدم من 2003 تقريبا بعضها لا تعمل للاسف لا يمكن اعتقد لا ولكن الـ 64 بت افضل حسب رأى الشخصى المتواضع Microsoft Office LTSC Professional Plus 2021 Version 2108 (Build 14332.20435) الافضل

يضااااااااااااااف للمكتبـــــــــــه فورا شكرا لحسن تعاونكم وفى انتظار المزيد المكتبه خاويه يا سلام لو ترفع لنا مكتبتك العامرة بالامثلة على قوقل درايف وتشيرها دا التخدى اللى بجد ....... احلام اليقظه ♥☺

السلام عليكم استاذ @حمدى الظابط تحية طيبة خلينا نمشى مرحلة مرحلة انظر الى هذا التعديل وأخبرنى أولا هل هذا الجزء الأول تمام وهو إحضار الايميلات للطلاب الذين سوف يتم تحديد اسمائهم فقط سوف تظهر الايميلات فقط لمن تم التأشير على اسمائهم فى رسائل لو انا فاهم صح سوف يتم بعد ذلك استبدال الرسائل بكود الارسال ‏‏تجربة2 - نسخة.mdb

اتفضلى استبدلى الكود تبعك بهذا الكود Dim iDate As Date Dim strSQL As String Dim isHoliday As Integer For iDate = Me.txtFirstDate To Me.txtLastDate If Format(iDate, "w") = 1 Or Format(iDate, "w") = 2 Or Format(iDate, "w") = 3 Or Format(iDate, "w") = 4 Or Format(iDate, "w") = 5 Then isHoliday = DCount("*", "tblHolidays", "HolidayDate = " & Format(iDate, "\#mm\/dd\/yyyy\#")) If isHoliday <= 0 Then strSQL = "INSERT INTO tblDay" strSQL = strSQL & " ( DayDate )" strSQL = strSQL & " SELECT " strSQL = strSQL & " '" & iDate & "';" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True End If End If Next iDate شرح التعديل تم الاعلان عن متغير رقمى isHoliday تم اضافة دالة المجال dcount من جدول الاعياد tblHolidays فى حالة ان تاريخ العيد او العطلة الرسمية يساوى قيمة المتغير iDate والذى يتم اسناد تورايخ البدء والانتهاء للحلقة التكرارية اليه وفى حالة ان القيمة العددية للمتغير isHoliday =0 اى انه لا يوجد اى تاريخ لاى عطلة فى الجدول مسبقا تتساوى مع التاريخ الحالى فى حلقة التكرار وفى هذه الحالة باستخدام قاعدة IF يتم الحاق التاريخ الى الجدول tblDay طبعا ان كانت القيمة العددية للمتغير isHoliday >0 هذا معناه ان ان التاريخ الحالى فى الحلقة يتساوى مع احد التواريخ فى جدول الاعياد tblHolidays وسوف يتم تجاهل الالحاق لهذا التاريخ وتستمر الحلقة حتى تنتهى من عملها الفكرة أعجبتنى جدا وأكثر ما أعجبنى طريقة أستاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr فى كتابة استعلام الالحاق داخل محرر الأكواد تم رفع المرفق بعد التعديل للكود .. مثال-(2).mdb

السلام عليكم ورحمة الله تعالى وبركاته اولا : كل الشكر لكل اساتذتى الكرام الذين ادلو بدلوهم وشاركوا معلوماتهم فى هذا الموضوع ثانيا: وتلبية لدعوة الدكتور @الحلبي لمشاركة افكارى المتواضعة سوف اقوم بعمل موضوع مستقل واتيكم بالرابط اصبر وابشر وانتظر

اتفضل للعلم انا ما غيرت شئ بس فتحت التنسيق الشرطى فى وضع التعديل وقمت بالاغلاق دون التعديل على اى شئ واشتغل كل شئ حقيقة لا ادرى سبب المشكلة ارسال (2).rar

اتفضل ملفك بعد التعديل GSTION.accdb

وعليكم السلام ورحمة الله وبركاته اتفضل طلبك تم من خلال التنسيق الشرطى ارسال.mdb

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

طيب استخدم الاكواد الاتية زر أمر التالى With Recordset If .AbsolutePosition = .RecordCount - 1 Then MsgBox "Sorry, this is the last Record. To create a new Record one click the Add New Record button.", vbInformation Exit Sub Else DoCmd.GoToRecord , , acNext End If End With زر أمر السابق With Recordset If .AbsolutePosition = 0 Then MsgBox "Sorry, this is the First Record", vbInformation Exit Sub Else DoCmd.GoToRecord , , acPrevious End If End With وبكده تنتهى مشكلة الرسالة المزعجة احنا ما يرضينا زعلك

استاذى الجيل ومعلمى القدير الاستاذ @مبرمج متقاعد انتم الاروع وتم حل مشكلة موضوع تغير اللون مع التركيز ولا تزعل تطبيق لون (4).accdb

وزى ما بينحكى بالمثل لكل شيخ طريقة واثراء للموضوع استخدمت نفس الطريقة للنموذج المستمر تطبيق لون (3).accdb

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

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

مبارك عليك استاذي @AbuuAhmed الترقية ونفع الله بك وزادك الله من فضله اعتذر على التأخير بسبب ظروفى فى تقديم التبريكات والتهنئة وقطعا ان هذ تكليف وليس تشريف لذا اعانكم الله ونفع بكم وجعل ما تقدمون فى موازين اعمالكم ولكن ان حضرت متأخرا أفضل من ان ألا آتى أبدا واجمل باقة ورد لورد المنتدى اخانا الحبيب @AbuuAhmed

على النعمه انت 100 الميه وشكلك بتقول كلام كبير قوى بس انا ولا فاهم اى شئ .. أعذرنى الله اعلم بحالى لو انا قدرت افهم قليلا المشكلة مش فى قاعدة الاكسس ولا الاكتيف اكس اللى فى المكتبات الداخليه للاكسس مطلقا المشكلة ان الملف الدفعى نفسه اللى يسجل مكتبات الـ Dll الخارجية التى يتم الاستعانه بها هو الذى يعمل بالاصدار NET Framework 4.6 افتح الملف الدفعى باسم Register فى المرفق من المجلد Tools انا استخدمت هذا السطر لتسجيل المكتبات C:\Windows\Microsoft.NET\Framework\v4.0.30319\regasm.exe وذلك لتفادى كل المشكل التى واجهتها بشبح الاصدار الاول حى يعمل على انطمة 7 و 10 و 11 >> 32 /64 لا تبدأ بالاعتراض اصبر وتريس احمد ربنا انك لم تشارك فى هذا الموضوع الشبح اسال اللى حضر واللى قرأ واللى اغمى عليه من عدم النوم بالايام والليالى

انت تانى وشبح الفاتورة الإلكترونية مصدقنا خلصنا منها يا رااااااااااااااااجل

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

بسم الله وعلى بركة الله نبدأ اول شئ ؟ خلينا نخلص الاشياء اللى راح تحتاج الى التجهيز بالأكسس بس علشان نقدر نفهم الموضوع من اخوانا الكرام ياللى فاهمينه صح واعذرونى وتحملونى فى الغياب والانقطاع المفاجئ والذى قد يكون متكرر فى الفترة المقبلة الى أن يأذن الله تعالى ويتمم شفاء والدى على خيـر هو وكل مريض هذا حمل الولد الوحيد لأبيه سوف اتابع بقدر الامكان اولا بصراحة دخلت على الفيديو الخاص بشرح الباش مهندس @Amr Sobhy الذى اشار اليه وهو مشكورا وضع معه مرفق يحتوى على قاعدة أكسس و مجلدات كثيرة بكل صدق مررت سريعا وان شاء الله لى إن أذن ربى لى عودة ولكن مبدئيا حتى افهم الموضوع جيدا سوف تدور نقاشات واستفسارات كثيرة وحتمية بعد التمعن جيدا فى الفيديو فقط قمت بتجربة قاعدة الاكسس والتى تحتاج تسجيل للمكتبة التى اخبرنا عتها الباش مهندس @Amr Sobhy سوف ارفق لكم القاعدة بتعديل بسيط حتى يمكن التسجيل للمكتبات واضافتها اليا من الملف الدفعى بمجرد فتح قاعدة البيانات كما قمنا بها مسبقا فى الجزء الأول ملاحظة هامة تم تعديل الملف الدفعى ليعمل كمسئول من تلقاء نفسه بمجرد فتح قاعدة بيانات الاكسس حتى يتمكن الجميع بما فيهم من ليس له دراية بطريقة تسجيل المكتبات بتشغيلها كمسئول متطلبات التشغيل : Framework الاصدار 4 ------------------------------------------------------------------------------- يمكن تحميل الملف الاتى هو يقوم بالتحديثات اللازمة سواء ويندوز 7 , 10 , 11 إذهب الى موقع التحميل : من هنا ( تحميل مباشر من mediafire .. من رفعي انا على حسابي الشخصي بالموقع ) ميزات برنامج All in one Runtimes: سهل الاستخدام و مفيد للغاية في تقليل الزمن الضروري للبحث عن الأدوات كلٍ على حدا. مجاني بشكل كامل و يقدم الكثير من الفائدة و يمكنه حمايتك من المواقع التي قد تصيب جهازك بفيروسات سيئة عند التحميل منها. يعمل بشكل ذكي حيث يقوم بتحديد ما يحتاجه حاسبك و لن يقوم بتثبيت كل الأدوات بشكل عشوائي. يقدم مجموعة كبيرة من الأدوات الضرورية في حاسبك و أهمها: .NET Framework 4.6 + Updates Java Runtime Environment 8 DirectX 9.0c Extra files General runtime files Microsoft Visual C++ Runtimes (v2005 – v2015) Microsoft Visual J# 2.0 SE Microsoft Silverlight 5 Shockwave Player 12 (Internet Explorer Plugin) ------------------------------------------------------------------------------- لكبر حجم المرفق تم تقسيمه على قسمين برجاء وضع القسمين معا فى نفس المسار ليتم فك الضغط بنجاح 626302988_VBA_ZatcaIntegrationV2.part1.rar 1345862990_VBA_ZatcaIntegrationV2.part2.rar

السلام عليكم ورحمة الله تعالى وبركاته وبعد اذن استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr تسهيلا على اخونا السائل على اعتبار ان الحقل اسمه ff اولا باستخدام دالة Switch Switch(IsNull(Trim([ff])),3,[ff]="Na",3,[ff]="ناجح",1,[ff]="فاشل",2) ثانيا باستخدام دالة iif IIf(IsNull(Trim([ff])),3,IIf([ff]="Na",3,IIf([ff]="ناجح",1,IIf([ff]="فاشل",2)))) وطبعا انا افضل دالة Switch لا يصير منها لخبطة مع كثرة عدد الحروف بالكود وبخاصة مع كثرة المتغيرات واستخدام الاحرف العربية اللى تشقلب الكود رأسا على عقب وتجيب لمحرر الاكواد صداع