ابو جودي

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

كل الشـــكر والتقدير أستاذى الجليل واخى الحبيب الاستاذ @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 وكود فتح النماذج التي سيكون لها صلاحيات اخى الكريم انا بعيد كل البعد اذا اقترب انت كل الاقتراب الذى تريدة من واقع كل الامثله او بالطريقة التى يمن بها الله عليك انا اقدم المساعدة على قدر فهمى واعتذر اليك انا لا افهم لذلك اعتذر اليك واتمنى لك من كل قلبى التوفيق والنجاح بالوصول والى مسعاك

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

اليوزر والباسورد 1 1 2 2 هذا المثال يا استاذ @محمد صلاح1 فى ابسط حالاته بعد التعديل البسيط حسب طلبك الكود الذى يتم وضعه على النماذج للتاكد من الصلاحيات المعطاه FrmAbilities (Me.Name) If ContinueCode = False Then Exit Sub والتقرير ReportAbilities (Me.Name) If ContinueCode = False Then Exit Sub مثال صلاحيات.mdb

على اعتبار ان حقل المجموع اسمه = txtQuantity ضع هذا الكود على زر الامر جديد Select Case Nz(txtQuantity, "") Case "" MsgBox "Quantity is empty, include the Quantity please" Case Is <= 0 MsgBox "Quantity is zero or less, include the Quantity please" Case Is > 0 DoCmd.GoToRecord , , acNewRec End Select

ممكن القاعدة تبعك النى تعمل عليها التى نفلت الاكواد اليها من فضلك قم بارفاق قاعدتك هنا

هل ممكن تسجيل الـ dll بنفس الطريقة ؟؟

طيب هى المشاكل تظهر فى المرفقات تبعى واللا بعد ما حضرتك تنقلها لقاعدة اخرى ؟ سؤال كمان لو تكرمت هل تقم بفك الضغط عن المرفقاات قبل استخدامها وان كانت الاجابة بنعم هل يتم ذلك فى القطاع C

تهنئة من القلب للأستاذ الفاضل د.كاف يار (حسين كمال) مع خالص الدعاء بدوام التوفيق

طيب على العموم المرفق مره اخرى بنموذج اخر يعتمد هذه المره على الدالة API جرب استخدام النموذج frmB Move files ( 2 ).zip

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

كبف واين

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

انه يعمل بنجاح اين المشكله Base de données4 - Copie.accdb

ممكن المرفق اللى حضرتك شغال عليه

غيرها الى exit sub