alexandrien

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

السلام عليكم كيف حالك عندي في اكسل صف كل خلية فية تحتوي رقم 1 او رقم صفر مثال الكتابة في صفحة اكسل تكون من اليسار لليمين (مهم جدا) 11101 المطلوب عندما اكتب الرقم 1 في اخر خلية على اليمين يقوم البرنامج باخذ الصف باكملة ويضعه اسفل الرقم واحد بشكل عمودي بدون قيمة الخلية الاخير المدخلة مثل كذا 11101 1 1 1 0 الخطوة الثانية يقوم باخذ الصف باكملة مع القيمة الاخيرة المدخلة ويضعها في شكل عمودي يبعد 4 اعمدة طبعا ممكن عمل هذة الطريقة بعمل نسخ للصف المطلوب ولصقة في المكان المطلوب مع اختيار خانة تبديل الموضع انا اريد عمل هذة الاجراء اليا المطلوب ثانيا عند وضع قيمة 0 نفس الخطوات السابقة لكن عند نسخ الصف ولصقة بشكل عمودي يقوم بتغيير قيمة رقم 1 لصفر وتغيير قيمة الصفر لواحد عنوان مخالف ... تــم تعديل عنوان المشاركة ليعبر عن طلبك

السلام عليكم ورحمة الله وبركاته اخواني الكرام هل يمكن وضع شرط لتأمين أو عدم تأمين الخلايا في الاكسل حيث ان لدي ملف به بعض الخلايا محمية من التعديل فيها وأرغب حذف التأمين والحماية بمجرد الكتابة في خلية محددة. هل يمكن عمل هذا ؟ أرجو ممن لديه المعلومة أن يشرحها لما وجزاه الله الجنة بغير حساب.

up

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

أخي ابو خليل جزاك الله خيرا ولكن لم ينجح الامر معي هل هناك حل آخر ؟

السادة المشرفين والخبراء في الأكسس السلام عليكم ورحمة الله وبركاته منذ فترة قمت بتصميم برنامج وكنت استخدم اوفيس 2003 وبعد ما انتهيت تقريباً من اعداد البرنامج اخذت نسخه منه على جهاز آخر ولكن تفاجأت ان الجهاز يحتوي على اوفيس 2010 وعند فتح البرنامج تظهر الرسالة التالية وعند محاولة فتح أي نموذج تظهر نفس الرسالة ارجو المساعدة في حلها ضروري جدا ولكم جزيل الشكر

أخي جزاك الله خيراً على ردك وفعلاً تعديلك حل جزء من المشكلة لتوضيح المطلوب أكثر بعد ما تفضلت أخي الكريم بعمل التعديلات وجدت أن التقرير يكتب اسم الطالب ورقم ملفه واسم الكتاب . بالرغم من أن أسماء الاشياء المستعارة ليست كلها كتب لذلك وضحت أكثر أنه المطلوب أن لا يتكرر اسم الطالب ورقم ملفه في كل سجل وجد رقمه في الجداول بل يكتفي بذكر اسم الطالب ورقم ملفه في رأس التقرير فقط . وفي تفصيل التقرير يذكر فقط اسماء الجداول التي ظهرت فيه رقم ملف الطالب ولذلك قمت برفع الملف مرة أخرى ليوضح ما هو مطلوب تعديله وجزاك الله خيراً db1.zip

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

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

كلامك مضبوط يا أخي وشكراً لك على وجهة نظرك المهمه فعلاً جزاك الله خيرا

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

للرفع

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته الأخوة والأخوات مشرفي وأعضاء المنتدى الكريم قمت بتصميم قاعدة بيانات وقمت بإدارج كود ووضعته في نموذج بدء التشغيل حيث يعمل هذا الكود على حذف الجداول والعلاقات بين الجداول في تاريخ معين وهذا هو الكود : Private Sub Form_Load() If Date = #10/1/2012# Then 'لحذف العلاقات بين الجداول Dim DB As DAO.Database, i As Integer Dim totalRelations As Integer Dim RS As Recordset Dim TableName As String Set DB = CurrentDb() totalRelations = DB.Relations.Count If totalRelations > 0 Then For i = totalRelations - 1 To 0 Step -1 DB.Relations.Delete (DB.Relations(i).Name) Next i End If 'لحذف الجداول Set RS = DB.OpenRecordset("Select name from MsysObjects where (type = 1 and name not like 'Msys*')") Do While Not RS.EOF TableName = RS("Name") On Error Resume Next DoCmd.DeleteObject acTable, TableName RS.MoveNext Loop RS.Close End If End Sub والكود يعمل بشكل ممتاز جدا وعندما قمت بتقسيم البرنامج لكي يعمل على الشبكة فأصبح البرنامج مقسم بهذا الشكل : قاعدة الجداول فقط واسمها : برنامج متابعة السيارات_be.mdb قاعدة النماذج والتقارير والجداول المرتبطة واسمها : برنامج متابعة السيارات.mdb وبعدها لم يعمل الكود وأعتقد أن الكود لم يجد الجداول في القاعدة التي تحتوي على النماذج ( برنامج متابعة السيارات.mdb ) لذلك أرجو منكم التعديل على الكود حتى يقوم بحذف الجداول في القاعدة الثانية ( برنامج متابعة السيارات_be.mdb ) مع العلم أن القاعدتين موجودين في الدرايف D داخل مجلد ( برنامج متابعة السيارات ) وهل سوف يعمل الكود إذا ما تم وضعه على الجهاز الآخر الذي يشارك قاعدة البيانات ؟ مع جزيل الشكر والتقدير لكل من ساهم في الحل

أخي الغالي بارك الله فيك فعلاً فاتت عليا الحل ده لكن لك جزيل الشكر والتقدير