ابوخليل

مع اني لا املك الوقت الكافي حاليا الا انني متواجد ان شاء الله على مدار اليوم وحاضر لاي مساعدة ولا تنسى انه يتواجد في منتدانا هذه الايام العديد من الخبراء فابدأ انت على بركة الله .. ولتكن بدايتك مما انتهى منه الآخرون

اخواني الكرام فضلا يجب ان يشتمل المرفق على كائنات محل السؤال فقط اخي الكريم تم التعديل ووضع تصور لاجازات موظف آمل ان تكون الفكرة واضحة 2.rar

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

السلام عليكم فكرة جميلة

تفضل اخوي احمد تم تعديل خصائص الصلة في العلاقات ان اردت الاستجابة السريعة في الرد من اخوانك فاجعل امثلتك في المرات القادمة على صيغة mdb برنامج المرتبات2.rar

اكتب المعيار التالي في حقل رقم الشهر Between 4 And 5 سيظهر لك شهر 4 و 5 فقط ويمكنك استبدال الارقام بقيمة حقلين في النموذج

تفضل مطلوبك db.rar

تفضل التعديل تم توظيف الأداة if في حدث تنسيق التفصيل Database11.rar

DoCmd.OutputTo acOutputReport, "reportName", acFormatXLS, "C:\filName" & ".xls", False, "", 0 باعتبار reportName اسم التقرير و C:\filName اسم ومكان حفظ الملف

اولا : في تنسيق خصائص الحقل ff اجعل القيمة: مرئي=لا ثم الصق الجملة التالية في حدث بعد التحديث للحقل tt If tt.Value = "شيك" Or tt.Value = "مرتجع" Then ff.Visible = True Else ff.Visible = False End If

الحذف الجماعي حسب معايير جماعية يحتاج الى عمل دوارات تبحث في الجدولين وهذا يحتاج الى وقت ما رأيك بالحذف الفردي ؟ انظر المثال تم التطبيق على الحذف ان حقق الحاجة يمكنك عمل التعديل مثله ملحوظة : تم حذف جدول apc للتخفيف Dec_lab2.rar

الاخوة الكرام علي المصري ... at_aziz ..... تعليموه شكرا لمروركم وثنائكم هنا بعض المشاركات حول هذا الموضوع http://www.officena.net/ib/index.php?showtopic=43914#entry254950 http://www.officena.net/ib/index.php?showtopic=53179#entry333843

عند ربط العلاقة يجب ان يكون الرأس فريد غير قابل للتكرار

مطلوبك يمكن تحقيقه ولكن الفكرة غير صحيحة .... لماذا ؟ لان المطلوب حذفهم متغيبين فعلا ... ولكن بعذر لذا يجب بقاؤهم في السجلات كمتغيبين ، مع حذفهم في النتائج والتقارير

السلام عليكم اليك بعض التعليمات حول استفسارك من خصائص العلاقة (تحرير العلاقات) يجب التأشير على تتالي التحديث وتتالي الحذف 1- تحديث التغيير بين الجداول المرتبطة يتم فقط على الحقل المرتبط ومن الجدول الرئيس فقط 2- عملية تتالي الحذف تتم من الجدول الرئيس فقط ملحوظة : عند ربط العلاقة بين جدولين ينتج منها جدول رئيس والآخر فرعي حتى لو كانت العلاقة واحد لواحد ( حسب مسار السحب والافلات)

مع التحية للأخ السائل قليلا من البحث فقد تجد فوائد اكثر http://www.officena.net/ib/index.php?showtopic=53409#entry335679

غير مفهوم .. وضح اكثر

جزاك الله خيرا استاذ ازهر على ما تقدم لاخوانك اخي السائل : استخدم هذه الدالة Round على النحو التالي داخل الاستعلام او في عنصر تحكم الحقل : Round([yourfiled];2) وداخل محرر الفيجوال على هذا النحو : Round([yourfiled],2) الرقم 2 هو لعدد الارقام بعد الفاصلة ويمكنك تحديد عدد الارقام كما تريد طبعا يمكنك ادخال هذه الدالة على العمليات الحسابية ولكن لا تنسى القوسين

الصق هذا الكود في حدث بعد التحديث لحقل التاريخ الثاني وغير ما يلزم if isnull(date1) then msgbox"ادخل تاريخ البداية" exit sub elseif date2<date1 then msgbox"ادخل تاريخا اكبر" exit sub end if date2 date1 حقلي التاريخ

لا تستخدم العلامات في التسميات مثل + ، # ..... الخ انظر التعديل 02.rar

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

استخدم Dcount لعد المخالفات في الجدول فإذا كان اكبر من صفر يظهر العدد وإلا يظهر عبارة "لا يوجد"

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

نعم يمكن اضف هذا السطر DoCmd.Save acForm, "frm1" لتصبح الجملة كاملة : On Error Resume Next DoCmd.OpenForm "frm1", acDesign, , , acFormPropertySettings, acHidden Forms!frm1.PopUp = True Forms!frm1.Modal = True DoCmd.Save acForm, "frm1" DoCmd.OpenForm "frm1", acNormal

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