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

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

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

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

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

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

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

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

اخي العزيز من بعد اذن الادم واعضاء الكرام اذهب الى الوحدات النمطية وانشأ وحدة جديدة module وانسخ هذا الكود Function ap_DisableSift() On Error GoTo errdisableshift ' ÊÚØíá ãÝÊÇÍ ÇáÔÝÊ Dim DB As dao.Database Dim prop As dao.Property Const ConPropNotFound = 3270 Set DB = CurrentDb() DB.Properties("AllowByPasskey") = False Exit Function errdisableshift: If Err = ConPropNotFound Then Set prop = DB.CreateProperty("AllowByPasskey", _ dbBoolean, False) DB.Properties.Append prop Resume Next Else MsgBox "ÚãáíÉ ÊÚØíá ãÝÊÇÍ ÇáÏÎæá Çáì ÇáäÙÇã áã ÊßÊãá ÈäÌÇÍ" Exit Function End If End Function Function ap_EnableSift() On Error GoTo errdisableshift ' ÇÊÇÍÉ ãÝÊÇÍ ÇáÔÝÊ Dim DB As dao.Database Dim prop As dao.Property Const ConPropNotFound = 3270 Set DB = CurrentDb() DB.Properties("AllowByPasskey") = True Exit Function errdisableshift: If Err = ConPropNotFound Then Set prop = DB.CreateProperty("AllowByPasskey", _ dbBoolean, True) DB.Properties.Append prop Resume Next Else MsgBox "ÚãáíÉ ÊÚØíá ãÝÊÇÍ ÇáÏÎæá Çáì ÇáäÙÇã áã ÊßÊãá ÈäÌÇÍ" Exit Function End If End Function Private Sub Label16_Click() ap_DisableSift End Sub Private Sub Label16_DblClick(Cancel As Integer) ap_EnableSift End Sub ثم اذهب الى النموذج الرئيسي واصنع مربع نص واكتب به اي شي ليس مهم واذهب الى خيارات المربع في الحدث عند نقر لمرة واحدة ضع هذا الكود ap_DisableSift وعند نقر مزدوج ضع هذا الكود ap_EnableSift اي عند النقر لمرة واحد على مربع النص يقفل الشفت وعند النقر المزدوج يفتح الشفت ارجو ان تكون وصلت الفكرة

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

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

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

سلام تم اضافة رسالة عند ترك حقول فارغة ولايمكن الحفظ او الطباعة الابعد استكمال كافة الحقول تم وضع كلمة مرور على عرض التصميم نفس كلمة المرور السابقة ولايمكن فتح التصميم الا في حالة عدم وجود سجل مفتوح في النموذج بخصوص الحماية في اكسس نسبية ولكن ابحث في الموقع عن الغاء الشفت التصميم جميل بارك الله فيك اخيرا البرنامج يحتاج الى بعض المراجعة للاكواد وووو لكن كل واحد ادري باحتياجة ولكل واحد طريقة عمله تقبل تحياتي HCT Permit To Work System - Copy.mdb

تم ياباشا شوف المرفق Database41.accdb

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

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

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

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

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

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

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

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

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

تفضل لك ما طلبت وزيادة تم عمل كود ووضعه في حدث الصفحة لحماية الصفحة الرئيسية _ وكلمة السر 123 Private Sub Worksheet_Activate() Sheets("Main").Protect Password:="123", UserInterFaceOnly:=True End Sub Book1.xlsm

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

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

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