كل الانشطه

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

لا تزال تعمل .. حاول مرة أخرى 👍🙂 .

تفضل استاذ @بلال اليامين طلبك حسب مافهمت بتقريرك .... وتقريري . Belal_Yamen.accdb

يجب ان تكون الطابعة مخصص لطباعة الصور وليس الاوراق لان طابعة الاوراق تجبر لترك مسافة لكل زاوية بمسافة سانتي اما طابعة الصور تطبع من غير هوامش هنا يوجد حيل بسيطة تستخدم ورق اكبر من (A4) Up ثم قاطعة الورق تضع الورق دفعة واحدة وتقطع الزائد يباع في المكتبات قاطعة الاوراق طريقة افضل من طباعة الجرائد او مطبعة خاصة تطبع الخلفيات تكلف لكل 100 ورقة كان في السابق يعادل كل 1000 ورقة يفضل شراء الطابعة متقدمة للصور من الصين شرط طباعة عدد الاوراق ملونه 60 الف ورقة ويزيد بحبر واحد نتظر الحلول 😇

استكملت على الكود السابق لاستاذ @Foksh 😇 Private Sub BMenu1_Click(): ToggleSubMenu "1": Set_Background: Set_Selected_Button_1: End Sub Private Sub BMenu2_Click(): ToggleSubMenu "2": Set_Background: Set_Selected_Button_2: End Sub Private Sub BMenu3_Click(): ToggleSubMenu "3": Set_Background: Set_Selected_Button_3: End Sub Private Sub BMenu4_Click(): ToggleSubMenu "4": Set_Background: Set_Selected_Button_4: End Sub لجعل قائمة الجانبية متلاصقه نوع ما مع اضافة واجهة ويجب تأخير تنقل ل SubForm لون الابيض يكون مخفي بمعدل ثانية يظهر حتى لا تأثر زغللة عين او حل آخر في الامكان تغير المتفرع من الازرار باي تصميم زر بتدريج بكود بسيط مع تفاعل الازرار تحميل المرفق https://www.mediafire.com/file/b6bnzkccf19k8y4/Menu+Navigations.rar/file

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

السلام عليكم عندي كمبيوترين على احد الاجهزة صممت تقرير (شهادة شكر ) وجعلت خلفيته صورة وفي التفاصيل بعض الحقول التقرير ممتاز حتى اني جعلت جميع الهوامش = صفر .. من اجل تمدد الصورة على كامل ورقة الـــ A4 عندما نقلت البرنامج الى الجهاز الآخر تغير تصميم التقرير واختلف تمركز الصورة واختلت اماكن الحقول وظهرت الهوامش كبيرة رغم انها صفر الجهاز الاول win10 والاخر win7 ان كان احد من الاخوة مر بهذه التجربة يفيدني فيها .. جزيتم خيرا

لو وضحت الحكمة من هذا الأمر مشكورا التقارير بساعات الموظفين لا تعمل لو تكرمت تلقى نظرة على تعديلي عملت استعلامين أحدهما للدخول والآخر للخروج ، واستعلام ثلاث لتجميع الساعات لكن تظل مشكلة نسيان التوقيع (أعتقد أن الحل أن بكون للموظف توقيع واحد من كل نوع خلال الـ24 ساعة وفي حالة النسيان تترك خانة توقيعه فارغة) لكن كيف ذلك ؟ ChkInOut_NetUp9.rar

عجبا .. مشاركات تقارب الألف ولا تكلف نفسك اختيار عنوان مناسب لموضوعك !!!

لدي تقرير اريد وضع رقم 1 امام متربص كل موظف متربص وامام كل موظف متعاقد اليكم الشرح والبرنامج Nouveau Microsoft Access قاعدة بيانات.accdb

السلام عليكم ,, ماشاء الله فكره جميله , وجميع الخبراء اجتمعو للحل السريع , واستفدت من افكاركم بارك الله بكم جميعا ,, لكن عندي سؤال للخبير في فنون الاكسس ,والصديق @Foksh كيف قمت بعمل اخفاء وحماية السجلات .

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

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

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

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

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

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

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

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

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

الأداة رائعة ولكن اشتغلت معي مرة واحدة وبعدها يظهر لي الخطأ: حدث خطأ أثناء الاتصال بخدمة الذكاء الاصطناعي

عجيب .. عجيب يبدو انك عدلت على شيء ما اعدت التجربة .. والنتيجة كانت مذهلة التعديلات التي اجراها : تنظيم الكود .. بحيث جعل جميع الاعلانات عن المتغيرات في الأعلى بدل شرط الحقل النصي في الدوال بالمتغير وكذلك في جملة sql استبدل الدالة بالمتغير .. عفريت برمجي اضاف لي متغير اسم الموظف غفلت عن نقله من العمل السابق ... هذه الاضافة لا تخطر على بال المحترفين الا بعد عناء اغلاق السجلات عند نهاية كل شرط .. الحقيقة هذه الحركة تحفة هذه صورة من الخيارات التي استخدمتها : وهذا الكود الاصلي : 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 = Now() 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 = Now() 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 = Now() 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 صحيح هو اضاف لي هذا المتغير : Dim EmpUserid As Variant ولكن هذا المتغير تم الاعلان عنه في الوحدة النمطية كمتغير عام وانا لا الومه لانه لا يعلم وليس له الا الظاهر ☺️

الشخص الأول: =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 ازاى اقدر احسب حساب كل واحد فيهم ؟؟