ابو جودي

طبعا سوف يتم تفادى المشكلة باستخدام هذا السطر ولكن لا احبذ استخدامه لانه سوف يتفادى اى خطا أخر غير ذلك وان كانت هناك مشكلة أخرى لن يستطيع المصم معرفة سبب المشكلة بسبب هذا السطر لذلك الافضل استخدام ErrorHandler ولذلك طلبت المرفق وعلى كل حال handler syntax error يكون بالشكل الاتى On Error GoTo ErrorHandler ' Insert code that might generate an error here Exit Sub or Exit Function ErrorHandler: ' Insert code to handle the error here Resume Next

ممكن مرفق من قاعدتك لو تكرمت ؟

السلام عليكم مشاركة مع استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل هذه فكرتى المتواضعة ولكن لى سؤال يا دكتور @الحلبي ما الداعى لعمل 3 نماذج او حتى نموذجين رئيسى وفرعى بينما يمكن عمل كل شئ من خلال نموذج واحد فقط اعتذر لو اسأت الفهم وتسرعت فى الرد دون الوقوف على الية العمل المناسبة بصراحة مررت مرور الكرام ولكن حاولت تقديم المساعدة على قدر فهمى فلترة6.accdb

الحمد لله تعالى فى السراء وقى الضراء الحمد لله على كل حال . ان العين لتدمع وان القلب ليحزن ولا نقول الا ما يرضى ربنا تعالى عز وجل . لله ما أعطى ولله ما أخذ انا لله وانا اليه راجعون اللهم اجرنا فى مصيببتنا وارزقنا الصبر برحمتك يارب العالمين . رب اغفر لي ولوالدى وللمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات .

جزاكم الله خيرا وبارك الله فى عمركم

deext.tlb هذه مكتبه جافا خارجية غير موجودة

طيب ممكن توضح سبب استخدام الكود ؟ يعنى حضرتك عاوز تعمل ايه ؟ الكود سليم وما فى اى مشاكل ..

تصحيح للمعلومات السابقة 1- عدم تفريغ المتغيرات ليس له تأثير فى تفريغ الذاكرة العشوائية او سرعة التعامل مع قاعدة البيانات ولكن فى حالة عدم تفريغها ومحاولة استخدامة نفس المتغير مرة أخرى باسناد قييمة جديدة لو اغفل المبرمج اسناد القيمة الجديدة سوف يحصل على القيمة السابقة 2- اما ال RS والتى تخص الـ Recordset عند استدعائها تقوم بفتح الجدول او الاستعلام حسب ما تسنده اليها وفى حالة عدم اغلاقها يظل الجدول او الاستعلام مفتوح وقد يحدث ذلك خطأ عند استدعاء نفس الجدول او الاستعلام مرة أخرى على اعتبار انه بالفعل مفتوح

السلام عليكم ورحمة الله وبركاته اساتذتى الكرام ،، تحية طيبة عطرة من باب الطمع فى تحصيل العلم إن قدر الله الخير وسمح لى وقتكم وجهدكم الثمينين اتمنى على الله تعالى ثم عليكم ان تتفضلوا بطرح أفكاركم النيرة وتنيروا ظلمات الجهل لى ولكل طلاب العلم جزاكم الله خيرا السؤال كان لاخت لنا فى المنتدى وتم الإجابة عليه وأعجبتنى الفكرة الى ان توسعت فتعثرت اولا الموضوع الأصلى ارفق لكم قاعدة جديدة والتى تحمل تساؤلاتى المرفق الجديد يعتمد فى عمله على العناصر الثلاث الاتيه جدول 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