MR_Abdalla قام بنشر الجمعة at 12:12 قام بنشر الجمعة at 12:12 عندى تقريرين 1- rep_agaza خاصة بكل موظف على حدة 2- rep_agaza2 خاص بجميع الموظفين مقسم الطباعة والتصدير على شقين : 1- فترة معينة 2- العام ( يكتب العام داخل مربع النص ) مثلا : الفترة المعينة : يتم طباعة تقرير لموظف معين بناء على شروط : 1- اختيار موظف من مربع نص 2- اختيار نوع الاجازة 3- اختيار فترة معينة بتاريخين كما هو موضح ، وكذلك تصديره الى ملف اكسيل بنفس الشروط # يتم طباعة تقرير اخر وتصديره الى ملف اكسل بنفس الشروط السابقة طبعا ما عدا اختيار موظف معين وده لكل الموظفين # العام الحالى أيضا بنفس الطريقة هل هناك كود يقوم بعمل المطلوب بدلا من كثرة الاستعلامات ؟ وحدة الاجازات السنوية.accdb
MR_Abdalla قام بنشر الجمعة at 18:28 الكاتب قام بنشر الجمعة at 18:28 الأخوة الأفاضل هل الموضوع غير واضح
منتصر الانسي قام بنشر منذ 21 ساعات قام بنشر منذ 21 ساعات غير متأكد إذا فهمت الطلب صح ولكن تفضل جرب المرفق وحدة الاجازات السنوية.accdb
منتصر الانسي قام بنشر منذ 56 دقائق قام بنشر منذ 56 دقائق 6 ساعات مضت, MR_Abdalla said: بعد التجربة مفيش بيانات فى التقارير طالما ظهرت بيانات في المثال الذي ارفقته لك فهذا يعني انه لم يتم تطبيق الحل بشكل صحيح يجب فهم الحل أولاً ليسهل تطبيقه مهما إختلفت بيئة العمل الحل كان يعتمد على إنشاء مربعي نص (txtFrom , txtTo) والذي من المفترض أنهما سيكونان مخفيان ولكني أبقيتهما ظاهران لغرض التوضيح عند النقر على أحد الأزرار الأربعة تحت التاريخين (mn و el) سيتم نقل هذين التاريخين إلى مربعي النص (txtFrom , txtTo) أما عند النقر على أحد الأزرار الأربعة تحت السنة سحتوي مربع النص txtFrom على تاريخ أول يوم في السنة المحددة وسيختوي مربع النص txtTo على تاريخ آخر يوم لنفس السنة وبهذا نكون قد وحدنا مصدر تاريخي بداية ونهاية الفترة للحالتين ليكون معيار التصفية للتقارير في معايير التصفية الخاصة بالاستعلام خلف التقريرين جعلت معيار تصفية حقل تاريخ بداية الإجازة مابين التاريخين في مربعي النص (txtFrom , txtTo) بالاضافة الى معيار التصفية لنوع الإجازة ورقم الملف للتقارير الخاصة بالموظف أرجو أن يكون الشرح واضح واذا كان هناك اي نقطة غير مفهومة فلا تتاخر في طلب توضيحها تحياتي
MR_Abdalla قام بنشر منذ 10 دقائق الكاتب قام بنشر منذ 10 دقائق 31 دقائق مضت, منتصر الانسي said: طالما ظهرت بيانات في المثال الذي ارفقته لك فهذا يعني انه لم يتم تطبيق الحل بشكل صحيح يجب فهم الحل أولاً ليسهل تطبيقه مهما إختلفت بيئة العمل الحل كان يعتمد على إنشاء مربعي نص (txtFrom , txtTo) والذي من المفترض أنهما سيكونان مخفيان ولكني أبقيتهما ظاهران لغرض التوضيح عند النقر على أحد الأزرار الأربعة تحت التاريخين (mn و el) سيتم نقل هذين التاريخين إلى مربعي النص (txtFrom , txtTo) أما عند النقر على أحد الأزرار الأربعة تحت السنة سحتوي مربع النص txtFrom على تاريخ أول يوم في السنة المحددة وسيختوي مربع النص txtTo على تاريخ آخر يوم لنفس السنة وبهذا نكون قد وحدنا مصدر تاريخي بداية ونهاية الفترة للحالتين ليكون معيار التصفية للتقارير في معايير التصفية الخاصة بالاستعلام خلف التقريرين جعلت معيار تصفية حقل تاريخ بداية الإجازة مابين التاريخين في مربعي النص (txtFrom , txtTo) بالاضافة الى معيار التصفية لنوع الإجازة ورقم الملف للتقارير الخاصة بالموظف أرجو أن يكون الشرح واضح واذا كان هناك اي نقطة غير مفهومة فلا تتاخر في طلب توضيحها تحياتي ممكن السبب عندى فى عدم توصيل الفكرة بشكل واضح أو تنفيذ التقارير بشكل صحيح فى القاعدة المرسلة سأقوم بالتوضيح زى ما قلت لحضرتك الفكرة قائمة على : 1- طباعة تقرير وتصديره الى ملف اكسيل لموظف معين واجازة معينة وفترة معينة / وتقرير آخر وتصديره لاكسيل لفترة معينة واجازة معينة ولكن هذه المرة لجميع الموظفين 2- طباعة تقرير وتصديره الى ملف اكسيل لموظف معين واجازة معينة للعام الحالى / وتقرير آخر وتصديره لاكسيل للعام الحالى واجازة معينة ولكن هذه المرة ايضا لجميع الموظفين ( ملحوظة : العام مثلا يبدأ من تاريخ 8/1 2025 الى 7/31 /2026) هذا كود للتقرير حسب موظف معين واجازة معينة وفترة معينة حاولت تظبيطه لكن لا يعمل ايضا MsgBox "(يجب اختيار اسم الموظف اولا)", vbCritical Exit Sub End If If IsNull(Me.a2) Then MsgBox "(يجب اختيار نوع الاجازة)", vbCritical Exit Sub End If If IsNull(Me.mn) Then MsgBox "(يجب اختيار بداية التاريخ)", vbCritical Exit Sub End If If IsNull(Me.el) Then MsgBox "(يجب اختيار نهاية التاريخ)", vbCritical Exit Sub End If DoCmd.OpenReport "rep_agaza", acViewPreview, , _ "rkm_mlf_Agz = " & Me.nas0 & _ " And name_agz = '" & Me.a2 & "'" & _ " And Vac_Start_Agz <= #" & Format$(Form_Frm_Regist.mn, "yyyy-mm-dd") & "#" & _ " And Vac_End_Agz >= #" & Format$(Form_Frm_Regist.el, "yyyy-mm-dd") & "#" وأنا تحت أمر حضرتك فى توضيح الأمر مرة اخرى إن لزم
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان