نجوم المشاركات

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

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

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

بعد نسخ الخلية Ctrl+C 1- حددد المكان المقصود 2- اضغط بالتوالي ATL+E+S+V ثم Enter

اخالفك الراي عزيزي أبو الجود فما فائدة ان أقوم بعمل قد يأخذ مني من الوقت ما يقارب الشهرين او اكثر ولا اهتم بحمايته ويأتي شخص بكل سهولة ويقوم بكسر الحماية ونسب جهد غيره لنفسه انا مع ان تقوم بحماية عملك وتعبك بما اوتيت من قوة وخاصة اذا كان هذا العمل لجهة ربحية اذن انت يا أستاذ خالد من جيل ويندوز 3.1 و 3.11 وكمبيوتر 286 و 386 و 486 وصولا الى البنتيوم 1 في 95 هرمنااااا يا عزيزي فانا مثلك اعمل منذ زمن بعيد واقوم بحماية برامجي بكل قوة من عبث المتطفلين وذلك لانها ربحية وفق الله الجميع تحياتي

السلام عليكم في الغالب لا يتم الاكتفاء بوسيلة واحدة للحماية هذه بعض الأمثلة علي ما استخدمه بشكل شخصي وأرجو من أخوتي واساتذتي بذكر بعض وسائلهم بالحماية: 1- وضع كلمة سر علي محرر الأكواد 2- اخفاء كائنات البرنامج (نماذج وتقارير واستعلامات .... الخ) 3- تقسيم البرنامج الي BackEnd & FrontEnd يعني جزء للواجهات وجزء للجداول فقط - مع وضع كلمة سر علي الجزء الخاص بالجداول ثم الربط ما بينهما بكود عند فتح البرنامج وازالة الارتباط بنفس الكود بعد نهاية الاتصال أو نهاية العمل بالبرنامج. 4- تعطيل زر الشفت 5- تحويل البرنامج الي صيغة accde فهي قوية الي حد ما يصعب على المتوسط في البرمجة تجاوزها. 6- يتم تجميع محتويات البرنامج بمجمعات البرامج وانشاء ملف تنفيذي exe لتسطيب البرنامج ووضع مسار قاعدة الجداول داخل مسار معين أو داخل مسار البرنامج مع انشاء اختصار للبرنامج علي سطح المكتب لدي العميل بحيث لا يري منه سوي الأيكونة الخارجية فحسب. 7- بعض الحيل البرمجية كاخفاء خلفية الأكسس و القوائم وأداة الانتقال بين الكائنات. ما أعتقد أن بعد كل هذا ستحتاج لكلمة سر لإيقاف عمل الشفت - أو أنك ستكون قلقا علي تجاوز حماية برنامجك بشكل سهل- علي حسب ظني. تمنياتي بالتوفيق نسيت شيئا قبل كل هذه الاجراءات لابد من أخذ نسخة لا يوجد بها كل هذه الأمور وهي النسخة السورس التي ستكون لديك تعدل عليها عند الحاجة

هذه بضاعتكم اردها اليكم يا دكتور اسأل الله ان اكون وفقت فى فهم وتنفيذ طلبكم يا دكتور @حلبي ترقيم حسب المدير والتاريخ (1).accdb

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

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

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

ممكن بفكرة بس مش هعرف اعملها انا اقول لك على الفكرة وانت شوف حد يعملها لك 1- اعمل قاعدة بيانات مرفقة داخله جوة قاعدة البيانات الاصلية اللى انت عاوز لو اتغيرت ترجعها تانى فى القاعدة المرفقة دى اعمل كود انها تجيب لك اسم القاعدة اللى معاها فى المسار وتقارنه بالاسم القديم لو تمام خلاص لو مش تعمل رنيم بالاسم القديم 2- عند فتح نموذج الدخول مثلا يحمل القاعدة المرفقة للمسار فى حالة ان اسم القاعدة اللى شغاله اتغير لما تعمل له مقارنه ويقفل القاعدة الحاليه 3-القاعدة المرفقه لما تفتح هى تعمل رينيم اليا وتفتح القاعدة الاصلية وتقفل نفسها هى لفة بس اعتقد انها فكرة ممكن تنفذ اللى انت عاوزه ههههههههههههههههههه شوف مين بقه ممكن يعمل لك الافكار دى لان انا ما اعرفش بصراحة انا المخ وانتم العضلات انا بصراحة مش فاهمه حجات كتير باحاول اتعلم افكر وانفذ لسه

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

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

طريقة اخرى عن طريق خطوتين في الاستعلام بعد اذن اخي ومعلمي @essam rabea Database441.accdb

تفضل أستاذ /mostafa_27 هذة كانت إحدى مشاركات أحدع الأعضاء أرجو أن يكون المرفق هو طلبك المقصود مقارنه بين جدولين.mdb

والله اخي حسين مامون ما كنت اعتقد اني سوف اتواصل الاهدا عمل رائع جزاك الله خيراً الي طلب اخر إذا كان بإمكانك اخي الكريم اريد تعديل الكود الدى يقوم بعمل نسخة احتياطية حتى يقوم بعمل نسخة احتياطية للملف بالكامل بجميع الاكواد والمعادلة في المجلد في D

شكرا على الاهتمام هل يمكن لهذا الكود ان يفي بالغرض For x = 1 To Sheets.Count If Sheets(x).Range("A1") = 1 Then MsgBox Sheets(x).Name Next

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

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

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

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

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

لا والله استاذي @AlwaZeeR انا من جيل DOS 3 وقاعدة بيانات database 2 اعتقد كان هذا اسمها اما اول جهاز لدي كان بمعالج 8088 او 8086 كانت ترمز لها xt ثم بعد سنوات ظهرت معالجات at بداية بالمعالج 80286 وكان نقلة كبري لانه يقبل زيادة الرام ولم يكن هناك هارديسك كان المستخدم فلوبي ديسك 8.25 ثم 5.25

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

وعليكم السلام حول جميع خلايا الدرجات الى رقم سوف تعمل المعادلة بشكل صحيح اعتقد انك نقلت الدرجات كنص وتم لصقها كنص تحياتي علامات 2018-2019-اوفسينا.xlsx

وعليكم السلام ان شاء الله يمشي الحال شوف المرفق جدول غياب4.xlsm

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

أختنا كما تعلمين أن الدين النصيحة كما قال رسول الله صلي الله عليه وسلم لذي فأهمس لك وأنا لك ناصح: 1- لا يجوز الحلف بغير الله (فمن حلف بغير الله فقد أشرك كما قال رسول الله صلي الله عليه وسلم) 2- لغتنا العربية أولي بالاحترام والتقديم علي غيرها - وسهلة الفهم (حتي علي مثلي من الصعايدة 😁) فلا داعي للتقليل من شأنها. ودمتم بسعادة وانشراح صدر بالاسلام.

بعد اذن الاخ احمد وزيادة في اثراء الموضوع هذه المعادلة (Ctrl+Shift+Enter) =INDEX(ورقة1!$B$5:$CI$500,MATCH($C$2&$D$2,ورقة1!$B$5:$B$500&ورقة1!$C$5:$C$500,0),MATCH($D6,ورقة1!$B$4:$CI$4,0))

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

تعديل للعمل على العامودين جلب البيانات بشروط افقية وراسية.xls

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

حرب هذا الماكرو Option Explicit Sub ALL_In_One() Dim M As Worksheet Dim sh As Worksheet Dim my_rg As Range Dim t%: t = 2 Set M = Sheets("ورقة4") M.Range("A2", Range("D1").End(4)).ClearContents For Each sh In Sheets If sh.Name <> M.Name Then Set my_rg = sh.Range("A1").CurrentRegion With my_rg M.Cells(t, 1).Resize(.Rows.Count - 1, _ .Columns.Count).Value = _ .Cells(2, 1).Resize(.Rows.Count - 1, _ .Columns.Count).Value t = t + .Rows.Count - 1 End With End If Next End Sub الملف مرفق book1_salim.xlsm

تفضل التعديل اخي الكريم ملف 1.accdb