أبوبسمله

وعليكم السلام ورحمه الله وبركاته اتفضل استاذ @مالك الحرايزة على قدر فهمى للسؤال بالتوفيق معدل _2.rar

السلام عليكم مشاركه مع اخى واستاذى @ابو البشر استاذ @salah.sarea اليس هذا الطلب شبيه بالطلب السابق

واياكم اخى واستاذى @kanory 🌹

السلام عليكم ورحمه الله وبركاته مشاركه مع اخى @kkhalifa1960 اتفضل استاذ @atef-saied جرب المرفق ووافنى بالرد عاطف1452(1).rar

السلام عليكم ورحمه الله مشاركه مع اخى واستاذى @kanory اطلع ع الرابط التالى ايضا

لله ما أعطى ولله ما أخذ إنا لله وإنا إليه راجعون عظم الله اجركم ورحم الله ميتكم والهمكم وذويكم الصبر والسلوان

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

السلام عليكم ورحمه الله وبركاته مشاركه مع اخوتى واساتذتى جزاهم الله عنى كل خير اتفضل حاجه ع قد حالى بالتوفيق test2023_1.accdb

السلام عليكم ورحمه الله وبركاته مشاركه مع الاستاذ @غريب طرابلس جزاه الله كل خير برجاء الاطلاع على الموضوع التالى لمعلمنا العزيز جعفر جزاه الله عنا كل خير بالتوفيق

نعم عملته على عجاله ويمكن معالجه الامر واستخدام الشروط بالتوفيق اخى احمد وتمنياتى للجميع بالتوفيق

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

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

احسنت اخى احمد واتفضل جرب تعديلى ع مرفق اخى موسى بالتوفيق برنامج الأقساط - موسى_1.rar

واياك اخى اتفضل هذا التعديل على جرب فتح سجل فارغ بالتوفيق m3_2.accdb

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

وعليكم السلام ورحمه الله وبركاته الشكر لله ثم لاخواننا واساتذتنا جزاه الله عنا كل خير وانا بشكرك على الامتثال لفتح موضوع جديد بالطلب الجديد شكرا لك اخى اتفضل ع قدر ما فهمت وان لم يكن فوضح اكثر بارك الله فيك بالتوفيق m3_1.accdb

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

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير استبدل الكود اللى فى زر فتح التقرير بالتالى Dim sWhere As String If Len(Me.Combo170 & "") = 0 Then sWhere = "Month([ApptDate])= " & intPubMonth & " AND Year([ApptDate]) = " & intPubMyYear DoCmd.OpenReport "rpt_qry", acViewPreview, , sWhere Else sWhere = "DoctorName ='" & [Forms]![frmCalendar_Large]![Combo170] & "'" sWhere = sWhere & " And Month([ApptDate])= " & intPubMonth & " AND Year([ApptDate]) = " & intPubMyYear DoCmd.OpenReport "rpt_qry", acViewPreview, , sWhere End If بالتوفيق

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير اتفضل بالتوفيق MOMO_2.accdb

السلام عليكم ورحمه الله وبركاته اتفضل اخى @MO87 حاجه على قد حالى وكما فهمت من السؤال اشتغلت على اسم الطبيب عند فتح النموذج ستجد جميع البيانات اختر ادمن 1 او 2 وشوف هل هذا ما تريد ام لا ان كان اكمل انت الباقى بالتوفيق MOMO_1.accdb

السلام عليكم اتفضل ابوجوده بطريقه اخرى بالاستعلام وليس عن طريق الكود استعلام qryVacationsDetailed3 SELECT DISTINCT tblRegVacation.EmpCode, DateAdd("d",[Factor],[StartDate]) AS [First Date], tblRegVacation.EndDate FROM qrySysSourc, tblRegVacation WHERE (((DateAdd("d",[Factor],[StartDate])) Not In (SELECT tblHolidays.HolidayDate FROM tblHolidays; )) AND ((qrySysSourc.Factor) Between 0 And DateDiff("d",[StartDate],[EndDate])) AND ((Weekday(DateAdd("d",[Factor],[StartDate]))) Not In (6,7))); بالتوفيق Daynamic Gnrate Date_1.mdb

الظاهر استاذ @طاهر الوليدي ان تعديلى لم يرقى للرد منكم بالتوفيق

نعم صحيح وذاكرتك زى الفل ابوجودى وحاليا استخدم اداه لتسطيب الاوفيس 2019 وتعمل بشكل جيد Office_2013-2019_C2R_Install_+_Lite_v7.0_password_qwertyuiop_2 تقبل تحياتى

وعليكم السلام ورحمه الله وبركاته اخى محمد جرب المرفق فيه 2 استعلام وكل واحد بطريقه تقبل تحياتى Daynamic Gnrate Date.mdb

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