أبو هادي

السلام عليكم نعم كما أوضح أخي محمد مع تعديل التنسيق ليتناسب مع تحتاج : cc: Format([date2];"yyyymmdd") تحياتي .

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

السلام عليكم موضوع ذو صلة : http://www.officena.net/ib/index.php?showtopic=177&hl= تحياتي .

السلام عليكم موضوع ذو صلة : http://www.officena.net/ib/index.php?showtopic=281&hl= تحياتي .

السلام عليكم أخي محمد .. لم ينجح معي المثال علما أني طبقته على أكسس 2003 تحياتي . Doc1.zip

السلام عليكم موضوع مهم جدا ولكن التوقيت الآن ليس لصالحي لظروف العمل ( نهاية سنة مالية وبداية سنة جديدة ) ، ولكني حتما سألحق بكم إن شاء الله تعالى . تحياتي .

السلام عليكم فكرة شبيهة لما تفضل به أخونا شرف وأنا دائما استخدمها وهي كالتالي : - نقوم بترتيب الصفحة بناء على عمود الأسماء - نقوم بحشر عمود جنب عمود الأسماء - نأتي على سطر الإسم الثاني قد يكون السطر الثالث مع وجود تسمية للعمود - بافتراض أن الأسماء في العمود A والعمود الجديد B نكتب المعادلة في الخلية B3 = B3=A2 ثم نسحب المعادلة لنهاية الأسماء إذا فقدنا التظليل بسبب ما سنقوم بتظليل كل المعادلات في هذا العمود B ثم نقوم بنسخ القيم المظللة ومن القائمة Edit نختار لصق خاص Paste Special ثم نختار قيم Values - الآن نقم بترتيب بالصفحة مرة أخرى بناء على عمود المعادلات - سوف تظهر كل الأسطر المراد حذفها متراصة وتحمل القيمة True - الباقي عليكم :( تحياتي .

السلام عليكم الأخ أبو زيد حفظك الله ، الأداة هذه هي عبارة عن صندوق لإدخال تاريخ أم القرى فقط ، وذلك حتى تضمن للمدخل إدخالات صحيحة ، وهي لن تعمل لوحدها بل لا بد من وجود صندوق نص آخر يكون وسيطا بينها وبين مصدر البيانات . (أنظر للمثال المرفق والعلاقة بين الأداة و Text1) . طبعا العلاقة التي أقصدها هي عبارة عن الأكواد الموجودة بالمثال وتبادل القيم بين Text1.text والـ Caption التابع للأداة . تحياتي .

السلام عليكم أخي أبو زيد .. تسجيل الأداة سهل وهو كالتالي : نختار Tools ثم ActiveX controls ثم Register ونختار الأداة UmDateBox.ocx وهي مرفقة مع المثال . أما استخدامها في الفيجوال فقريبا سأجهز واحدة أخرى مختلفة عن الأكسس حيث حاولت أن أوفق بين الإثنين ولم أستطع لوجود اختلافات بينهما (أي الأكسس والفجوال) . أعتقد هذه سوف تعمل بالفجوال ولكن مع نواقص كثيرة وبنفس فكرة استخدامها في الأكسس . تحياتي .

السلام عليكم محاولة بسيطة لعمل أداة بالفيجوال بيسك . مع الإعتذار لمن يواجه مشاكل أو قصور حيث أخوكم غشيم فيجوال وهذه أول محاولة لي ، وإن شاء الله تعالى أقوم على تطويرها لاحقا . لا تنسوا تسجيلها مع أدوات الـ ActiveX controls لكي تعمل . تحياتي . UmDateBox.zip

السلام عليكم شاهد هذا الموضوع : http://www.officena.net/ib/index.php?showtopic=352&hl= تحياتي .

السلام عليكم جزاك الله خير أخي فهد على هذا المثال الجميل . الحقيقة لقد تعرفت على أمر البحث FindRecord لأول مرة ولفت انتباهي سهولة استخدامه ، لقد قمت بإضافة البحث عن السجل التالي والسجل السابق ، وقد عقدني البحث عن السجل السابق ولكني توصلت إلى طريقة تؤدي الغرض مع أن احساسي يقول ان هناك طريقة أخرى . تحياتي . Find_97.zip

السلام عليكم أخي الوارث .. جرب الآن : = Left(Text1, InStr(1, Text1 & " ", " ") - 1) & Text2 & Text3 وهذه الدالة : InStr(1, Text1 & " ", " ") تعطينا رقم خانة أول فراغ في الإسم . تحياتي .

السلام عليكم شكرا جزيلا أخي فهد على هداياك الجميلة . تحياتي .

السلام عليكم ممكن وضعه في حدث بعد التحديث لكل من : Text1 Text2 Text3 ويمكن وضعه في حدث Text3 فقط . وللإحتياط استخدم دالة Nz مع الحقول الثلاثة مثل : Nz(Text1) تحياتي .

السلام عليكم ممكن بهذه الطريقة : =Left(Text1,InStr(1,Text1," ")-1) & Text2 & Text3 وممكن عمل دالة "بالكود" . تحياتي

السلام عليكم أخي الوارث .. يمكن ذلك كالتالي : في مصدر البيانات للـ Text4 نكتب التالي : = Text1 & Text2 & Text3 تحياتي .

السلام عليكم أخي الفاضل .. لا يعيق . هذا المفتاح يعني أنه لا يقبل تكرار مجموع الحقلين معا ولكنه يقبل تكرار المسلسل مع اختلاف السنة ويقبل تكرار السنة مع اختلاف المسلسل ولا يقبل تكرارهما معا فهو يقبل القيم التالية : مسلسل ، السنة 1 ، 2000 1 ، 2001 1 ، 2002 ويقبل القيم التالية : 1 ، 2000 2 ، 2000 3 ، 2000 تحياتي .

السلام عليكم إذن لا مشكلة والحل هو : تحياتي .

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

السلام عليكم أخي فهد الدوسرى .. عودتنا دائما على أمثلتك الجميلة (y) مثال يعتبر درس كامل بدون كتابة أي كلمة ولا يحتاج إلى جهد في القراءة والتحليل . بارك الله فيك أخي فهد ويسرني رؤية اسمك دائما بيننا وتتحفنا بأمثلتك الجميلة والخفيفة على القلب . أخي يوجد لك مثال رائع عن حساب الحروف في أي نص ، هل ممكن أن تتكرم وتتحفنا به هنا كموضوع مستقل ، وشكرا لك سلفا . تحياتي .

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

السلام عليكم أخي أشرف .. إليك بعض الملاحظات السريعة : 1 - في جدول tblAssets لا داعي لحقل مسلسل بوجود رقم الأصل . 2 - في جدول tblAssetsGroup لا داعي لحقل مسلس بوجود رقم المجموعة . 3 - نسبة الإهلاك مكررة في جدولي tblAssets و tbaAssetsGroup ، فإذا كانت الأصول من نفس المجموعة نسبة استهلاكها موحد فيكفي أن تكون نسبة الإستهلاك فقط في جدول الـ tblAssetsGroup وإذا كانت مختلفة فيكفي أن تكون في جدول الـ tblAssets . 4 - في العلاقات One To-Many تجنب اختيار حذف السجلات ذات العلاقة . سوف أنشط معكم عندما تبدأون بتصميم النماذج :( . تحياتي .

السلام عليكم أخي محمد .. أنا آسف لم ألحظ السطر الأخير من ردك إلى مؤخرا :SHY: من المعروف أنه ابتداء من 0.5 وما فوق تجبر إلى واحد عند التقريب . وما أضيفه أنا على أي رقم قبل تقريبه هو 0.49999999999999 حيث لن يؤثر على أي رقم صحيح يعني تقريب 1.4999999999999999 مثلا سيصبح 1 ولكن هذ الرقم لو أضيف الى 1.00000000000001 فسيصبح مجموعه 1.5 وسيقرب ليصبح ناتجه 2 . وهذ كل ما أفعله أن أضيف الثابت Rnd إلى كل رقم أود تقريبه لأحصل على ناتج مايسمى في الأكسل بالـ Roundup . تحياتي .

السلام عليكم نعم أخي ha98 ، هذا الثابت هو المختص بإجبار فتح النموذج على شكل Data Sheet ولو تلحظ مسمى الثابت ac Form D S يدل على معناه حيث الـ D من Data والـ S من Sheet . تحياتي .