ابوخليل

انت بحاجة الى اظهار مربع حوار الطابعة لتختار ما تريد من النسخ وهذا السطر هو المسؤول عن ذلك : DoCmd.RunCommand acCmdPrint print N2.rar

هذا مثال وجدته لك تصفية من النموذج ويمكنك تطبيقه على نموذجك الفرعي تصفية تفرير من نموذج.rar

أيضا يمكن تصفية التقرير من داخل النموذج باستخدام السطر التالي stDocName = متغير اسم التقرير myfilter = متغير نتيجة التصفية في النموذج حيث يمكنك تقسيم التصفية حسب الاختيارات وترتيبها داخل جملة شرطية

تفضل Q2.rar

تحويل قاعدة البيانات الى mde يلغي عمل هذا المفتاح

التطبيق على ثلاث حقول فقط : لتحقيق مطلوبك هناك عدة ضوابط الاول : لابد ان تكون قيمة الحقول هي القيمة الرقمية للالوان وهذه يسيرة فيمكن ان يظهر اسم اللون مع بقاء القيمة رقمية ( انظر حقلي 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

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