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

هي محاولة سابقة لي مع أستاذي أبو خليل والذي استفدت منه أفكارا كانت غائبة عن ذهني لو لم يسعفني بها أطرحه بين أيدكم للاستفادة منه لأني سألت نفسي لماذا أحتفظ به وقد أنهيته فلا حاجة لي به فربما يحتاجه غيري ويضيف ويعدل ويطور هي محاولة مني والكمال لله سبحانه وتعالى Askan.rar

تفضل-بمجرد الضغط على أيقونة فتح صفحة جديدة ,سوف يتم ادراج صفحة جديدة بتاريخ اليوم به قائمة منسدلة بالمطلوب في الخلية A1 اختر منها ما تريد ولاحظ تغيير لون شريط الصفحة بمجرد الإختيار وعذرا قد تم تغيير بنود القائمة المنسدلة الى اللغة الإنجليزية لعمل الكود بكفاءة ** فتكون العطلة الرسمية ...... Official holiday **والدوام الرسمى ...... Official time **و غير ذلك ......Other تلوين.xlsm

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

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

تم تعديل وتغيير الملف في المشاركة السابقة

تفضل-ولكن لا تقوم بكتابة الأرقام الموجودة بالعمود الأول A يدويا فموجود الترقيم داخل كود ادخال سطر جديد 2test.xlsm

تفضل test.xlsm

وعليكم السلام-عليك برفع الملف لمشاهدة ومعاينة المشكلة عن قرب دائما وابدا اجعل المشاركة مدعومة بملف ليسهل المساعدة وعدم اهدار الوقت

السلام عليكم ما تمكنت من عمله الاتي زر pdf في صفحة يمكنك الضغظ عليه ليحول الملفات الى pdf في نفس مجلد الملفات ومن خلال ملفات pdf المحولة يمكنك الطباعة منها حسب ما تشائين A3 - A4 عذرا لاني لم البى طلبك بالتحديد اختي اذا ضاعت الملفات او اصيبت بقيروس يمكنك تحميلها مرة اخرى من المنتدى اي ملاحظات او اظافات تفيد البرنامج انا جاهز الزراعي.rar

اهلا بك اخى الكريم الملف موجود بالفعل في المشاركة الأولى ويعمل بكل كفاءة هذا هو مرة أخرى جدول نادر-.xls

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

ممتاز جزاك الله خير اخى الفاضل ... تمت الافادة

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

أخي @Amr Ashraf أخي @ابا جودى تم تعديل الملف ارجو التجربة وابداء الرأي .... والمجال مفتوح لجميع الأعضاء لإبداء الرأي .... تفضلوا .... Example.accdb

السلام عليكم 🙂 المنتدى مليئ بمختلف المواضيع ، لهذا السبب فإننا ننصح بإستخدام خاصية البحث ، قبل وضع سؤال جديد ، فهناك احتمال كبير بوجود عدة اجابات لسؤالك 🙂 وبطبيعة الحال ، فهناك العديد من المواضيع القديمة ، والتي قد نستفيد منها بطريقة او اخرى. واذا اردنا ان نسأل في موضوع قديم ، فيجب ان نأخذ رابط ذلك الموضوع ، ونعمل موضوع جديد نضع فيه سؤالنا ، ونشير الى ذلك الرابط القديم 🙂 واذا اردنا ان نشكر صاحب الموضوع ، فممكن بالنقر على ايقونة الشكر: ورجاء عدم وضع ملاحظة/طلب تعديل/سؤال جديد في موضع قديم 🙂 جعفر

ماكرو بحث واستبدال اسم أو رقم بفورم الاكسل وبعددة طرق الفيديو الصور

ارجوك تقبل اعتذارى انا اسف لم اكن اعرف موضوع افضل اجابة

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

دائما اقول في نفسي ان ابا جودى هو حلال المشاكل هههه...شكرا لك اخي العزيز والشكر موصول للمبدع @kanory

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

انا اسف تعديل بسيط تسجيل التاريخ اليا ومسلسل-2 .mdb

اتفضل وركز معايا الاول قبل فتح النموذج تأكد ان الجدول فارغ ثم افتح النموذج وشاهد ما يحدث ثانيا افتح الجدول وامسح كل البيانات الموجوده به وفى اول سجل اكتب التاريخ 1/7/2019 واغلق الجدول وافتح النموذج وشاهد ما يحدث تسجيل التاريخ اليا ومسلسل.mdb

شكرا لك على المعلومة 🙂 جعفر

السلام عليكم 🙂 اعمل التالي لوسمحت: اعمل 3 سجلات في الجدول ، فتحصل على 3 ارقام مسلسلة ، احذف السجل رقم 2 ، فيبقى عندك السجلين اصحاب الرقم التلقائية 1 و 3 . الآن قم بعمل اي من الطرق اللي تحب ، فإنك لن تحصل على الرقم 2 . لمزيد من المعلومات عن الرقم التلقائي ، انظر هنا والزبدة: الرقم التلقائي لإستعمال البرنامج ، وليس لإستعمال المبرمج ، نعم يستطيع المبرمج الاستفادة منه ، ولكن لا يجب الاعتماد عليه لتسلسل الاعداد جعفر

السلام عليكم 🙂 اعتقد بأن احد المكتبات غير موجود في هذا الجهاز ، انظر الى كلمة Missing في المربعات التي عليها علامة صح . او اعمل Compile ، وسوف يقف البرنامج على العلة جعفر

أولا تأكد من إعدادات اللغة ثانيا اذا كان الملف بصيغة Accde أو mde انقل الى جهازك الملف قبل التحويل وقم بتحويله من جهازك او تشغيله مباشرة ::بالتوفيق::

انا لم اقل هذا ، وانما قلت: سؤال 1: لماذا لا تستعمل الحقل من "نوع مرفق" للترقيم التلقائي ؟ ج1: لأن هذا الحقل له عمل ، وذلك الحقل له عمل آخر. سؤال 2: لماذا نحن بحاجة الى كل هذه الانواع من الحقول: نص ، رقم ، تاريخ ، مذكرة ... ، ألا يكفي ان يكون عندنا حقل من نوع نص فقط ، لأننا يمكن استعماله لجميع انواع البيانات ؟ ج2: لأننا نستخدم شيء اسمه قاعدة بيانات ، وقاعدة البيانات معمولة على اساس هذه الحقول. خلاصة القول: اذا اردت ان لا تواجه مشكلة في حقل التسلسل ، فلا تستعمل حقل "الترقيم التلقائي". لا ضرر ، فانت الآن تتعامل مع حقل من نوع رقم 🙂 حقل "الترقيم التلقائي" ، والعلاقة بين هذا الحقل وحقل رقم من جدول آخر ، كأي علاقة بين جدولين. جعفر

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

السلام عليكم اساتذتى واخواتى الكرام -أقدم لكم برنامج يهم كل العاملين بالتربية والتعليم وهو برنامج مرتبات المعلمين من أعمال وتنفيذ الأستاذ المحترم شعبان عطية الصباغ البرنامج يستخرج جميع المرتبات ويقسم ويجمع ويطرح بدون تدخل منك . تعليمات العمل على الشيت نأتي لطريقة العمل على الشيت فى صفحة ( بيانات ) يتم ادخال اسم المدرسة وشهر تحرير الاستماره فى الخانات الخاصة بها فقط حسب السهم أعلى يسار الصفحة ولا يتم ادخال أى بيانات أخرى بهذه الصفحة أولا : شيت المعلمين التابعين للقانون 155 والعمال المتعاقدين والمدرسين المتعاقدين خانات يتم ملئها يدويا وبدونها لايعمل الشيت بشكل سليم أولا : - جانب الاستحقاقات الاسم وبمجرد ادخال الاسم يتم الترقيم تلقائيا فى خانة المسلسل الوظيفة ويتم اختيارها من سهم القائمة المنسدلة وهى درجة الموظف الحالية التى يتقاضى عليها الحوافز والبدلات مع ملاحظة ان عامل متعاقد تشير للعامل المتعاقد ( 150جنيه) بينما معلم متعاقد تشير للمعلم المتعاقد (200جنيه) الدرجة للأعباء ويتم اختيارها من سهم القائمة المنسدلة وهى درجة الموظف التى يتقاضى عليها علاوة الأعباء حيث لا تتغير قيمة العلاوة عند ترقية الموظف 33% للعمال نظرا لحصول بعض العمال المتعاقدين على حكم ال33% يتم كتابة رقم 1 فى الخانة ليتم اعطائهم قيمة الحكم تلقائيا غير ذلك تترك الخانه فارغة اساسى 6 /2015 ويتم احتساب الحوافز والبدلات على اساسه اساسى 7 /2017 ويتم على اساسه حساب المعاشات الأساسية والزماله وخلافه ال3 علاوات الخاصة التى لم تضم للأساسى كل فى العمود الخاص بها ( 2013 - 2014 - 2015 ) قيمة العلاوتين الاجتماعية والاضافية فى العمودين الخاص بها اى مستحقات أخرى فى حالة حصول المعلم على أى مستحقات أخرى مثل بدل تفرغ أو حافز ماجستير أو دكتوراه يتم كتابته بالخانات الخاصة بذلك ويمكن تعديل رأس العمود لتناسب المسمى المطلوب مجموع ال3 علاوات وتوضع نهاية الشيت العامود ( DG) وهى مجموع ال3 علاوات التى تم ضمها للأساسى (علاوة ال10 % لسنة 2016 و علاوة ال10 % لسنة 2017 م وكذا علاوة الغلاء بنسبة ال10% ومجموع العلاوات ضرورى فى حساب الضرائب طبقا لنموذج الضرائب لسنة 2017 م ملاحظات هامه 1 - فيما عدا ما سبق لايتم ادخال أى بيانات يدويا بباقى الأعمده لعدم العبث بالمعادلات بها وحتى تخرج النتائج بشكل سليم 3 - توجد بعض الحالات لمن لا يتقاضون بدل الاعتماد ويتم منحهم زيادة فى حافز الأداء أو نسبة ال 91% يتم تعديل قيمة البدل بالمعادلة امام مسمى المعلم بمعرفة مسئول التطوير أو احد ملم بكيفية عمل ذلك ثانيا : - جانب الاستقطاعات يتم ادخال أى استقطاعات خاصة بكل معلم ان وجدت مثل الرابطة - مهن اجتماعية - مهن تطبيقية الخ ويمكن تعديل عنوان العمود ليناسب كل مدرسة مع ملاحظة التعديل بمفردات المرتب بنفس التعديلات ملاحظات هامه 1 - لا يتم التعديل بعامود قسط الاعارة والمدة السابقة حيث تدخل فى حساب الضرائب 2 - فى حالة اشتراك الموظف بالبحث العلمى لايتم كتابة شىء بالعامود وبمجرد ادخال ال4 جنيه بخانة الخدمات العمالية يتم حساب البحث العلمى تلقائيا لذا يرجى عدم تغيير عنوان العامودين 3 - يرجى عدم التغيير بعناوين الأعمده الا فى حالة الضرورة وذلك لارتباطها بمفردات المرتب وكشف التظهير وتوجد اعمده كثير مخفية يمكن الكتابة بها 4 - يوجد بعد عامود اسم البنك فى نهاية الشيت اعمده خاصة بحساب الدمغة والضريبة لا يتم العبث بها نهائيا ليتم حسابهما بشكل سليم 5 - يتم كتابة اسم البنك بكشف البنك امام كل مدرس ثانيا : شيت الاداريين ومشرفى النشاط والتابعين للقانون 81 لسنة 2016 م خانات يتم ملئها يدويا وبدونها لايعمل الشيت بشكل سليم أولا : - جانب الاستحقاقات الاسم وبمجرد ادخال الاسم يتم الترقيم تلقائيا فى خانة المسلسل الوظيفة ويتم كتابتها ولا يؤثر المسمى على أى شىء ومهم لمفردات المرتب الدرجة ويتم كتابتها ولا يؤثر المسمى على أى شىء ومهم لمفردات المرتب نقابى + حكم ركز معايا شويه الشيت اسهل من شيت المدرسين لو اتنفذ العمود ده بشكل سليم عارف طبعا ان الاداريين بالنسبه للنقابه اما نقابى أو غير نقابى وبالنسبه للحاصلين على الحكم بال33% اما واخد حكم أو مش واخد متفقين من السهم الموجود بالعمود ده هاتختار الأرقام من صفر وحتى الرقم 3 على النحو التالى : - 0 ويوضع امام الادارى غير النقابى والذى لم يحصل على حكم بال 33% 1 ويوضع امام الادارى النقابى والذى لم يحصل على حكم بال 33% 2 ويوضع امام الادارى غير النقابى والذى حصل على حكم بال 33% 3 ويوضع امام الادارى النقابى والذى حصل على حكم بال 33% اساسى وهمى ويتم على اساسه حساب المعاشات الأساسية والزماله وخلافه اساسى 30 / 6 / 2015 ويتم على اساسه حساب الأجر المكمل كل حسب موقفه من الحكم والنقابه اجر وظيفى + 7% ويتم على اساسه حساب الأجر والمتغير والمعاشات وكل شىء العلاوة التعويضية وحسابها من جملة المكمل والمتغير بدلات أخرى إن وجد ملاحظات هامه 1 - احيانا ونظرا لجبر الأرقام طبقا لتعليمات الماهيات تجد رقم 1 موجود فى خانة ال33% للناس اللى مش واخده حكم معلش امسحه وضيفه يدويا على خانة ال50 % ثانيا : - جانب الاستقطاعات يتم ادخال أى استقطاعات خاصة بكل إدارى ان وجدت مثل الرابطة - مهن تطبيقية الخ ويمكن تعديل عنوان العمود ليناسب كل مدرسة مع ملاحظة التعديل بمفردات المرتب بنفس التعديلات ملاحظات هامه 1 - لا يتم التعديل بعامود قسط الاعارة والمدة السابقة حيث تدخل فى حساب الضرائب 2 - فى حالة اشتراك الموظف بالبحث العلمى لايتم كتابة شىء بالعامود وبمجرد ادخال ال4 جنيه بخانة الخدمات العمالية يتم حساب البحث العلمى تلقائيا لذا يرجى عدم تغيير عنوان العامودين 3 - يرجى عدم التغيير بعناوين الأعمده الا فى حالة الضرورة وذلك لارتباطها بمفردات المرتب وكشف التظهير وتوجد اعمده كثير مخفية يمكن الكتابة بها 4 - يتم كتابة اسم البنك بكشف البنك امام كل إدارى ملاحظات هامة على البرنامج ككل 1 - يتم ترحيل البيانات تلقائيا لكشف التظهير للكل أو للبنك وكذا اقساط الزماله وكشف 2 تأمين ومعاش ويرجى المراجعة بعد التنفيذ 2 - يتم كتابة بيانات القصاصات يدويا او بعمل ارتباط فى الخانات الخاصة بها بمعرفة مسئول التطوير 3 - قبل الطباعة يتم اخفاء جميع الأعمده الخالية من البيانات والتعديل على تخطيط الصفحه حتى تظهر الأرقام بحجم ملائم للعين 4 - قبل الطباعة يتم جعل تنسيق الشيت بدون لون ( ابيض ) للتكلفة ولوضوح الأرقام ثم حفظ الصفحه بتنسيق pdf لتلائم الصفحة فى الطباعة 5 - اذا تم العمل بالبرنامج بشكل سليم عند عمل تسوية ضريبية سنويه فى نهاية العام لن توجد على الموظف أى مبالغ حيث تم احتسابها شهريا وبشكل سليم بعد مراجعة الضرائب بشبين الكوم 6 - عند حساب مكافأة الامتحانات لا يتم خصم أى مبالغ لحساب الضرائب حيث تم تسويتها شهريا ودفع ضرائبها مع المرتب على 12 شهر بدلا من خصمها مرة واحده مما يؤثر على قيمتها وذلك لجميع العاملين بالتربية والتعليم سواء الخاضعين للقانون 155 ( الكادر ) أو التابعين لقانون 81 لسنة 2016 ( الخدمة المدنية ) وهذا هو البرنامج-أتمنى ان ينال اعجابكم وعليكم بالدعاذ لصاحب هذ البرنامج بارك الله فيه وجزاه الله كل خير وجعل الله هذا العمل فى ميزان أعماله برنامج عمل مرتبات المعلمين الجديدة 2019.xlsx

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

تفضل . . . . وهذا كود اضافة التسلسل DoCmd.GoToRecord , , acNewRec Me.ID = Nz(DMax("[ID]", "tbl_1"), 0) + 1 . لأنه لايعمل الذي تريده بالتسلسل ، فما معناه انه لا يمكن الاعتماد عليه !! بالعكس ، فهو يمكن الاعتماد عليه 1000% ، وهو ركيزة جلب البيانات وبسرعة 🙂 اذا اردنا قيمة الحقل DOB ، فعندنا طريقتين لجلب هذه المعلومة : Me.DOB = DLookup("[DOB]", "tbl_1", "[Auto_ID]=" & Me.Auto_ID) Me.DOB = DLookup("[DOB]", "tbl_1", "[Full_Name]='" & Me.Full_Name & "'") هنا يأتي قوة وسرعة حقل الترقيم التلقائي (المفهرس والمفتاح الاساس) ، فأي الطريقتين تعتقد تكون اسرع ؟ جعفر 1088.zip

شاكر ومقدر لك التحية والتقدير ، بالنسبة للنقاط التي تطرقت لها سأجيبك عنها لاحقا أنا حاليا خارج المكتب

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

السلام عليكم 🙂 المنتدى لفائدة الجميع ، فرجاء ارفاق النسخة هنا حتى يستفيد منها الجميع 🙂 جعفر

وعليكم السلام 🙂 كل جدول يجب ان يحتوي على رقم تلقائي (وتاريخ تلقائي ، حيث نضع القيمة الافتراضية = ()Now ) ، مفهرس ، ومفتاح اساس ، الرقم التلقائي لإستعمال البرنامج ، وليس لإستعمال المبرمج ، نعم يستطيع المبرمج الاستفادة منه ، ولكن لا يجب الاعتماد عليه لتسلسل الاعداد ، الاكسس يعتمد على هذا الحقل لسرعة جلب بيانات الجدول 🙂 وهناك حالات خاصة تحدث ، حيث يقفز الاكسس ويبدأ بإعطاء ارقام تسلسل كبيرة ، وحالات يفقد خاصية التسلسل ويعطي ارقام عشوائيه ، ولكنها لا تزال ارقام فريدة. الخطأ الشائع بين المبرمجين ، انهم يستعملون ويعتمدون على حقل الرقم التلقائي في برنامجهم لتسلسل الارقام ، وهذا غير صحيح ، اذا اردت ان تعمل حقل تسلسل/ترقيم ، فهذا يعتمد على نوع البيانات في الحقل وطولها ، فإذا كانت ارقام فقط ، فتستطيع استعمال حقل رقم (نوعه طويل) ، واذا كان طولها يصل الى 13 خانه او اكثر ، فتستطيع استعمال حقل رقم (نوعه Decimal) ، كما بإمكانك استعمال حقل نص ، والذي ستحتاج ان تتعامل معه بطريقة برمجية لزيادة وتنقيص التسلسل. اما اذا كان رقم التسلسل يحتوي على حروف مع ارقام ، فيجب استعمال حقل نص (يمكن استعمال حقل الرقم ، اذا اردنا التنسيق يكون فيه حروف ثابته قبل الرقم او بعده ، ولكنه مجرد تنسيق والحقل سيحتوي الارقام فقط). جعفر

UDF رائعة اخي علي لكن اليس هناك من مجال لاختصارها دون الحاجة الى (vResult) لتبدو بهذا الشكل Option Explicit Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean) Dim rCell As Range, lCol# lCol = rColor.Interior.ColorIndex ColorFunction = 0 For Each rCell In rRange If rCell.Interior.ColorIndex = lCol Then _ ColorFunction = _ ColorFunction + IIf(SUM, Application.SUM(rCell), 1) Next rCell End Function

شكرا لك أخي على مشاركتك لكن مرفقك تظهر به رسالة بمشكلة على العموم اطلع على هذا المرفق باحتساب الرصيد السابق وتوجد أمثلة أخرى مثل باستعلام التوحيد word day6.rar

شكرا لمرورك أستاذي الفاضل.. المثال منقول للأمانة ولم أحاول فيه حل هذه المشكلة لضيق الوقت هذه مشاركة أحد الأساتذة أرى أن فيها إفادة للمطلوب بإذن الله https://www.officena.net/ib/topic/66610-هدية-بسيطة-البحث-بجزء-من-الكلمة-داخل-مربع-التحرير-بمجرد-الكتابة-combobox/

وعليكم السلام تفضل لك ما طلبت تجربة.xlsm

السلام عليكم تم التعديل غدا ان شاء الله ساجاول في طلبك اول زراعي بعد التعديل.xlsm

كود الالحاق للمستخدم الجديد اما كود التحديث فهو للمستخدم الموجود في نموذجك يبحث الكود عن المستخدم اذا كان موجود اذا وجده ينتقل الى شرط التحديث عموما هذا التعديل الخطأ في الكود هو UNum لا اصل لها في النموذج وقد تم تغييرها من قبلك الى User_ID ولم يتم تغييرها في كود الالحاق DoCmd.RunSQL _ "UPDATE Users SET UName = '" & incode(UN, "User") & _ "', PW = '" & incode(pass, "Pass") & _ "', fname = '" & REG_FullName & _ "', EMAIL = '" & REG_EMAIL & _ "', PHONE = '" & REG_PHONE & _ "', IAM = '" & REG_IAM & _ "', BIRTHDATE = '" & REG_BIRTHDATE & _ "' WHERE (((Users.[SN])=" & Str(ID_User) & "));"

يمكن استخدام الدالة مباشرة في الاستعلام ودع القيمة في الجدول كما هي وبالتالي لا تحتاج لاي تعديل سلوم.mdb

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

جرب المرفق دالتين الاول تلغي الكسر والاخرى ترفع الكسر اذا كان اكبر من النصف Database13.accdb اعتذر منك اخي kaser906 لم اشاهد ردك

وعليكم السلام جرب المرفق test.accdb

تفضل تم الغاء الحماية نهائيا للتمكن من وضع كود التايمر وكود الحروف الكبيرة-واعتقد ايضا ان ملفك به فيروس timer.xlsm

استبدل الرقم1 بالرقم 2 في هذا السطر من الكود Set my_rg = Main.Range("b3").CurrentRegion.Columns(1)

السلام عليكم الاخ / احمد الملف المرفق يحوي الدالة و كذلك شرح علي طريقة استخدامها VLOOKON_With_No_Limitation.rar

استاذى المبدع ابا جودى الذى يذهلتى دائما بحلولة الجوهرية ولكن واجهت مشكلة بسيطة عند تغيير تاريخ الجهار 1/10/2020 بداء التاريخ من 1/1/2020 الى 1/10/2020 اين التواريخ السابقة لعام 2019 لانها مربوطة بحسابات وارد ومنصرف اريد بداية التاريخ من عام 1/1/2019 الى تاريخ اليوم حتى لو وصلنا الى عام 2050 وقدر لنا الولى عز وجل وعشنا يكون الجدول من بداية 1/1/2019 الى تاريخ اليوم ولنفرض انة 10/10/2037 اعلم اتى اثقل عليك لكنى اجد دائما ما احتاجة لديك اكرر شكرى وامتنانى على المجهود المبذول