ابو جودي

هات المرفق ليتم التعديل المناسب

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

انا فعلا الان امسيت جوعان

اتفضل ان شاء الله كون قدرت افهم طلبك Nouveauie.zip

ومن اجل هذا ان كان هناك مرفقا لاخذ الاجابة الوافية

شوف رقم يوزر الادمن او اسمه واعمل الزر اصلا مخفى وعند فتح النموذج if adminSN=1 then me.cmdX.Visible = True ' OR By Name if adminUN="Admin" then me.cmdX.Visible = True

بسيطه انت بس اجعل مصدر بيانات التقرير هو الاستعلام Qcdc

جزاكم الله خيرا اساتذتى الكرام

جزاكم الله خيرا اساتذتى الكرام

مبدئيا تجربة توزيع الطلاب على عدد المدرجات فى انتظار ابداء الرأى لنرى ما بعد ذلك split students.accdb

ههههههههههه انا اسف جدا جدا جدا انا نسيت اذكر الجزئية دى انا اسف 🙏 طبعا انا حملت الملفات الهامة التى تخص المكتبات وملف التسجيل والغاء التسجيل للمكتبات من خلال ملفات دفعية فى قاعدة البيانات لعدم حذفها اصلا بأى شكل فبفقدانها تتعطل القاعدة عند تغير نظام التشغيل اذ لابد من اعادة تسجيل المكتبات مرة اخرى وفى كل مرة عند فتح القاعدة تقوم بعمل دونلود للملفات منها الى نفس مسارها وتقوم باستبدال القديم اللى حضرتك غيرت فيه اسم القاعدة وردا على سؤالك هل هذا يرثر على قاعدة البيانات : فى الوقت الراهن او بمعنى ادق ان كان تم تسجيل المكتبات لن يكون هناك اى تأثير ولكن مستقبلا عند الانتقال لجهاز آخر او تغيير نظام التشغيل الملف الدفعى سوف يقوم بعملية التسجيل على اكمل وجه ولكن لن يتم فتح القاعدة بشكل الى كما حدث معكم وشاهدتم عند التجربة لفتح القاعدة فى المرة الاولى لانه فى المرة الاولى فقط تم تشغيل الملف الدفعى لكن بعد ذلك القاعدة تعمل بدون فتح الملف الدفعى طيب الحل ايه شوف يا سيدى حضرتك تقوم بتغيير اسم القاعدة فى الملف الدفعى لاسم القاعدة الجديد بعد ذلك تقوم بفته القاعدة بالضغط على الشيفت لتخطى نموذج البدء الذى وظيفته فى كل مرة تحميل عمل دونلود للملفات من القاعدة بعد فتح القاعدة اظهر الكائنات المخفية وبعد ذلك افتح النموذج باسم : UsysfrmUpload بعد ذلك تجد عمود باسم Blob_comment فيه الملفات المحملة فى القاعدة اختر الصف الذى به اسم الملف الدفعى Register.bat وفى نفس الصف تجد زر أمر باسم upload اضغط على الزر ومنه اقتح مسار القاعدة ومن المجلد Reference قم بتحديد الملف الدفعى Register.bat بذلك انت الان قنت بعمل ابلود للمف الجديد الى القاعدة واتبدلت القديم بهذا الملف الجديد وللتأكد من عملك اغلق القاعدة احذف مجلد Reference افتح القاعدة بشكل طبيعى سوف يتم انشاء المجلد من جديد ويتم تحميل الملفات من القاعدة اليه افتح الملف الدفعى Register.bat فى وضع التعديل وشاهد اسم القاعدة تجده الجديد سوف اقوم بتصوير كل ذلك وارفق الصورة ولكن قمت بكتابة الشرح تقصيلا كمال طلب واشار استاذى الجليل ومعلمى القدير و والدى الجبيب الاستاذ @ابوخليل

اساتذتى الكرام واخوانى واحبابى جزاكم الله خيرا

القاعدة الامامية يتم تشغيلها من خلال قاعدة الفتح Run My App وتقوم من تلقاء نفسها بالارتباط بالقاعدة TablesArchivingDB ان كانت فى نفس المسار وتطلب منك تحديد المسار ان لم تجد قاعدة الجدوال فى مسارها والقاعدتين الامامية والخلفية مشفرتان بكلمة مرور اما قاعدة الفتح مشفر بتحويلها الى accde

الاستاذ @ahmedhassan1948 شكله نايم ما شاف الحلول الى الان واستاذى القدير ومعلمى الاستاذ @ناقل يبدو انه زعلان لانى لم انقل عنه كما تعودنا

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

انا اقل طالب علم بدات ابو جودى والان ابو جودى وحتى مماتى سوف اضل ابو جودى

وهذا موضوع أ=آخر

اعتذر للتأخير فى الرد على حضراتكم فى الوقت الراهن انا فى العمل الان

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

اتفضل

يا استاذ @محمد البدري انت كده مش عاوز جدول انت عاوز برنامج كامل انا مش فاهم قصدك بصراحة ؟ ياريت توضح اكتر

طبعا لانه غير منضم ده شئ طبيعى

مشاركة مع استاذى الحبيب الاستاذ @ناقل انا ايضا ناقل من استاذى الجليل ومعلمى القدير و والدى الجبيب الاستاذ @jjafferr Dim MyWher As String Dim A As String Dim x() As String A = DLookup("[p1] & '|' & [p2] & '|' & [p3] & '|' & [p4] & '|' & [p5] & '|' & [p6] & '|' & [p7] & '|' & [p7]& '|' & [p9]", "[PlatPrice]") x = Split(A, "|") MyWher = x(0) If ComPlat.Value = "Twitter" And Me.comType = "Click" Then TargetPlas.Value = MyWher * 0.5

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