كل الانشطه

إن الله مع الصابرين ومعلش معلومة من تلميذك الصغير تكتب ( إن شاء الله ) بارك الله فيك أخي الكريم وكل الأخوة الأعضاء بخير وبصحة وسلامة

انشاء الله سأكمل ولكن الصبر

مرفق وشرح جميل من رجل كريم بارك الله فيك واصل أخي الكريم

بارك الله فيك يا اخي جارى التجربة

استاذ @2saad جرب المرفق ومعه الشرح . واذا عجبك سأنسق وأعدل وأمحو الغير مطلوب حسب طلبك بالضبط .............. ووافني بالرد . الشرح من هنا https://www.mediafire.com/file/im7x8ocnv9e1uxk/205.gif/file SaadPermissions.rar

up

تم فصل الموضوع لموضوع جديد مستقل هنا :-

وعليكم السلام ورحمة الله وبركاته أخي الكريم.. يسعدني أنك وجدت جواباً لطلبك الأول ، بمساعدة الأستاذ @منتصر الانسي .. الآن وللعلم فقط بأن اختيار تمت الإجابة سيكون عليك ان تختاره للمشاركة والإجابة التي حلت مشكلتك ، وليس لإجابتك أنت. لذا تم إلغاء اختيار تمت الإجابة. وأخيراً وكما ذكرت لك سابقاً.. حاول إنشاء موضوع مستقل لكل طلب تريده . ولا تنسى استخدام خاصية البحث في المنتدى ، فقد تجد طلبك بسهولة في مواضيع سابقة تم طرحها. سيتم فصل طلبك هذا في موضوع مستقل جديد 👍 ودمتم بخير جميعاً لسعة صدركم 💐

دة على 2010 بس مش شغال عندي النظام عندى اوفيس 2013 عربي نواة 32

الاساتذه المحترمون هل يمكن مساعدتي في انشاء محرك بحث عن اسم العضو انا انشئت بحث عن رقم الاكتتاب و رقم التخصص ولم تنجح معي انشاء بحث عن اسم العضو جزاكم الله كل خير 2008.rar

ليس بالضرورة أن تكون بينها علاقة في مخطط العلاقات أهم شيئ أن يكون بين بيانات النموذج الرئيسي وبيانات النموذج الفرعي حقل مشترك يربطهما معاً .

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

بارك الله فيك فكرة جيدة .... عند الضغط والاصلاح يفقد الحماية ..... هل جربت الضغط على مفتاح Alt+F11

اتفضل نتاج عملي أمس بالمرفق . RetirementDate.rar

و عليكم السلام ورحمة الله وبركاته. تفضل الحل اجتهاد مني و بمساعدة الذكاء الصناعي و إن شاء الله أحد أساتذة المنتدى يقوم بالتطوير أو يقدم إضافات يوجد ملفين الأول ProtectedWorkbook وهو خاص بالعميل الثاني KeyGenerator وهو خاص بك لتوليد المفاتيح التي سيستخدمها العميل لتحويل الملف من تجريبي لدائم خطوات العمل . 1.العميل يفتح الملف 2. يرسلك محتوى خلية B6 Machine ID مثال: DESKTOP-ABC123_AHMED 3. تفتح KeyGenerator.xlsm تكتب اسم العميل + تلصق الـ Machine ID تضغط "توليد الكود" 4. يظهر لك مثلا: ACT-05837291 ترسله للعميل 5.العميل يدخله في B12 ويضغط "تفعيل" ProtectedWorkbook.xlsmلا تنسى وضع كلمة سر لمحرر الأكواد أخيرا لا يوجد حماية 100% في Excel لأن المستخدم يقدر يعطل الماكرو أو يكسر الحماية لا تنسى وضع كلمة سر لمحرر الأكواد كيف يعمل النظام: · أول 3 أيام يعمل طبيعي مع رسالة "متبقي X أيام" · بعد 3 أيام يُقفل ويطلب كود تفعيل · نقل لجهاز جديد يكتشف الفرق ويطلب كود جديد · تفعيل صحيح يُفتح نهائياً على ذلك الجهاز أخيرا لا يوجد حماية 100% في Excel لأن المستخدم يقدر يعطل الماكرو أو يكسر الحماية KeyGenerator.xlsm

بارك الله فيك اخي الكريم

اولا / الملف السابق به كودين كلاهما معاينة تم تعديل احدهما الى طباعة ثانيا :- للتطبيق على ملفك / احعل لغة الجهاز العربية وانسخ الكود المرفق وفي ملفك الاخر قم بالدخول إلى صفحة الفيجوال بيسك عن طريق التبويب Developer(المطور) ثم Visual Basic ثم من قائمة Insert اختر Module والصقه به واربطه بزر في الصفحة المراد ترقيمها ملاحطة/ الكود المرفق مهمته الطباعة مع الترقيم ان اردت المعاينة مع الترقيم بدون طباعة غير كلمة FALSE الى TRUE في الجملة ws.PrintOut From:=i, To:=i, Preview:=False Sub طباعة() Dim ws As Worksheet Dim totalPages As Long Dim i As Long Dim pageNum As Integer Set ws = ActiveSheet totalPages = (ws.HPageBreaks.Count + 1) * (ws.VPageBreaks.Count + 1) For i = 1 To totalPages pageNum = Application.WorksheetFunction.RoundUp(i / 2, 0) If i Mod 2 <> 0 Then ws.PageSetup.CenterFooter = "الصفحة " & Format(pageNum, "00") Else ws.PageSetup.CenterFooter = "تابع الصفحة " & Format(pageNum, "00") End If ws.PrintOut From:=i, To:=i, Preview:=False Next i End Sub

شكرا جزيلا وبارك الله فيك ولكن كيف يتم تطبيقه على ملف آخر؟

اشكرك جدا سيدي @منتصر الانسي اللهم زادك علما وجزاك الله خيرا وبارك الله فى علمك صحح لي فهمى الان كما فى الصورة التالية اذا اردت ان يخرج النموذج الاساسي ورقة بيانات فرعية من خلال علامة "+" فلابد ان يكون هناك نموذج فرعي داخلة مرتبط بالحقلين الذي لهم علاقة ولابد ان تكون هناك علاقة لهم داخل ملف العمل اولا . هذا مقصدك كاملا ام هناك شئ اخر لم اصل اليه ؟ لك كل التقدير والاحترام

هو ممكن يتحول البر هو ممكن برنامج اكسس يبقي exe يشتغل بدون اوفيس

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

بعد إذن الأخ @Foksh يبدو أن المشكلة ناتجة عن إختلاف البيئة إلى بيئة x64 لذلك قمت بعمل Debug وتعديل الأسطر التي ظهر عندها خطأ الآن التطبيق يعمل عندي بدون مشاكل 2008.rar

اخي الكريم يجب عليك التفريق بين حالتين (الجداول/الإستعلامات و النماذج/التقارير) من حيث طريقة إستعراض البيانات المرتبطة بين جدولين ففي الجداول والاستعلامات يتم إظهارها بإستخدام ورقة البيانات الفرعية Subdatasheet وهي عبارة جدول أو إستعلام آخر مرتبط بهذا الجدول أو الإستعلام وبنفس الفكرة إذا أردنا إستعراض بيانات أخرى مرتبطة ببيانات النماذج والتقارير فيجب أن تكون فيما يسمى (النماذج الفرعية Subform أو التقارير الفرعية Subreport) بالتالي فإذا أردنا إظهار البيانات بالشكل المطلوب داخل النموذج فيجب أن تكون البيانات ضمن نموذج آخر يتم إدراجه كنموذج فرعي مرفق لك الملف بعد التعديل Sub-data_sheet.accdb

وعليكم السلام ورحمة الله وبركاته .. اخي الكريم بالإطلاع على موضوعك . لا تعجب من أنك لم تجد إجابة . وهذا منطقي لأسباب كثيرة . أذكر منها على عُجالة :- عدم توضيح المطلوب بشكل كافي عن طبيعة المشكلة . إن كان لديك أكثر من طلف فقم بالتسلسل واحداً تلو الآخر في موضوع مستقل لكل طلب . مع إضافة الشرح لكل مطلب بشكل منفرد . وبإذن الله حال تصويبك للأوضاع ستجد أن الحلول بدأت تأتيك تباعاً لطلبك . وطبعاً اعذر إخوتك . ففي هذه الليالي المباركة يودعون رمضان ويترقبون ليلة القدر بفارغ الصبر

شكرا جزيلا أخي الفاضل