البحث في الموقع

Call MC ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("D15").Value ThisWorkbook.Worksheets("Step Up Feature").Range("I15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("D15").Value Do ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value + 1000 Loop Until ThisWorkbook.Worksheets("Step Up Feature").Range("H13").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("C13").Value Or ThisWorkbook.Worksheets("Step Up Feature").Range("M23").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("L23").Value - 20 ThisWorkbook.Worksheets("Step Up Feature").Range("h15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h15").Value - 1000 'Do 'ThisWorkbook.Worksheets("Step Up Feature").Range("i15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("i15").Value + 1000 'Loop Until ThisWorkbook.Worksheets("Step Up Feature").Range("i13").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("c13").Value Or ThisWorkbook.Worksheets("Step Up Feature").Range("q23").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("p23").Value - 20 'ThisWorkbook.Worksheets("Step Up Feature").Range("i15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("i15").Value - 1000 ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k5").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h15").Value ' ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k11").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h16").Value ' ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k12").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h17").Value ' ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k13").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h14").Value ' ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k7").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h13").Value MsgBox ("Calculation Completed") End If If ChangeProtection = True Then .Protect (MyPassword) End If End With End Sub

االسلام عليكم ورحمة الله,,, اخواني الاعزاء عندي جدول 1 ويتضمن: الاسم , المرحلة, القسم والجدول الثاني هو لدرجات المرحلة الاولى : المادة , درجة الشهر الاول , الشهر الثاني والجدول الثالث لدرجات المرحلة الثالثة ويضم : المادة , درجة ش1, درجة ش2. طبعا مواد المرحلتين مختلفة ... المطلوب هو كيف اقوم بعمل علاقة بين هذه الجداول الثلاثة بحيث اذا ادخل على الجدول الرئيسي اتمكن من ادخال درجات المرحلة 1 والمرحلة 2, لان عندما ادخل الدرجات لمحمد مثلا لا اجدها في الجدول الرئيسي الذي يحوي الاسم ولكن اجد اسمه مضمن في الجداول الباقية بحيث لا يتيح لي غير ادخال مادة واحده ,,, ارجو الافادة من حضراتكم New Microsoft Office Access 2007 Database.rar

السلام عليكم في المرفق نموذج ومجلد يشتمل على بعض الصور النموذج يحتوي في الاعلى على شريط نصي متحرك المطلوب : 1- استعراض الصور بشريط متحرك آخر أسفل النموذج أو 2 - ان يكون اطار الصورة ثابت ويتم استعراض الصور من خلاله كما في شاشة توقف windows picShow.rar

السلام عليكم ورحمة الله بسم الله الرحمن الرحيم فكرة الملف بالكامل من ملف للأستاذ الفاضل عبد الله باقشير حفظه الله فقط قمت بترتيبه بشكل قد يفيد بعض الأخوة الملف المضغوط مكون من ملف إكسيل وهو الملف الأساسي وأربعة فهارس: عبارة عن قاعدة بيانات لصور الأصناف على اعتبار أن لكل صنف كحد أقصى أربع لقطات ويمكن الاكتفاء بعدد لقطات أقل حسب الحاجة لكل صنف يتم وضع اللقطات للصنف الواحد بنفس الاسم داخل كل فهرس حتى يتم استدعائها وفق تطابق الاسم في جميع الفهارس إلى شاشة العرض في ملف الإكسيل عند فتح ملف الإكسيل سوف يتم آلياً إدخال أسماء الأصناف حسب أسماء الصور في الفهرس الرئيسي وهو MyImage وعند إضافة أي صورة جديدة سوف يتم ترتيبها أسفل بعد أخر اسم بمجرد فتح ملف الإكسيل مره أخرى أو إذا كان الملف مفتوح يكفي الضغط على زر تحديث لنفس الغرض. لعرض لقطات الصنف الواحد يتم الضغط على أسم الصنف مباشرة أو في حالة عدد الصور الكبير يتم البحث بالضغط على زر أسم الصنف وسط الصفحة أسفل العنوان لكي يظهر فورم بحث واستدعاء اللقطات بمجرد إدخال اسمه أو كوده أو جزء منه ثم اختياره, اللغة الاختيارية للكتابة في الفورم العربية يمكن تغييرها من الكود في كود الفورم إلى الانجليزية بمجرد تفعيل سطر اللغة الانجليزية ووضع علامة تنصيص أمام سطر اللغة العربية. هنالك أربعة مربعات عرض الملاحظات التي يتم إدخالها لكل صنف في الأعمدة المجاورة بجانب اسمه. هنالك زرين للخروج من الملف أحدهم مع الحفظ والآخر بدون الحفظ. و ا لله م ن وراء القصد لعل تنفيذ الفكرة يفيد ولو أحد الأعضاء أكون قد حققت هدفي ملاحظة: بعد تغيير أسم الملف وضغطه قمت بتجربته وصادف خطأ في الصور ذات الأمتداد النقطي BMP فهي لاتعرض عند الأستدعاء أرجو التجربة والرد رغم انني قبل لم أصادف هذه المشكلة. جزأكم الله كل خير أبو أنس ناصر حاجب _قاعدة بيانات لصور الأصناف.rar تم إضافة هذا الملف وهو نسخة قبل اخر التعديلات وهي ليست ذي اهمية من وجهة نظري وهو يعمل بشكل صحيح على حد ظني يتم استبداله بملف الأكسيل داخل الفهرس الرئيسي والتعديلات يمكن لكل أخ أن يقوم بها وفق الملف الذي فيه المشكلة أن أراد. _قاعدة بيانات للصور - نسخة.rar