ابو جودي

السلام عليكم ورحمة الله تعالى وبركاته استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr للعلم منذ فترة تعرضت فى احد الامثلة لــ موضوع parent وأعتقد كان مثال للاستاذة الفاضلة زهرة ولا اخفيكم سرا لم افهم شئ وهممت بالبحث على الانترنت وتوصلت للموقع ذلك الذى اشرتم اليه ولم افهم شئ كذلك الى الان هههههه ..... معلش صعيدي وافهم بصعوبة بالغة

ممكن تحقيق ذلك ان اردت ولكن ان كانت كمية البيانات كبيرة تطول فترة العمل مع تلك الطريقة المرفق جاهز تم التعديل على جدول attendance باضافة مفتاحان على الحقلان names & recordingdate وذلك لتفادى اضافة نس البيانات فى نفس التاريخ New Microsoft Office Access 2007 قاعدة بيانات (2).accdb

ممكن تحقيق ذلك ان اردت ولكن ان كانت كمية البيانات كبيرة تطول فترة العمل مع تلك الطريقة هل لازلت تريدين الطريقة

لا شكر على واجب اهلا بك

استدل كود الوحدة النمطية بالاتى Public Function Horizontal(tabelle As String, Feld1 As String, Feld2 As String, valFeld1) Dim DB Dim rs As Recordset Set DB = CurrentDb Set rs = DB.OpenRecordset("select distinct " & Feld2 & " from " & tabelle _ & " where " & Feld1 & "='" & valFeld1 & "' order by " & Feld2) Do If rs.AbsolutePosition = rs.BOF Then Horizontal = Format(rs(Feld2), "yyyy/mm/dd") Else Horizontal = Horizontal & " - " & Format(rs(Feld2), "yyyy/mm/dd") End If rs.MoveNext Loop Until rs.EOF rs.Close DB.Close Set rs = Nothing Set DB = Nothing End Function

يعنى الصح 2019-07-01 ام هذا 01-07-2019

اتفضل يا استاذ @Mostafa Elmahmoudy تفريبا ده طلب حضرتك 1293.Report_Draw_BoxLine.mdb

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

اولا شكرا لحضرتك لمساعدتك ثانا انا عارف اgroup and sort ربما فى شئ انا مش اعرفه اذا تفضلت القاعدة مرفقة ممكن تطلع لى التقرير زى الصورة تمام ادى الصورة ودى النتيجة اللى انا محتاج اوصلها وادى قاعدة بيانات اتفضل يا افندم دمج حقل فى التقرير.mdb

السلام عليكم ورحمة الله وبركاته هل ممكن عمل التقرير بهذا الشكل دمج حقل فى التقرير.mdb

برنامج الحماية لدى دائما يرى اى ملف .vbs فيروس

يكفي تشغيلها

اتفضلى يا استاذه الملف ده ببكفل بكل شئ أداة تخفيض أمان الماكروز تلقائيا.zip

شوف ياريت لو تشرح انت عاوز تعمل ايه انا مش فاهم اصلا البرنامج اللى اعطتنى اياه بيعمل ايه ع العموم اتفضل نسخة مفتوحة لو حابب تشوف الاكواد وتتعلم منه 1962163050_Workshiftprogramv0.1(2).accdb

اتفضل شوف الكود ياللى على زر الامر اضافة دى اكواد تخص ادارة الاقساط مالها ومال الورادى للموظفين انا مش فاهم حاجة Dim strSQL As String strSQL = "DELETE G2.[رقم القسط], G2.رقم, G2.التاريخ, G2.المبلغ1 ,G2.المبلغ, G2.[المبلغ كتابه] FROM G2 WHERE (((G2.رقم)=[FORMS]![f1]![رقم]));" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings False Me.Requery Refresh DoCmd.GoToRecord , , acFirst For i = 0 To Forms![f1]![no] - 1 Me.رقم = Forms![f1]![رقم] If Form_f1.القسط.Value = "يومي" Then Me.التاريخ = DateAdd("D", i, Forms![f1]![Date]) If Form_f1.القسط.Value = "شهر" Then Me.التاريخ = DateAdd("m", i, Forms![f1]![Date]) If Form_f1.القسط.Value = "اسبوع" Then Me.التاريخ = DateAdd("WW", i, Forms![f1]![Date]) If Form_f1.القسط.Value = "ثلاث اشهر" Then Me.التاريخ = DateAdd("Q", i, Forms![f1]![Date]) If Form_f1.القسط.Value = "سنة" Then Me.التاريخ = DateAdd("yyyy", i, Forms![f1]![Date]) If Form_f1.القسط.Value = "ستة اشهر" Then Me.التاريخ = DateAdd("Q", i * 2, Forms![f1]![Date]) DoCmd.GoToRecord , , acNext Next DoCmd.Requery

طيب ممكن المرفق

بص البرمجة عاملة زى معادلة الرياضة معطى مجهول = ( مطلوب ) 5 + ( مجهول) = 10 لما تتزن المعادلة ويتحقق الشرطان وجود المعطى ومعرفة النتيجة يسهل الوصول لتحقيق الحل بوضع الالية المناسبة لايجاد لمجهول

اين المرفق ؟

طيب والبرنامج يوزع الورديات ازاى ؟

وهذا التعديل على مرفق استاذى الجليل و معلمى القدير والدى الحبيب الاستاذ @jjafferr المرفق يتم من خلاله استيراد ملف CSV او اكثر من ملف فى وفت واحد يتم فصل الوقت والتاريخ كل منهما حقل منفصل وجمهما معا يستطيع اخونا الكريم الاستاذ saffar اختيار ما يريد ومن ثم يكمل عمله بكل سهولة بعد ذلك ImportExcel (jjafferr) Correc Date Format.zip

الموضوع سهل جدا انشاء جدول بالتنسيقات التى يريدها واستعلام الحاق من الجدول timestamp الى الجدول الاخر ! ولكن يا حبذا لو فتح اخونا الجبيب موضوع جديد لسؤاله الجديد ان لم يستطع التنفيذ فقط من باب المصلحة العامة

يعنى تريد جمع عدد ساعات كل موظف من وقت حضوره الى انصرافه ؟ واللا تقصد جدول ورديات ؟

مشكلة شنو انت طلبت استيراد من ملف الى csv الى جدول اعتقد ان العملية تمت بنجاح اذا بدك شئ تانى فضلا وكرما افتح موضوع جديد كل موضوع يخص سؤال واحد فقط رجاء الاهتمام بقوانين وقواعد المشاركات ليسهل الوصول مستقبلا الى المعلومة

طيب انت تجكى الدالة لا تعمل معك ياللى بالاستعلام سيبك منها خلينى افهم انت ايش بدك تحسبه ايه هى المعطيات ياللى اشتغل عليها فى الحساب منشان نخصل على النتيجة لو تكرمت اطتب لى مثال هنا نظرى منشان اقدر افهم عليك يعنى مثلا من تاريخ 1/1/200 الى تاريخ 5/1/2020 يساوى كم يوم .... المفروض 5

اخى الحبيب اولا رجاء الاهتمام بقواعد وقوانين المشاركات ومنها - اختيار اسم مناسب دال على الموضوع - البحث عن طلبك بالمنتدى قبل الشروع بوضع موضوع علك تجد طلبك وعلى كل حال اليك رابط البحث داخل المنتدى والذى يخص الاقساط https://www.officena.net/ib/search/?q=الأقساط&quick=1&type=forums_topic&nodes=89