كل الانشطه

عجيب .. عجيب يبدو انك عدلت على شيء ما اعدت التجربة .. والنتيجة كانت مذهلة التعديلات التي اجراها : تنظيم الكود .. بحيث جعل جميع الاعلانات عن المتغيرات في الأعلى اضاف لي متغير اسم الموظف غفلت عن نقله من العمل السابق ... هذه الاضافة لا تخطر على بال المحترفين الا بعد عناء اغلاق السجلات عند نهاية كل شرط .. الحقيقة هذه الحركة تحفة هذه صورة من الخيارات التي استخدمتها : وهذا الكود الاصلي : Private Sub id_AfterUpdate() EmpUserid = id Dim mylevl As Boolean mylevl = Nz(DLookup("Emp_user", "tblEmpNames", "Emp_user='" & Me.id & "'"), 0) EmpFatrah = Nz(DLookup("fatrah", "tblEmpNames", "Emp_user='" & Me.id & "'"), 0) If mylevl = False Then Beep Me.LabelH.Caption = "خطأ!! .. الادخال غير صحيح" Me.TimerInterval = 3000 id = "" id.SetFocus Exit Sub End If Dim rs As Recordset Dim strSql As String strSql = "SELECT TOP 1 tblCheckINOut.id, tblCheckINOut.EmpUser, tblCheckINOut.chekInOut, tblCheckINOut.chkio, tblCheckINOut.ftra_id " & vbCrLf & _ "FROM tblCheckINOut " & vbCrLf & _ "WHERE (((tblCheckINOut.EmpUser)=funEmpUserid())) " & vbCrLf & _ "ORDER BY tblCheckINOut.id DESC;" Set rs = CurrentDb.OpenRecordset(strSql) If rs.RecordCount = 0 Then rs.AddNew rs!EmpUser = id rs!chekInOut = Now() rs!chkio = "I" rs!ftra_id = EmpFatrah Me.txtnm = empName LabelH.Caption = "حضور" Me.Requery Me.TimerInterval = 3000 Me.id = "" Me.id.SetFocus rs.Update Exit Sub End If Dim waitTime As Integer Dim AdTim As Date waitTime = Nz(DLookup("waitBtween", "tblTimeCtrl"), 0) AdTim = DateAdd("n", waitTime, rs!chekInOut) If Now() < AdTim Then Me.id.SetFocus Beep Me.LabelH.Caption = "توقيع مكرر !! انتظر قليلا ..." id = "" Me.TimerInterval = 3000 id.SetFocus Exit Sub Else If rs!chkio = "I" Then rs.AddNew rs!EmpUser = EmpUserid rs!chekInOut = Now() rs!chkio = "O" rs!ftra_id = EmpFatrah Me.txtnm = empName LabelH.Caption = "انصراف" Me.Requery Me.id = "" Me.TimerInterval = 3000 Me.id.SetFocus rs.Update Exit Sub ElseIf rs!chkio = "O" Then rs.AddNew rs!EmpUser = EmpUserid rs!chekInOut = Now() rs!chkio = "I" rs!ftra_id = EmpFatrah Me.txtnm = empName LabelH.Caption = "حضور" Me.Requery Me.TimerInterval = 3000 Me.id = "" Me.id.SetFocus rs.Update Exit Sub End If End If End Sub وهذه هي النتيجة الرائعة : Private Sub id_AfterUpdate() Dim EmpUserid As Variant Dim mylevl As Boolean Dim EmpFatrah As Variant Dim rs As DAO.Recordset Dim strSql As String Dim waitTime As Integer Dim AdTim As Date Dim empName As String ' Declare empName EmpUserid = Me.id ' Corrected logic for mylevl to check for user existence mylevl = Not IsNull(DLookup("Emp_user", "tblEmpNames", "Emp_user='" & EmpUserid & "'")) EmpFatrah = Nz(DLookup("fatrah", "tblEmpNames", "Emp_user='" & EmpUserid & "'"), 0) If mylevl = False Then Beep Me.LabelH.Caption = "خطأ!! .. الادخال غير صحيح" Me.TimerInterval = 3000 Me.id = "" Me.id.SetFocus Exit Sub End If ' Lookup empName once after confirming user existence empName = Nz(DLookup("Emp_Name", "tblEmpNames", "Emp_user='" & EmpUserid & "'"), "") strSql = "SELECT TOP 1 tblCheckINOut.id, tblCheckINOut.EmpUser, tblCheckINOut.chekInOut, tblCheckINOut.chkio, tblCheckINOut.ftra_id " & vbCrLf & _ "FROM tblCheckINOut " & vbCrLf & _ "WHERE (((tblCheckINOut.EmpUser)='" & EmpUserid & "')) " & vbCrLf & _ "ORDER BY tblCheckINOut.id DESC;" Set rs = CurrentDb.OpenRecordset(strSql) If rs.RecordCount = 0 Then rs.AddNew rs!EmpUser = EmpUserid rs!chekInOut = varGeneralDate rs!chkio = "I" rs!ftra_id = EmpFatrah Me.txtnm = empName Me.LabelH.Caption = "حضور" Me.Requery Me.TimerInterval = 3000 Me.id = "" Me.id.SetFocus rs.Update rs.Close Set rs = Nothing Exit Sub End If waitTime = Nz(DLookup("waitBtween", "tblTimeCtrl"), 0) AdTim = DateAdd("n", waitTime, rs!chekInOut) If Now() < AdTim Then Me.id.SetFocus Beep Me.LabelH.Caption = "توقيع مكرر !! انتظر قليلا ..." Me.id = "" Me.TimerInterval = 3000 Me.id.SetFocus rs.Close Set rs = Nothing Exit Sub Else If rs!chkio = "I" Then rs.AddNew rs!EmpUser = EmpUserid rs!chekInOut = varGeneralDate rs!chkio = "O" rs!ftra_id = EmpFatrah Me.txtnm = empName Me.LabelH.Caption = "انصراف" Me.Requery Me.id = "" Me.TimerInterval = 3000 Me.id.SetFocus rs.Update rs.Close Set rs = Nothing Exit Sub ElseIf rs!chkio = "O" Then rs.AddNew rs!EmpUser = EmpUserid rs!chekInOut = varGeneralDate rs!chkio = "I" rs!ftra_id = EmpFatrah Me.txtnm = empName Me.LabelH.Caption = "حضور" Me.Requery Me.TimerInterval = 3000 Me.id = "" Me.id.SetFocus rs.Update rs.Close Set rs = Nothing Exit Sub End If End If End Sub

الشخص الأول: =SUM(LARGE((B5;B7;B8);{1,2,3})) الشخص الثاني =SUM(LARGE((B4;B6;B9);{1,2,3})) Buy 3 Get 3(2).xlsx

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

مش هايشرى هياحد الاصناف 2 و 4 و 5 و الشخص الثاني هياحد الاصناف 1 و 3 و 6 ازاى اقدر احسب حساب كل واحد فيهم ؟؟

تقدّم شركة مكتبتك – شبكة المعلومات العربية دعماً أكاديمياً متكاملاً للباحثين من خلال خدمات إعداد خطة البحث العلمي باحترافية عالية، سواء للجامعات أو لبرامج الدراسات العليا، كما نوفر إعداد خطة بحث الرسائل العلمية بأسلوب منهجي دقيق يساعدك على بناء دراسة قوية ومنسقة، ويعمل خبراؤنا على اختبار فرضيات البحث وتحليلها وفق الأساليب العلمية السليمة؛ لضمان جودة النتائج وصدقها، إضافة إلى ذلك، نوفر لك نموذج صفحة عنوان البحث الجاهز والمعتمد أكاديميًا؛ ليسهّل عليك تنسيق عملك وفق الاشتراطات الرسمية، مع مكتبتك… خطتك البحثية تبدأ بشكل صحيح وتنتهي بمعايير تليق بعملك العلمي.

تقدّم شركة مكتبتك – شبكة المعلومات العربية حلولاً أكاديمية متكاملة لدعم الطلاب والباحثين في إعداد خطة البحث الجامعي بطريقة منهجية احترافية تلبّي معايير الجامعات العربية والدولية، كما نوفّر خدمة إعداد ومراجعة خطة أطروحة دكتوراه بأعلى درجات الدقة العلمية، مع توفير نماذج أسئلة البحث المصاغة بوضوح لتوجيه الدراسة وتحقيق أهدافها، ونساعدك كذلك في كتابة تمهيد البحث بأسلوب أكاديمي جذاب يعكس أهمية الموضوع ويُمهّد للقارئ الطريق لفهم المشكلة البحثية، مع مكتبتك… خطواتك البحثية تبدأ بثقة وتنتهي بتميّز.

تقدّم شركة مكتبتك – شبكة المعلومات العربية خدمات بحثية متكاملة تساعدك على إعداد خطة البحث العلمي باحترافية عالية، سواء كنت تعمل على خطة بحث ماجستير أو مشروع تخرج أو رسالة علمية متقدمة، كما توفر لك نماذج جاهزة ومنسّقة مثل صفحة عنوان البحث doc وفق معايير الجامعات، إضافة إلى دعم متخصص في إعداد نموذج نتائج البحث بطريقة علمية واضحة ومرتّبة تعكس جودة دراستك ودقّة تحليلك، مع مكتبتك، يصبح إنجاز بحثك أسهل، أسرع، وأكثر تميزاً.

توفر شركة مكتبتك – شبكة المعلومات العربية للطلاب والباحثين دعماً احترافياً يساعدهم على فهم كيفية كتابة خطة البحث خطوة بخطوة، مع إتاحة إمكانية تحميل خطة بحث جاهزة لمساعدتهم على البدء بثقة أكبر، كما نرشدك بمهارة إلى كيف تختار عنوان البحث المناسب لمجالك، ونوضح لك بدقة العلاقة بين عنوان البحث وإشكالية البحث العلمي؛ لضمان صياغة خطة متماسكة تُظهر قيمة دراستك وأصالتها، ومع خدمات مكتبتك، تصبح رحلتك البحثية أكثر سهولة واحترافية وجودة.

معنى ذلك أن الشخص الأول ها يشترى الأصناف 2 و 4 و 5 و الشخص الثاني ها يشتري الأصناف 1 و 3 و 6 هذه النقطة غير واضحة تماما في الملف و ستسبب الكثير من المشاكل مستقبلا

توفّر شركة مكتبتك – شبكة المعلومات العربية حلولاً بحثية متكاملة تساعد الطلاب والباحثين على إعداد خطة بحث في علم الاجتماع بأسلوب احترافي يلائم معايير الجامعات، ونمنحك إرشادات عملية حول كيف تكتب خطة بحث تخرج خطوة بخطوة، مع توضيح صعوبات كتابة خطة البحث وكيفية تجاوزها بسهولة من خلال نماذج جاهزة واستشارات متخصصة، كما نزوّدك بكل ما تحتاجه عند إنهاء دراستك، بما في ذلك مثال على توصيات البحث بصياغات أكاديمية واضحة تساعدك على تقديم مشروع بحثي متكامل يرتقي إلى أعلى مستويات الجودة، مع مكتبتك… تصبح رحلتك البحثية أكثر وضوحاً وثقة ونجاحاً.

تقدّم شركة مكتبتك – شبكة المعلومات العربية دعماً بحثياً متكاملاً يسهّل على الطلاب والباحثين إعداد أعمالهم الأكاديمية باحترافية عالية؛ حيث نوفّر لك إعداد خطة بحث جامعة نجران وفق معايير الجامعة وأساليبها المعتمدة، كما نساعدك في صياغة أفضل عناوين خطة بحث تناسب تخصّصك وموضوع دراستك، ونرشدك خطوة بخطوة إلى كيفية اختيار الفكرة البحثية الأكثر ملاءمة وأصالة، ولمن يحتاج بدء العمل مباشرة، نوفر نموذج خطة بحث دكتوراه جاهزة قابلة للتعديل، تُعدّ نموذجاً عملياً يُسهّل كتابة خطتك بأعلى جودة ومعايير أكاديمية رصينة، مع مكتبتك… طريقك نحو تميز بحثي واضح وسهل.

مع شركة مكتبتك – شبكة المعلومات العربية أصبح إعداد الأبحاث أكثر سهولة واحترافية؛ فنحن نضع بين يديك طريقة كتابة خطة بحث دكتوراه بخطوات منهجية واضحة تضمن قبول خطتك من أول عرض، كما نوفر خدمات إعداد خطة بحث في الكويت بما يتوافق مع معايير الجامعات هناك، ونساعدك كذلك في إعداد خطة بحث دراسة مقارنة تجمع بين الدقة والعمق العلمي، إضافة إلى دعمك المتخصص في اختيار عنوان بحث التخرج المناسب لتخصصك وميولك البحثية، مع مكتبتك، تحصل دائماً على انطلاقة بحثية قوية ومتكاملة نحو التفوق الأكاديمي.

تقدّم شركة مكتبتك – شبكة المعلومات العربية حلولاً بحثية متكاملة تساعدك على الوصول إلى خطة بحث متميزة بسهولة واحترافية؛ حيث توفر لك نموذج خطة بحث جاهزة PDF بصيغ متعددة، بالإضافة إلى إعداد خطة البحث العلمي بالإنجليزي وفق أعلى معايير الجامعات، كما نرشدك خطوة بخطوة حول كيف يتم اعتماد خطة بحث بشكل رسمي، ونقدم دعماً متخصصاً يوضح لك كيف أعمل خطة بحث ماجستير بطريقة منهجية دقيقة تضمن قبولها من أول مرة، مكتبتك هي وجهتك الأولى للتميز الأكاديمي والبحثي.

تقدّم شركة مكتبتك – شبكة المعلومات العربية دعماً كاملاً للطلبة والباحثين في إعداد مختلف الخطط البحثية، سواء كنت تبحث عن خطة بحث مذكرة تخرج ماستر أو خطة بحث تخرج بكالوريوس مصاغة وفق منهجية أكاديمية معتمدة، كما نوفر مساعدة متخصصة في تحديد وصياغة مشكلة بحث قانوني بوضوح ودقة، مع شرح شامل لـ أهمية البحث النظرية والتطبيقية وربطها بأهداف الدراسة ونتائجها المتوقعة، مكتبتك هي شريكك الموثوق لتحقيق أعلى مستوى من الجودة والتميز في أعمالك البحثية.

قيمة الاصناف اللي كل شخص منهم هياخدهم من ال 6 اصناف

ما المقصود ب: Person N#1 Person N#2

اجمالي الفاتورة قبل الخصم 4184 و بعد الخصم 2587 يتم السداد اغلي 3 قيم قى القاتورة ,, ازاي اقدر اعرف حساب كل شخص هيدفع كام من الفاتورة ؟؟

اختلفت الطريقة تماما ... التوقيع مفتوح .. ........وإن اردت ضوابط مستقبلا حاولنا صنع ذلك اضفت حقلا في جدول الموظفين يبين نوع حضوره : نظامي او مفتوح ( لم يتم التفعيل ) التقارير الآن على المفتوح الفرق بينهما هو : ان النظامي يكون الموظف ملتزما بالوقت الرسمي في الحضور والانصراف ويتم الاحتساب ما بين هذين الوقتين فقط اما المفتوح فالموظف مطالب بعدد ساعات محددة يتواجد فيها .. من غير اعتبار للتوقيت الرسمي ChkInOut_NetUp7.rar

برجاء التوضيح أكثر

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

السلام عليكم بعد اذن الجميع كنت محتاج معادلة لمعرفة حساب كل شخص Buy 3 Get 3.xlsx

أنا في غاية الشكر لحضراتكم السيد الأستاذ عبد الله بشير والأستاذ hegazee ربنا يبارك في أعماركم

لست خبيرا مثلك ، لكنى أعتقد أن الفائدة المرجوة أكبر العيب المؤكد هذا أيضا أمر جيد جدا ، ويتناسب مع كثير من سوق العمل

هل يوجد حل للمشكلة وهل يمكن 1- استحداث جدولين جديده واحد رئيسي والاخر فرعي وربطها بالشاشات الحالية وتعتبر جداول مؤقته 2- وضع زر ترحيل يقوم هذا الزر بترحيل جميع الفواتير من الجداول المؤقته الى الجداول الاساسيه وحذفها من الجداول المؤقته

السلام عليكم ورحمة الله بعد اذن معليمنا الكرام هل الاستعلام الموضح بالصورة التالية يكون حل ام هل هناك حل افضل ، حيث الاستعلام التالى اعطانى نتائج اقرب للحل