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

وعليكم السلام-كان عليك لزاما قبل رفع المشاركة استخدام خاصية البحث فى المنتدى ,فقد تكرر هذا الموضوع مرات عديدة ومنها : https://www.officena.net/ib/topic/94016-دالة-استخراج-تاريخ-الميلاد-والنوع-والمحافظة-من-الرقم-القومي/?tab=comments#comment-583042

تفضل Final Indeminity1.xlsx

تفضل قائمة 1منسدله.xls

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

وعليكم السلام-تفضل Test vlookup1.xlsx

وعليكم السلام -تفضل استاذنا الكريم ياسر خليل ابو البراء على تناول هذا الموضوع من قبل اعتذر منك استاذى الكريم ياسر فليس هناك امكانية فى وضع الرابط هنا ولكن تم وضعه داخل الملف لكى تعم الإستفادة للجميع للإطلاع على هذا الموضوع والإستفادة منه ان شاء الله حماية المعادلات في كل أوراق العمل Protect Formulas In All Sheets.xlsm

أحسنت استاذ مجدى عمل رائع جعله الله فى ميزان حسناتك

أحسنت استاذ مجدى بارك الله فيك

اتفضل اخي الكريم Dim Rs, RsFile As Recordset Set Rs = CurrentDb.OpenRecordset("اسم الجدول") Rs.MoveFirst Do While Not Rs.EOF If IsNull(DLookup("ID_User", "Users", "ID_User='" & [ID_User] & "'")) Then Rs![ID_User] = [ID_User] Rs![ID_Group] = [ID_Group] Rs![IAM] = [IAM] Rs![BIRTHDATE] = [BIRTHDATE] Rs![Email] = [Email] Rs![PHONE] = [PHONE] Rs![ImagePath] = [ImagePath] Else If Rs![ID_User] = [ID_User] Then Rs.Edit Rs![ID_Group] = [ID_Group] Rs![IAM] = [IAM] Rs![BIRTHDATE] = [BIRTHDATE] Rs![Email] = [Email] Rs![PHONE] = [PHONE] Rs![ImagePath] = [ImagePath] Rs.Update End If End If Rs.Update Rs.MoveNext Loop Rs.Close

طيب حضرتك اتفضل جرب Prog302.mdb

طريقة اخرى Count Down WaitSeconds.accdb

فورم حذف البيانات المسجلة فيديو9 الفيديو

جرب المرفق ترحيل خلايا محددة لاخري محددة في شيتات مختلفة.xlsm

شرح كيفية عمل شاشة دخول للاكسل بصورة جمالية الفيديو

الاداة لا علاقة لها بقاعدتك اصلا ولا تصدر اى شئ منها انما تقوم بفتحها وتحدد منها مكان قاعدتك او اى قاعدة تريدها لتمكن او تعطل عمل زر الشيفت لها وتختر اما تفعيل الشيقت او ايقافه

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

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

اتفضل 120 (1).accdb

سبحان الله هذا رزقك خطرت على بالى فكرة ونجحت اتفضل Count Down WaitSeconds.accdb

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

أحسنت استاذ مجدى بارك الله فيك

بارك الله فيك وزادك الله من فضله

طيب وكده هل الحمد لله انحلت مشكلتك شوف وقولى لو تمام ان شاؤ الله اقول لكم عملت ايه . e.rar

فورم بحث بالاسم او رقم التليفون فيديو10 الفيديو

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

الله يسعدك ويزرقك ويجعلك للمتقين اماما ً اسأل الله تعالى ان يحسن اليكم كما تحسنون الى طلاب العلم امثالى شكر الله لكم استاذى الجليل

بارك الله فيك وجزاك الله خير اباجودي اداه مهمة جدا لكل مبرمج الف شكر وفقك الله ونفع بك

لا شكر على واجب وبعدين لا ابداع ولا شئ هذا رزقك وفضل من الله تعالى اولا واخيرا

اكثر جمل الاتصال الآمن استخدمها تكون على النحول التالي في رأس موديل الفورم Option Explicit Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Const SW_HIDE As Long = 0 Private Const SW_SHOWNORMAL As Long = 1 الاتصال ( اضف الأيبي + اسم المستخدم + كلمة المرور ) ShellExecute Me.hwnd, "Open", "C:\Windows\System32\mstsc.exe", "/P pinghost=Enter server IP address: '' \\%pinghost% /user:''\username ''", "C:\", SW_SHOWNORMAL اذا استطعت الاتصال و الدخول لسطح المكتب يصير الأمر بسيط فقط بتعديل السطر اعلاه

صباح الخير ياورد ويا كلك ورد شكراً استاذي ابا جودي

شكرا عزيزي على الاداه جربتها فكرتها جد ممتازه واريح لي من اكود وزحمه الف شكر لك ممتازه

شكرا عزيزي على الاداه جربتها فكرتها جد ممتازه واريح لي من اكود وزحمه الف شكر لك

عليكم السلام اخي ابا جودي نورت الصفحه مرور الخبراء يسعدني وتعليقاتكم جد تفرحني وتفيدني بنسبه للازرار اخي كلامك صحيح 100% انا لقيت اناه وجود الازرار بهادا الشكل اسهل بنسبه لي بما اني جديد في عالم اكسس + انا الوحيد الى جالس اتعلم اكسس واحاول اعمل نمادج بسيطه ع قدي يعني عشان كدا ماعندي خوف من المتطفلين اشكرمرورك الطيف اخي العزيز لاتحرموني من النصح والتوجيه

ماشاء الله تبارك الله وربي انك استاذ , الله يبارك فيك و يمتعك بالصحة و العافية و يزيدك من فضلة و علمة شكرا لك الف الف شكرا هذا هو المطلوب

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

ممتاز اباجودى بارك الله فيك وجعله الله فى ميزان حسناتك وشفاك الله وعفاك

تمام اشتغل الاخير (الجدول غير موجود بالبرنامج استوردته من البرنامج السابق و اشتغل) شكرا على التعب

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

بارك الله فيك اخي @رمهان فيديو يحمل فوائد قيمة ومفيده للمبرمج ...

من اين اتى الرقم 15 و ثاني شيء انا لم انتبة الى الحرف S في المعادلة يجب ازالته ,0,(VLOOKUP(C11,$A$1:$CV$7,COLUMNS(AM1=

بارك الله فيك وزادك الله من فضله

لا يمكنك فعل هذا لان لكل ملف خصائصه من ناحية عدد الأعمدة فيه وبداية البيانات ونهايتها بالاضافة الى نوعيتها (نصوص أرقام الخ...) بل يمنكك تعديل الكود بما يتلائم مع وضعية الملف الذي تريد العمل عليه على فكرة تم التعديل قليلاُ على الملف السابق بحيث تستطيع عمل الفلترة على اي عامود من الجدول وليس فقط (Name1) تختار الحقل اولاً من الخلية B1 (يتم اطهار كافة البيانات) ومن ثم تحدد اي عنصر من هذا الحقل تريد من الخلية C1 الملف الجديد مرفق Filter_By_Select_by_col.xlsm

جر ب هذا الشيء Evaluation _Salim.xlsx

تم عمل كود بصفحة Data لجلب التاريخ كما انه تم عمل كود ايضا للطباعة فى صفحة Search2 ,وبهذا اعتقد ان كل الطلبات تمت ولا يوجد شيء اخر بحث3.xlsm

تم التعديل اللازم كما تريد ليأخذ اى احتواء او ما يشمل هذه العبارة بحث2.xlsm

تفضل بحث1.xlsm

أيوه كده برده فين عمود التاريخ أهو العمود AJ

أاى عمود للتاريخ تريد العمل عليه؟

أخى الكريم فى مشاركتك الأولى أخبرتنا ان هذه الجملة لما هو وارد بالعمود AD وليس y وأما بالتاريخ قهو الموجود بالعمود L لو فى حاجة غير كده يبقى انت كده حيرتنى وهتخلينى اعيد الكود كله من الأول l

تفضل لك كل ما طلبت ht.xlsm