ابو جودي

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

بل اسمح لى سيدى انا اتعلم انا على يديكم جزاكم الله خيـــرا على متابعتكم وطرحكم المميز دائما ومن فضلك طالما انك تطرقت الى تلك الطريقة فلتوضح عمل الدالة 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

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

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