ابو جودي

صلاة علي النبي المصطفي (صلي الله عليه وسلم) واجهة ادارة قضايا مكتب محامى.zip

صدقنى ما راح اتركه لو طلب منى التصميم الا ان دفع وهى جفلت امعاى يا بوي حتى لو راح يطير بيها رجاب <<------< تحول الى صعيدى

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

فى هذه الحالة استخدم دالة حساب العمر سوف اتيك بالرابط اتفضل المرفق الفرق بين تاريخين (3).mdb

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

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

حاجة ع السريع كده

تدفع كاااااااااااااااااااااااااام ؟

اتفضل Prog1 (2).mdb

انظر الى هذا الاستعلام وأستاذى العزيز واخى الحبيب الاستاذ @kha9009lid اكتشفت شئ بمرفق اخونا الحبيب الاستاذ @مرحبا البي ماذا ان كان التاريخ >>----> 16/12/2019 لقد قمت بعمل الكود الاتى لحل هذه المشكلة Function RD(MyDate As Date) Select Case Nz(Month(MyDate), "") Case Is <= 11 Select Case Nz(Day(MyDate), "") Case Is <= 15 RD = Format("01" & "/" & Format(MyDate, "mm/yyyy"), "dd/mm/yyyy") Case Is > 15 RD = Format("01" & "/" & Format(MyDate, "mm") + 1 & Format(MyDate, "/yyyy"), "dd/mm/yyyy") End Select Case Is = 12 Select Case Nz(Day(MyDate), "") Case Is <= 15 RD = Format("01" & "/" & Format(MyDate, "mm/yyyy"), "dd/mm/yyyy") Case Is > 15 RD = Format("01/01/" & Format(MyDate, "yyyy") + 1, "dd/mm/yyyy") End Select End Select End Function ---------------------- test5.accdb

على اى حقل تريد التطبيق

انا مش قادر افهم

انا لم افهم اين هى المشكلة تحديدا واين هو البخث اصلا ؟!

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

كل الشـــكر والتقدير أستاذى الجليل واخى الحبيب الاستاذ @kha9009lid يعنى ممكن نسهل الموضوع شوية ونقول انها تشبه دالة Replace ولكن الجميل انها تكتب مرة واحدة فقط طيب وممكن نعمل لها كود داخل موديول حتى نستطيع استخدامها فى كل زوايا البرنامج زى المثال البسيط ده Function RD(MyDate As String) Dim SmallerThan As String Dim GreaterThan As String Dim MyDay As Integer MyDay = Day(MyDate) 'extract the day from a specific date 'treatment of date to be returned on the day it was extracted SmallerThan = "01" & "/" & Format(MyDate, "mm/yyyy") GreaterThan = "01" & "/" & Format(MyDate, "mm") + 1 & Format(MyDate, "/yyyy") RD = Switch(MyDay <= 15, SmallerThan, MyDay > 15, GreaterThan) End Function وننادى عليه بكل زوايا البرنامج مع مراعاة تغيير xx باسم حقل التاريخ RD([xx]) الاستاذ والاخ الحبيب @مرحبا البي جرب المرفق التالى واخبرنى بالنتيحة إرجاع تاريخ.accdb

ممكن المرفق اذا تكرمت لاقوم بالفحص معك

مع أن الحقول لم تكن متشابهة

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

اعتذر على التأخير Move File.zip

وهذه مرفقات من مكتبتى قد تجدون منها الافكار التى تساعد ان شاء الله فى اتمام العمل 2003سين وجيم مفتوح .mdb اختبر معلوماتك في الاكسس.mdb

اتفضل يا سيدى إرجاع تاريخ.accdb

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

أسأل الله العلي القدير ان يجعل نوره الثنيان من اهل الجنه وان يسكنه فسيح جناته وان يجعل قبره روضة من رياض الجنة وان يمد له في قبره مد البصر وان تكون الآخرة خير من الدنيا وان تفتح لها ابواب الجنان وان يلهمكم وكل ذويه الصبر والسلوان لله ما أعطى ولله ما أخذ وكل شيء عنده بأجر اللَّهُمَّ اغْفِرْ لَهُ وارْحَمْهُ وعافِهِ واعفُ عنْهُ وأكرمْ نُزُله ، ووسِّع مُدْخلَهُ ، واغسلهُ بالمَاءِ والثَّلْجِ والبَرَدِ ، ونَقِّهِ من الخطَايا كَمَا نَقَّيْتَ الثَّوبَ الأَبيضَ من الدَّنَسِ ، وأَدْخِلْهُ الجَنَّةَ وأعِذْه من عَذَاب القَبْرِ (ومِنْ عَذَاب النَّارِ ) يا ايتها النفس المطمئنة ارجعي الى ربك راضية مرضية فأدخلي في عـبادي وادخلي جنتي وبشر الصابرين الذين اذا اصابتهم مصيبة قالوا انا لله وانا اليه راجعـون لأحول ولا قوة إلا بالله العالي العظيم عظَّم الله أجرك، وأحسن الله عزاءك، وغفر الله لوالدك انا لله وانا اليه راجعون

اليس هذا طلبك فى الرسالة الخاصة كنت تريد العلاقة بين CUsers & UserDefs وكود فتح النماذج التي سيكون لها صلاحيات اخى الكريم انا بعيد كل البعد اذا اقترب انت كل الاقتراب الذى تريدة من واقع كل الامثله او بالطريقة التى يمن بها الله عليك انا اقدم المساعدة على قدر فهمى واعتذر اليك انا لا افهم لذلك اعتذر اليك واتمنى لك من كل قلبى التوفيق والنجاح بالوصول والى مسعاك