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

وعليكم السلام-كان عليك لزاما قبل رفع المشاركة استخدام خاصية البحث فى المنتدى ,فقد تكرر هذا الموضوع مرات عديدة ومنها : 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

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

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

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

كان فيه خطا في المرفق السابق حمل التعديل Prog302 (1)2.mdb

اذا كنت فهمت المطلوب جرب المرفق ومافي داعي تدخل رقم اول مستند Prog302 (1)2.mdb

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

طيب انا مش فاهم كويس ممكن سؤال لو النموذج الفرعى بدون اى سجلات نهائيا على تريد اغلاقها ؟؟؟

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

اخي و حبيبي @ابا جودى انت معلمنا و استاذنا الفاضل تأمر علينا و نحن ننفذ حبا لك مرفق التعديل مثال للتعامل مع الصور (1).mdb

اتفضل ان شاء الله تجد ضالتك Prog302 (1).mdb

مشاركة مع اخي ابا جودي بعد اذنه اتفضل Prog302.mdb

بسيطة يا سيدى انتظرنى

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

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

فكرة جميلة

اتفضل للعلم لا ادرى ان كانت هناك حلول برمجية ام لا ما اقدمه اليك مجرد حيلة وتحايل ليس إلا Database6 (2).accdb

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

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

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

الشكر الموصول لك اخي العزيز العيدروس اللهم زدك علما وبارك لك في عملك ورزقك على مابذلته في مساعدتي

علكم السلام هذه تجربة متواضعة يمكنك العمل عليها ان اعجبتك التنقل بين الصفحات.xlsm

هذا رزقي وابداعك استاذي ابا جودي شكرا كتير الك

اكثر جمل الاتصال الآمن استخدمها تكون على النحول التالي في رأس موديل الفورم 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% انا لقيت اناه وجود الازرار بهادا الشكل اسهل بنسبه لي بما اني جديد في عالم اكسس + انا الوحيد الى جالس اتعلم اكسس واحاول اعمل نمادج بسيطه ع قدي يعني عشان كدا ماعندي خوف من المتطفلين اشكرمرورك الطيف اخي العزيز لاتحرموني من النصح والتوجيه

بعد اذن اخي علي قائمة منسدله 1.xls

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

كلام من ذهب تسلم استاذنا وحبيبنا @رمهان

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

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

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