ابوخليل

التطبيق على ثلاث حقول فقط : لتحقيق مطلوبك هناك عدة ضوابط الاول : لابد ان تكون قيمة الحقول هي القيمة الرقمية للالوان وهذه يسيرة فيمكن ان يظهر اسم اللون مع بقاء القيمة رقمية ( انظر حقلي 4 ، 5 في الجدول ) كما يمكننا الاستغناء عن مربع التحرير في الجدول ونجعله يظهر رقما كما هو ويكون اظهار الاسماء داخل التقرير او النموذج حسب الحاجة الثاني : وضعت لك في الحقول الثلاث الاولى القيمة الافتراضية = صفر لهذا ستظهر الحقول التي لم تأخذ رقما سوداء انظر التعديل ووافني بالنتيجة VGA Color Cable3.rar

على هذا ؛ الافضل ان يكون مصدر سجلاتهما واحد وذلك بأن تجعل مصدر بيانات النموذج الفرعي استعلاما ويكون عامل التصفية هو المعيار ثم تجعل هذا الاستعلام مصدرا للتقرير واعذرني حيث لايمكنني التعديل على مثالك

تفضل اتمنى ان يكون هو مطلوبك VGA Color Cable2.rar

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

افتح موضوعا جديدا واختر له عنوانا مناسبا وتقتصر فيه على سؤال واحد فاذا حصلت على مطلوبك يمكنك فتح موضوع جديد وهكذا ..... 99% من هذه الطريقة تصب في مصلحة السائل نفسه ولها فؤائد عظيمه منها : 1- رسوخ المعلومة 2- الحصول على الاجابة بوقت قياسي 3- تنوع الاساتذة ومن يقوم بالرد وبهذا تتنوع المدارس 4- اختياروتخصيص العناوين لكل جزء لا شك له فائدة مستقبلية في البحث سيتم غلق الموضوع

يوجد اكثر من طريقة لحذف السجلات المكررة 1- انشاء استعلام البحث عن المتطابقات بواسطة المعالج ثم حذف السجلات المكررة يدويا وهذا يصلح اذا كانت المكررات قليلة 2- نسخ بنية الجدول فقط وحفظها باسم جديد ثم تعيين احد الحقول المناسبة كمفتاح لا يقبل التكرار بعد ذلك فتح الجدول الاساس ونحدد جميع السجلات ثم ننسخها ونلصقها في الجدول الجديد النتيجة : نقل البيانات بلا مكررات ويمكن بدلا من النسخ واللصق استخدام استعلام الالحاق لعمل ذلك ملحوظة : ستخرج عليك رسائل تفيد بتعذر اللصق بسبب مخالفات وكل ما عليك هو تجاهلها بالتوفيق ،،،

الموضوع مخالف لقواعد المشاركة 1- يجب اختيار عنوان مناسب يصف المشكلة 2- الاكتفاء بسؤال او استفسار واحد في كل مشاركة 3- منع كلمات الفزعات مثل : النجدة ... ساعدوووووني ... تكفووووو ن

صحيح لو زاد عن الثلاث سنوات تعطي النتيجة 4 والحل هو ان تستخرج الايام ثم تقسمها على 360 مثال : =Round(DateDiff("d";[Date1];[Date2])/360;2) Round لتقريب الكسر واخترنا 2 للتقريب الى عددين عشريين ويمكنك استخدام هذه الدالة لاستخراج الايام والشهور والسنين : Function BetwnDate(Date1 As Date, date2 As Date) Dim sYears As Integer, sMonths As Integer, sDays As Integer sMonths = DateDiff("m", Date1, date2) sDays = DateDiff("d", DateAdd("m", sMonths, Date1), date2) If sDays < 0 Then sMonths = sMonths - 1 sDays = DateDiff("d", DateAdd("m", sMonths, ), date2) End If sYears = sMonths \ 12 sMonths = sMonths Mod 12 BetwnDate = sYears & "سنة, " & sMonths & "شهر, " & sDays & "يوم" End Function تلصقها في وحدة نمطية عامة ثم تستخدمها هكذا داحل مربع النص: =BetwnDate([Date1] ;[date2])

قد مررت بمثل هذه الحالة : عندما ترتفع حرارة المعالج فوق المعدل يتوقف الجهاز

تفضل : Txt Back Color2.rar

اخي الكريم : تم فصل المشاركتين عن المواضيع القديمة ثم ضمهما تحت عنوان واحد

الحمد لله الذي بفضله تقضى الحاجات وشكرا لك على دعواتك الطيبات ومشاعرك الرقيقة .

الحمد لله ان وفقنا لذلك وشكرا لكم على هذه الدعوات الطيبات

ولا يهمك انظر التعديل ووافني بالنتيجة احصاء اسبوعي4.rar

بعد هذه المشاركة آمل ان تفتح موضوعا جديدا 1- لفتح نموذج التعديلات على اسم الموظف : افتح نموذج بيانات الموظفين وانقر نقرا مزدزجا على رقم الموظف 2- التعديلات على الراتب او الاولاد وغيرها ..... يتم التعديل ويوضح بالملاحظات تاريخ وامر التعديل 3- الفروقات يتم اعداد مسيرات افرادية لها 4- اكسس لا يحتاج الى زر حفظ فهو يحفظ آليا وبالتوفيق ،،، رواتب9.rar

تفضل احصاء اسبوعي3.rar

تفضل تم التعديل باضافة تقرير فرعي احصاء اسبوعي2.rar

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

اخواني الكرام السلام عليكم خبرتي في اكسل افرغ من فؤاد ام موسى في اكسس هناك طريقة خاصة للدخول الى عرض التصميم والى محرر الفيجوال المسألة : انني قمت بوضع العبارة التالية في حدث فتح المصنف Application.DisplayAlerts = False Application.Quit وطبعا عند النقر عليه يفتح ثم يغلق بلمح البصر الآن اريد ان اصل الى المحرر لألغي هذا الحدث كيف ؟ BookQuit.rar

بيانات الموظف الثابتة في نموذج الحسميات في نموذج انهاء الخدمة في نموذج وبمجرد ازالة العلامة من خانة الاختيار فلن يظهر بقوائم الراتب للشهر الجديد وانت ستتعامل مع برنامج لشؤون الموظفين وليس برنامجا خاصا بالسلف والاقساط

وفيت وكفيت ،،، أحسن الله اليك .

روعة .. سلمت أناملك وجزاك الله خيرا وللتنبيه فان المرفق السابق لم يعمل معي وبقي استاذي الاستفسار الثاني ولعله الاخير وهو كيف ابني عمودا رقميا الى جانب الاعمدة الناتجة يمثل الصفوف من 1 الى 6 فالاول الابتدائي يقابله رقم 1 والثاني الابتدائي 2 ..... وهكذا الى الصف السادس 6 لاني اريد ان اتعامل مع الصف كرقم بارك الله في علمك وعملك

ما شاء الله لا قوة الا بالله عمل متقن ولا اجمل ولا اروع جزاك الله خيرا وشكري موصول لاستاذنا وحبيبنا عبدالله باقشير استاذي وأخي الحبيب ابو حنين حيث انك اذنت لي في ذكر الملاحظات فلدي استفسارين : فان وجدت لديك الوقت الكافي والا فأنت في حل من ذلك الاول : حين اطلعت على الوحدة النمطية وجدت الورقات قد اثبت بأسمائها Dim Art Art = Array("Sheet17", "Sheet16", "Sheet15", "Sheet14", "Sheet13", "Sheet12", _ "Sheet11", "Sheet10", "Sheet9", "Sheet8", "Sheet7", "Sheet6", _ "Sheet5", "Sheet4", "Sheet3", "Sheet2", "Sheet1") هل يوجد عبارة تشمل جميع ما بداخل المصنف من ورقات بدون تحديدها داخل الكود . بارك الله في عمرك و علمك

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

اعتذر لأساتذتي الفضلاء عن تقصيري في ايضاح المسألة. وقد وقعت في الذي كنت انبه اخواني اليه وهو ان ضبط واتقان السؤال = نصف الاجابة والخطأ الذي وقعت فيه انني وضحت في الورقة الاولى والثانية ( الصف ، والفصل ) وهي في الاصل غير موجودة حيث ان الصف والفصل موجودان اعلى الورقة في ( C6) ، (C14 ) مع ملاحظة ان الصف نص وليس رقم واريد بعد الترحيل تحويله الى رقم ، وقد وضحت ذلك في المرفقات في المرفقات المصنف الاصل book1 كما هو ، وبرفقه المطلوب وجزاكم الله خيرا ابو خليل2.rar