essam rabea

أخى figo82eg هل هذا الفولدر به ملفات أخرى غير المسماه بنفس الارقام الموجودة بجدول الاكسس

@f16 اخى عمار الملف المرفق هو المطلوب ام لا وللرسالة المطلوبة بعدم التجاوز عن 999؟؟؟ ضع الكود التالى Private Sub p2_AfterUpdate() item_id = p1 item_id2 = p1 group_id2 = x1 'DoCmd.Requery If x1 = 100 And p1 > 100999 Then MsgBox "لقد تم بلوغ الحد الأقصى لمجموعة الملابس" Me.Undo x1.Undo x1.SetFocus Else If x1 = 200 And p1 > 200999 Then MsgBox "لقد تم بلوغ الحد الأقصى لمجموعة الأدوات الكهربائية" Me.Undo x1.SetFocus End If End If End Sub

آآآآآآآآآه وأنا أما اقول آآآه يعنى لأ 😃

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

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

أخى mostafa_27 فى الإستعلام أضف فى ال Field المعيار التالى b: Mid(Replace([الرقم];0;"");4;7) حيث Replace([الرقم];0;"") وظيفتها تشيل ال0 Mid(Snumber];4;7) تبد من رابع رقم من اليسار بطول 7 ارقام ولو عندك جدول به ما تريد ارفقه للعمل عليه خالص تحياتى

بص حضرتك محمد صلاح1 انا مقلتش تمسح الملف .. فك الضغط شغل القاعدة لأول مرة .. سيتم إنشاء مجلد فى ال D إسمه way to heaven إن لم يكن موجود ..سيتم نسخ ملف RenameDB.cmd الى الفولدر الجديد .. سيتم مسح الملف RenameDB.cmd من مسار قاعدة البيانات والتحقق من صلاحية إسم القاعدة كل ده فى المرفق السابق

أخى محمد صلاح1 على عجالة جرب ورد Test.zip

عذرا أخى إنتظر من الإجابة ليلا .. أروح بس وأفضالك

هل تعلم بالضبط عدد الأرقام التى تريد إزالتها من اليسار أم هي متغيرة

الأخ محمد صلاح1 أولا : انت رفعت تمت الإجايه ليه .. هيا معجبتكش تانى ولا مستنى ابا جودى من هنا 😀 لعلمك أنا كمان مستنيه ثانيا : بالنسبة لإستفسارك الأول Shell ("D\way to heaven\RenameDB.cmd") ثالثا : بالنسبة لإستفسارك الثانى مالهوش اى علاقة بالموضوع دا كان ملف بعدل عليه حاجات لأحد الأعضاء نظرا لأنك لم ترفق مثال بالتوفيق

ابا جودى والله لقد أخجلتنى كرما بارك الله لك فيما تملك ورزقك من حيث لا تحتسب

أينما يوجد دفع هتلاقونى ناطط 😉

أخى N_ELMASRY راجع هذا الموضوع ستجد ضالتك إن شاء الله

HCT Permit To Work System.zip

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

أخى محمد صلاح1 معذرة أرفقت الملف الخطأ Test.rar

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

أخى صلاح بفرض أن قاعدة بياناتك إسمها .. Test.accdr ..وتم تغيير الإسم أو الإمتداد وليكن الى Test.accdb لفك الحمايه لن تفتح القاعدة وسيتم ظهور الرسالة السابقة وسيتم إغلاق القاعدة هناك ملفان يجب وضعهم فى فولدر واحد ومن ثم فتح القاعدة .. Test.accdb .. أما الملف الآخر .. RenameDB.cmd .. وهو المسئول عن إعادة إسم قاعدة البيانات كما كانت ومن ثم تعو للعمل مرة أخرى وبإمكانك نقله لمكان آخر حتى لا يتم التلاعب به مع تغيير مساره فى هذا الكود Private Sub Form_Close() Shell (Application.CurrentProject.Path & "\RenameDB.cmd") DoCmd.Quit acQuitSaveAll End Sub CMD لو تم تغيير مكان ملف فيجب تغيير المسار Application.CurrentProject.Path الى المسار الجديد كما يمكنك التعديل على ملف RenameDB.cmd كما بالصورة أرجو أن أكون أوضحت ويكون هو المطلوب .. السن الكبير برضه ليه عزره بالتوفيق Test.accdb

اذا ومما هو المطلوب بعد بلوغ الحد الأقصى للعدد؟

أخى محمد صلاح1 حل على قدى كدا جايز يكون المطلوب بس على إسم الملف بالكامل مش الامتداد فقط شغل المرفق ثم اغلق وغير فى الاسم واعد التشغيل ووافنى بالنتيجة Test.accdb

تكتب رقم المستخدم تظهر جميع بياناته هل هذا ما تريد ؟ HCT Permit To Work System.mdb

هل تقصد هذا؟ Test.accdb

جرب هذا الكود لعله يفيد Private Sub Form_Load() DoCmd.Close acForm, "form1" DoCmd.OpenForm "form1" Forms!form1.Form.Visible = False End Sub

اخرتها اطلع استاذه