كل الانشطه

اخونا الفاضل أ/ابراهيم الحداد حاولت اطبق الكود قبل طرح الموضع وما ظبطشى ياريت لو تضيفه على الشيت اخونا الفاضل أ/hegazee المطلوب استعراض الفواتير وليس التجميع

حياك الله أخي Data!E$2:E$1091 هذا الجزء يخبر المعادلة أنه يريد سطر فارغ لو تلاحظ أنك تريد البيانات في سطر فيه مثلا (أعباء 20 مليار ) والأعمدة التي بجانبه لا بد أ، تكون فاضية كما هو واضح من شيت الاكسل يعني لا بد من وضع عمود ليس فيه بيانات مثلا Data!E$2:E$1091 مثل ما فعلت أنا أو ممكن تغيره إلى Data!A$2:A$1091 لأنه فاضي أو Data!B$2:B$1091 صحيح لأنه فاضي وممكن يكون D أو E أو F أو ..... لأنها فاضية ما عدا Q أو O لأنهما غير فاضيين خد المعادلة التي أعطيتها لك كوبي وادخلها في الذكاء الاصطناعي حتى يشرحها لك وشوف النتيجة تقبل تحياتي

أهلا أبا خليل الدالة ستناديها مرتين مرة للدخول ومرة للخروج للدخول ستدخل وقت الدخول وقيمة النوع 0 وللخروج ستدخل وقت الخروج وقيمة النوع -1 ومسألتك سأعمل عليها الليلة إن شاء الله إذا لم يسبقني أحد في حلها.

هل هذا ما تريد ؟ 1234 (6).rar

وعليكم السلام ورحمة الله وبركاته 🤗 كإجابة على سؤالك ، للأسف لا يمكن تحقيق طلبك . كأحد الحلول هو استخدام صورة جاهزة يتم إضافتها للتقرير. أو تصدير تقريرك الى وورد وهناك تقوم بالتكبير لحجم الخط إما بشكل يدوي أو من خلال كود التصدير للوورد .

و عليكم السلام ورحمة الله و بركاته جرب الملف المرفق (2)استخراج_فواتير_بدون_تكرار.xlsx

السلام عليكم عند اختيار اسم الموظف ونقوم بحجز ايام العياب اريد طريقة اخفاء ايقونة طلب مستخلف عندما يكون عدد ايام الغياب اقل من 10 ايام بارك الله فيكم 1234 (6).accdb

المسألة كالتالي : هذه صورة جدول الحضور من يوم 1/6 وحتى 11/6 الموظف مجاز ايام : 3 ، 4 ، 5 من الشهر بناء على ما تم رصده في جدول الاجازات وغائب يوم : 8 اريد في استعلام اظهار جميع الأيام .. وامام كل سجل حالته : حاضر او مجاز او غائب .. أو تكون ارقام 1 أو 2 أو 3 تعبر عن الحالة

السلام عليكم و رحمة الله استخدم هذه المعادلة =IFERROR(INDEX($D$4:$D$1000;MATCH(0;COUNTIF($N$3:N3;$D$4:$D$1000);0));"") و لا تنسى الضغط على CTRL+SHIFT+ ENTER قبل السحب

الف الف شكر لحضرتك يا فندم الكود يعمل بشكل جيد جدا و التواريخ بتيجي مظبوطه بكرر شكري لحضرتك ولمنتدايا الغالي اوفسينا و الساده المشرفين و الساده الاعضاء

السلام عليكم اسعد الله اوقاتكم جميعا قمت بتصميم تقرير لعرض سعر منتج بحجم كبير جدا ، وعندما وضعت حجم الخط 150 ظهرت لي رسالة التالية كيف يمكنني زيادة الحجم اكثر من 127

اهلا ابو احمد سرني مرورك ومشاركتك هو انا عملتها بالاول دالة واحدة .. بحيث الدالة تساوي i+x ولكني احتاج للتمييز بين وقت الحضور ووقت الانصراف في التقرير وتلوينها .. لذا اضطررت لجعلها دالتين الدالة واضحة وجميلة : inOutTime تمثل حقل الحضور او حقل الانصراف بناء على قيمة المتغير inOutType ولكني لم اعرف اين القيمة المقابلة لــــ inOutType في الاستعلام على فكرة : كنت اعد مسألة اخرى مرتبطة بهذا .. وقفت امامها .

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

السلام عليكم ورحمة الله وبركاته الساده مشرفي الموقع المحترمين مرسل لحضراتكم ملف به كود عند الضغط علي تشغيل الكود يغير التاريخ اكثر من مره مع العلم بان كل التواريخ في شهر 7 و عند الضغط على الكود اكثر من مره يتم ترحيل شهر 7 ويصبح شهر 8 وذلك لانه مش بيفرق بين اليوم و الشهر لان من يوم 1 الى 12 بيتغير انما من يوم 13 الى 31 لا ينقل الشهر ارجو من حضراتكم افاتدتي شاكر لكم جدا تجرة.xlsb

وهذه دالة مختصرة على نمط دالتيك وهي تعمل للدخول والخروج للدخول النوع 0 أو false للخروج النوع -1 أو true Function LostTime(Period As Integer, ByVal inOutTime As Date, inOutType As Boolean) As Integer Dim rst As Recordset Dim Result As Double Set rst = CurrentDb.OpenRecordset("tbl_Ftrat", dbOpenSnapshot) With rst .FindFirst "id=" & Period If Not .NoMatch Then inOutTime = inOutTime - Fix(inOutTime) If inOutType = 0 Then Result = !start_work - inOutTime + !start_free / 1440 Else Result = inOutTime - !end_work + !end_free / 1440 End If If Result < 0 Then LostTime = Abs(Round(Result * 1440, 0)) End If End With 'rst.Close Set rst = Nothing End Function

الخبير الافاضل منتصر الانسي ارجو تصحيح الكود قمت باضافة زر yes و no اريد عند الضغط علىyes يفتح التقرير ويقوم بالطباعة وعند الضغط علىNO يغلق التقرير Private Sub JOS_Click() Dim TaskDialog As cTaskDialog Set TaskDialog = New cTaskDialog With TaskDialog .Init .ParenthWnd = Me.hWnd .Flags = TDF_RTL_LAYOUT .MainInstruction = "طباعة تقرير" .Content = "هل تريد طباعة تقرير المخنبر" .CommonButtons = TDCBF_OK_BUTTON .IconMain = TD_SHIELD_OK_ICON .CommonButtons = TDCBF_YES_BUTTON Or TDCBF_NO_BUTTON .Title = "المعمل الطبى" .ShowDialog Me.lblButton.Caption = .ResultMain If CommonButtons = TDCBF_YES_BUTTON Then DoCmd.PrintOut DoCmd.close acReport, "External_lab_Mokh" ElseIf Me.lblButton.Caption = TDCBF_NO_BUTTON Then DoCmd.close acReport, "External_lab_Mokh" End If End With Set TaskDialog = Nothing End Sub ممكن لو تكرمت المساعدة فى تصحيح الكود

الخبير الافاضل منتصر الانسي شكرا على هذا الابداع المنقطع النظير بارك الله فيك ولك

ارغب بتطوير نظام ادارة عدادات المياه بلغة الاكسيس VBA من حيث المشتركين وادارة العدادات الخاصة بهم وتسجيل الاستحقاق المالي وتسجيل القبوضات ومتابعة حالات العدادات اللي عنده القدرة +972599822892

شكرا اخي

افتح النموذج في عرض التصميم وفي تبويب بيانات في خصائص النموذج في خانة ادخال بيانات اختر لا شاهد الصورة

بعد التحية الاخوان الكرام لماذا لا تظهر المعلومات في النموذج بعد الادخال وتكون محفوظة في الجدول اريد اظهارها في النموذج ممكن المساعدة . test11.accdb

ما شاء الله تبارك الرحمن 😀 من أجمل المواضيع التي أنزلتها أخي @منتصر الانسي .. جزاك الله كل خير .. 😊 مكتبة غنية شاملة واستعراض جميل جدا للأكواد والأمثلة .. تبارك الله ... وسلمت يمناك 🌹 هذه الخدمة تغني عن تصميم عشرات النماذج التنبيهية والإرشادية 🙂

جزاك الله خيرا وبارك الله فيك وفي أهل بيتك وفي أولادك و بارك لك في صحتك وعافيتك وعلمك ومالك ورزقك صحبة النبي المصطفى في الدرجات العلى مش عارف أشكر حضرتك إزاي والله ... وسؤال أخير : الكود (Data!E$2:E$1091="") , إيه الغرض منه -- ليه أستعين بالبيانات في العمود E من شيت ال Data