كل الانشطه

ممكن السبب عندى فى عدم توصيل الفكرة بشكل واضح أو تنفيذ التقارير بشكل صحيح فى القاعدة المرسلة سأقوم بالتوضيح زى ما قلت لحضرتك الفكرة قائمة على : 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") & "#" وأنا تحت أمر حضرتك فى توضيح الأمر مرة اخرى إن لزم

طالما ظهرت بيانات في المثال الذي ارفقته لك فهذا يعني انه لم يتم تطبيق الحل بشكل صحيح يجب فهم الحل أولاً ليسهل تطبيقه مهما إختلفت بيئة العمل الحل كان يعتمد على إنشاء مربعي نص (txtFrom , txtTo) والذي من المفترض أنهما سيكونان مخفيان ولكني أبقيتهما ظاهران لغرض التوضيح عند النقر على أحد الأزرار الأربعة تحت التاريخين (mn و el) سيتم نقل هذين التاريخين إلى مربعي النص (txtFrom , txtTo) أما عند النقر على أحد الأزرار الأربعة تحت السنة سحتوي مربع النص txtFrom على تاريخ أول يوم في السنة المحددة وسيختوي مربع النص txtTo على تاريخ آخر يوم لنفس السنة وبهذا نكون قد وحدنا مصدر تاريخي بداية ونهاية الفترة للحالتين ليكون معيار التصفية للتقارير في معايير التصفية الخاصة بالاستعلام خلف التقريرين جعلت معيار تصفية حقل تاريخ بداية الإجازة مابين التاريخين في مربعي النص (txtFrom , txtTo) بالاضافة الى معيار التصفية لنوع الإجازة ورقم الملف للتقارير الخاصة بالموظف أرجو أن يكون الشرح واضح واذا كان هناك اي نقطة غير مفهومة فلا تتاخر في طلب توضيحها تحياتي

هذه محاولة اوفيسنا (1).xlsx

بعد التجربة مفيش بيانات فى التقارير

غير متأكد إذا فهمت الطلب صح ولكن تفضل جرب المرفق وحدة الاجازات السنوية.accdb

الملف الأخير المقدم من الأستاذ @عبدالله بشير عبدالله ، يعمل . ولكن نرجو التوضيح من أخونا @waledms ، بطبيعة المشكلة التي يقصدها بأن الأسماء تبقى ثابتة ولا تتغير 🤔

بالرغم من تجربتى للكود الاسماء تتغير ولا مشكلة تاكد من ان خيارات الحساب تلقائي وليس يدوي طباعة.xlsb

الفصول تتغير ولكن مازالت الأسماء ثابته

نعم صدقت اخذف من الكود السابق ( بالرغم من اهميته في التسريع) Application.Calculation = xlCalculationManual من بداية الكود وكذلك Application.Calculation = xlCalculationAutomatic من نهاية الكود

الأخوة الأفاضل هل الموضوع غير واضح

الأسماء تظل ثابته ولا تتغير أثناء الطباعه

وعليكم السلام ورحمة الله وبركاته جرب الكود المرفق Sub PrintFromTo_1() Dim adData As Variant Dim I As Long Dim Rng1 As Range Dim printRows As Long Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual adData = Range("AD1:AD14").Value For I = 1 To UBound(adData, 1) If Len(adData(I, 1)) > 0 Then Cells(1, 13).Value = adData(I, 1) ActiveSheet.Calculate printRows = Range("AG1").Value Set Rng1 = Range("A1").Resize(printRows, 27) Rng1.PrintOut Copies:=1 End If Next I Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True Application.ScreenUpdating = True End Sub

السلام عليكم ورحمه الله وبركاته - الأخوة الأعزاء - المطلوب كود للطباعه أسرع من الموجود بالشيت المرفق --- جزاكم الله خيرا __المقياس المتدرج 3456 الصفوف العليا2027 -.xlsb

وعليكم السلام ورحمة الله وبركاته .. رغم عدم قناعتي بهيكلة وتصميم الملف ، اعتقد أن ذهابك إلى جدول منفصل لعمليات البيع وجدول آخر منفصل لعميات الشراء ، أو جدول الحركات الموحد العام وهو جدول يعرض تفاصيل لجميع حركات المخزن ( بيع ، شراء ، مرتجع ، تحويل من إلى ... إلخ ) ، ولكن بحقول موحدة ( TransID , DocType , DocID , Item , Qty , Price , Discount ) ؛ حيث DocType كمثال ، سيحدد هل الحركة هي حركة بيع أم شراء ، وبذلك لا تحتاج لتكرار حقول sale_qty و buy_qty .... ولكن !! في فكرة التنفيذ على الزر ، استعمل الحدث التالي :- Private Sub Command160_Click() On Error GoTo ErrHandler If Me.NewRecord Or IsNull(Me.sale_id) Then MsgBox "يرجى تحديد فاتورة بيع أولاً", vbExclamation + vbMsgBoxRight, "" Exit Sub End If If Me.Dirty Then Me.Dirty = False Dim db As DAO.Database Dim rsBuy As DAO.Recordset Dim rsSaleDet As DAO.Recordset Dim rsBuyDet As DAO.Recordset Dim newBuyID As Long Set db = CurrentDb Set rsBuy = db.OpenRecordset("buy", dbOpenDynaset) rsBuy.AddNew rsBuy!reg_date = Me.reg_date rsBuy!code = Me.code rsBuy!explain = Me.explain rsBuy!discount = Me.discount rsBuy!note = Me.note rsBuy!saving = Me.saving newBuyID = rsBuy!buy_id rsBuy.Update rsBuy.Close Set rsBuy = Nothing Set rsSaleDet = db.OpenRecordset("SELECT * FROM details WHERE sale_id = " & Me.sale_id, dbOpenSnapshot) Set rsBuyDet = db.OpenRecordset("details", dbOpenDynaset) Do While Not rsSaleDet.EOF rsBuyDet.AddNew rsBuyDet!buy_id = newBuyID rsBuyDet!item = rsSaleDet!item rsBuyDet!buy_qty = rsSaleDet!sale_qty rsBuyDet!buy_price = rsSaleDet!sale_price rsBuyDet!buy_discount_percent = rsSaleDet!sale_discount_percent rsBuyDet!note = rsSaleDet!note rsBuyDet!m = rsSaleDet!m rsBuyDet!check = rsSaleDet!check rsBuyDet!serial = rsSaleDet!serial rsBuyDet.Update rsSaleDet.MoveNext Loop rsSaleDet.Close: Set rsSaleDet = Nothing rsBuyDet.Close: Set rsBuyDet = Nothing DoCmd.OpenForm "buy", acNormal, , "buy_id = " & newBuyID Exit Sub ErrHandler: MsgBox "حدث خطأ أثناء نسخ الفاتورة الحالية", vbCritical + vbMsgBoxRight, "" End Sub تفضل الملف المرفق :- yasser_10.zip

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

السلام عليكم في نموذج sale قمت بعمل زر copy لنقل البيانات الي نموذج buy لكنه ينقل فقط البيانات الخاصة بالنموذج الرئيسي فقط اريده ان ينقل ايضا بيانات النموذج الفرعي وهي العدد والسعر والصنف كما هو موضح في الفيديو Downloads.rar

شكرا جزيلا وبارك الله فيكم جميعا

تمام - جزاكم الله خيرا

وعليكم السلام ورحمة الله وبركاته تم العاء AC3 وربط المعادلة بالخلية AC1 للقائمتين مع اضافة كود تلقائي لمسح احد القائمتين عند اختيار الاخرى __المقياس المتدرج 3456 الصفوف العليا2026 - نسخة.xlsb

تم تعديل المرفق بحيث يتم تجميع عدد الأيام من حقل Mod2 في الإستعلام وتم إضافة دالة لتحويل عدد الأيام هذه إلى سنة - شهر - يوم تحياتي وحدة الاجازات السنوية.accdb

هذي أراها أسلم 🙂☝ موفق عزيزنا في كل مشاريعك 🌹

المقصود حضرتك حساب المستنفذ فى مربعين النص اللذان بجوار مربع نص ( عدد مرات الاجازة ) الموظف الذى فى الصورة حصل مثلا على عدد 3 مرات اجازة وتم القطع فى اثنتين منهما بواقع 364+364+365 = 1093 يوم - مدة القطع ( إن وجدت ) لانه ممكن الموظف لا يقطع الاجازة والموظف الل عليه المثال قطعها مرتين فتبقى 1093-212-273= 608 ده ( مربع نص المستنفذ بالأيام ) # أما مربع نص المستنفذ بالسنوات يحسب 608 يوم كام سنة وكام شهر وكام يوم هكذا ( 1 سنة و 6 أشهر و 10 يوم ) مثلا معلش ممكن يكون الموضوع معقد بس أتمنى أكون وصلت الفكرة

السلام عليكم ورحمه الله وبركاته - الأخوة الأعزاء - المطلوب عند الإختيار من القائمه المسماه ترم أول تظهر الأسابيع فى الجدول وعند إختيار من القائمه المسماه ترم ثان تظهر الأسابيع فة نفس الخلايا فى الجدول ‏‏المقياس المتدرج 3456 الصفوف العليا2026 - نسخة.xlsb

هذه النقطة تم حلها عن طريق التنسيق الشرطي هذه الرسالة كانت تظهر بسبب الحقل Mod2 المحتسب داخل الإستعلام والحقيقة لا يوجد سبب واضح لظهور الرسالة ويوجد لهذه المشكلة حلين الأول - أن تقوم بحذف مربع النص وإدراجه مرة أخرى (وهو ماتم في المرفق) الثاني بالإستغناء عن الحقل وأن نجعل الإحتساب يتم داخل مربع النص كما هو موضح بالصورة التالية الطلب الثالث كان كما وضحته أنت بالمثال وهذه هي النتيجة فهل كان المطلوب غير ماجاء هنا تم إرفاق الملف بعد إضافة كود الحذف للزر تحياتي وحدة الاجازات السنوية.accdb

تأخرت بالرد مهندسنا لإنشغالي الفترة الماضية في إنهاء تعديلات على مشروع لأحد الشركات الصغيرة .. والحمد لله هذه يمكن علاجها بأن نجعل الأداة تظهر لك ليست بوكس في نموذج صغير وتحدد منها المشاريع التي تريد استثنائها من الحذف لمساراتها .. أو إنشاء ملف ريجستري ( نسخة احتياطية ) منها واستعادته بشكل تلقائي بعد إعادة الضبط أو بشكل يدوي ( ملف بصيغة reg. ) .. ما رأيك ؟؟ أم في خاطرك فكرة أخرى ؟