ابوخليل

الف مبروك استاذ احمد تستاهل كل خير والى الامام ان شاء الله

الف مبروك ، وفخر لمنتدى اوفيسنا انضمامكما الى مجموعة الخبراء

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

ألف مبروك اخوي سامي على التشريف والتكليف تستاهل اكثر

وجدت لك مثالا في مكتبتي يظهر تاريخ الانترنت في مصر ( مكتبتي تشمل امثلة كثيرة معظمها ليست من عملي) سوف تلاحظ بطء عند تشغيل النموذج وهذا بسبب جلب التاريخ من الموقع المخصص يحتاج لهذا الوقت حسب سرعة الانترنت هذه هي الوحدة النمطية الاصلية .. فقط غيرت رابط الموقع فيها Function InternetTime(Optional GMTDifference As Integer) As Date '----------------------------------------------------------------------------------- 'This function returns the Greenwich Mean Time retrieved from an internet server. 'You can use the optional argument GMTDifference in order to add (or subtract) 'an hour from the GMT time. For Example if you call the function as: '=InternetTIme(2) it will return the (local) hour GMT + 2. Note that the 'GMTDifference variable is an integer number. 'Written by: Christos Samaras 'Date: 25/09/2013 'Last Updated: 20/11/2013 'e-mail: xristos.samaras@gmail.com 'site: http://www.myengineeringworld.net 'Declaring the necessary variables. Dim Request As Object Dim ServerURL As String Dim Results As String Dim NetDate As String Dim NetTime As Date Dim LocalDate As Date Dim LocalTime As Date 'Check if the time difference is within the accepted range. If GMTDifference < -12 Or GMTDifference > 14 Then Exit Function End If 'The server address. ServerURL = "https://www.time.gov/" 'ServerURL = "http://www.timeanddate.com/worldclock/fullscreen.html?n=2" 'Build the XMLHTTP object and check if was created successfully. On Error Resume Next Set Request = CreateObject("Microsoft.XMLHTTP") If Err.Number <> 0 Then Exit Function End If On Error GoTo 0 'Create the request. Request.Open "GET", ServerURL, False, "", "" 'Send the request to the internet server. Request.Send 'Based on the status node result, proceed accordingly. If Request.readyState = 4 Then 'If the request succeed, the following line will return 'something like this: Mon, 30 Sep 2013 18:33:23 GMT. Results = Request.getResponseHeader("date") 'Use the Mid function to get something like: 30 Sep 2013 18:33:23. Results = Mid(Results, 6, Len(Results) - 9) 'Use the Left and Right function to distinguish the date and time. NetDate = Left(Results, Len(Results) - 9) '30 Sep 2013 NetTime = Right(Results, 8) '18:33:23 'Convert the date into a valid Excel date 30 Sep 2013 -> 30/9/2013. 'Required for countries that have some non-Latin characters at their alphabet (Greece, Russia, Serbia etc.). LocalDate = ConvertDate(NetDate) 'Add the hour difference to the retrieved GMT time. LocalTime = NetTime + GMTDifference / 24 'Return the local date and time. InternetTime = LocalDate + LocalTime End If 'Release the XMLHTTP object. Set Request = Nothing End Function Function ConvertDate(strDate As String) As Date '------------------------------------------------------------------------- 'This function converts the input date into a valid Excel date. 'For example the 30 Sep 2013 becomes 30/9/2013. 'Required for countries that have non-Latin characters at their alphabet. 'Written by: Christos Samaras 'Date: 25/09/2013 'e-mail: xristos.samaras@gmail.com 'site: http://www.myengineeringworld.net '------------------------------------------------------------------------- 'Declaring the necessary variables. Dim MyMonth As Integer 'Check the month and convert it to number. Select Case UCase(Mid(strDate, 4, 3)) Case "JAN": MyMonth = 1 Case "FEB": MyMonth = 2 Case "MAR": MyMonth = 3 Case "APR": MyMonth = 4 Case "MAY": MyMonth = 5 Case "JUN": MyMonth = 6 Case "JUL": MyMonth = 7 Case "AUG": MyMonth = 8 Case "SEP": MyMonth = 9 Case "OCT": MyMonth = 10 Case "NOV": MyMonth = 11 Case "DEC": MyMonth = 12 End Select 'Rebuild the date. ConvertDate = DateValue(Right(strDate, 4) & "/" & MyMonth & "/" & Left(strDate, 2)) End Function وهذا هي الاكواد الخاصة بمنادات الدالة في النموذج Private Declare Function InternetGetConnectedState Lib _ "wininet" (ByRef dwflags As Long, ByVal dwReserved As _ Long) As Long Private Sub Form_Load() If InternetGetConnectedState(0, 0) = 1 Then lblResult.Caption = "Connected" Else lblResult.Caption = "Not Connected" End If End Sub وهذا السطر يوضع في مصدر تحكم الحقل .. لاحظ الرقم يتغير حسب المنطقة فلو اردت تطبيق النموذج على السعودية فيجب تغيير الرقم 2 الى الرقم 3 =InternetTime(2) وهذا تنسيق لاظهار الوقت فقط في مصدر تحكم الحقل =Format(InternetTime(2);"hh:nn:ss AM/PM") تاريخ ووقت الانترنت.rar

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

تفضل تم الحل عن طريق التجميع حسب جهة العمل كشف المرتبات2.accdb

استبدل المعيار الموجود في الاستعلام بهذا [Forms]![enter]![frm]![combo1] تحليل2.rar

تفضل .. ابقيت على التقرير الاصلي فقد تكون بحاجة لطباعة اسم محدد وعملت لك زر جديد لطباعة الكل كشوفات نهاية2.rar

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

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

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

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

وهذا تجميع حسب الموظف حساب التأخيرات4.rar

يوجد تقديم وتأخير في الكود الصحيح هكذا : Expr1: ([empsalary]/14400)*DateDiff("n";#07:30:00 AM#;[ADD_start]) حساب التأخيرات3.rar

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

مداخلة جميلة ومعلومة مهمة كبداية : المتبع في معظم الادارات الحكومية والشركات احتساب الشهر عموما 30 يوما عند التصفية او حساب الخدمة ونحو ذلك لو ضربت 30 في 8 في 60 لنتج 14400 دقيقة .. وهذه معادلة ثابتة تطبق سواء اكتمل الشهر او تخلله اجازات .. وهي في صالح العامل انظر هنا في المثال حل مختصر سريع لمبلغ الخصم اليومي .. حسب المعادلة اعلاه Expr1: (14400/[empsalary])*DateDiff("n";#07:30:00 AM#;[ADD_start]) جرب ووافني برأيك حيث يمكن التوسع في المسألة حساب التأخيرات2.accdb

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

تستاهل اكثر يابو احمد

ركز معي ابو حسان اولا ليس لي شأن في ما يظهر من تصفية وبيانات في form1 وانما عملي على تقرير الارصدة والذي يأخذ معاييره من form1 ركز اكثر رعاك الله : عدلت لك على المثال بحيث اعتمدنا (تاريخ الى) لتصفية الحسابات الحالية الآن : 1- استعلام qryRseed2 وهو خاص بالحسابات الحالية اي الحسابات ما بين التاريخين ( من و إلى ) وايضا يفلتر حسب السنة المالية 2- الاستعلام qryRseed1 وهو خاص بالحسابات السابقة اي التي قبل تاريخ من ولا يشتمل على اي معيار .. فقط معيار اظهار ما قبل تاريخ من .. بحيث يجمع جميع الارصدة السابقة على مستوى العملاء 3- استعلام qryRseed يتم فيه ضم الاستعلامين السابقين وهو مصدر بيانات النموذج RSFAll الذي هو التقرير فضلا ادرس الاستعلامات وانظر اين تريد الفلترة هل في الارصدة السابقة ام الارصدة الحالية ، حيث يمكنك نقل المعايير بين الاستعلامين حسب متطلباتك .. وحسب ما ارى ان استعلام الرصيد السابق qryRseed1 يجب الا يحتوي على معايير .... فقط معيار شرط ما قبل التاريخ لان المطلوب فعلا جميع الارصدة السابقة /////// اما استعلام الارصدة الحالية qryRseed2 فهو يحتوي على جميع المعاييير البيانات المالية التي يظهرها التقرير صحيحة بحيث يظهر الارصدة السابقة ويضمها الى الارصدة الحالية . مسألة انك تريد تشغيل الدالة فيمكنك الاستفادة منها في غير هذا التقرير ، ايضا لا تفكر باظهار نتائج اخرى ضمن هذا التقرير او ربطها به الى هنا واعتذر منك ودمت بخير . T6Q .rar

الفلترة ليس فيها تاريخ الى ..... فقط من ..... اي ما قبل من اذا وضعت تاريخ من فقط سيظهر لك كل ما قبل من + مابعد من بالضبط كما في طلبك التاريخ الى ليس فعال سواء كتبته ام لم تكتبه تتغير الارصدة السابقة كلما اخترت حقلا للفلترة مثلا السنة المالية او الحساب او نوع الحساب بالنسبة للسجل الازرق انت اخترت فلترة حسب السنة المالية 2022 وهو في 2019 .. هنا لن يظهر انا فحصت المثال وجربته وتأكدت منه عملته على ثلاث استعلامات واحد يفلتر السابق والثاني يعرض الحالي والثالث يجمع بينهما وهو مصدر بيانات النموذج اذا اردته يظهر كما في الصورة ادناه : فلتر حسب التاريخ ، ومصدر التمويل فقط ايضا انا اوقفت الكود الموجود في حدث السنة المالية الذي يغير التواريخ ، لانه يسبب ربكة فيغير التاريخ من غير ما تشعر فتخرج النتيجة خلاف ما تتوقع اجريت تعديلا بسيطا على معيار مصدر التمويل انظر المرفق T5Q - Copy.rar

تفضل جرب ادخل هذا التاريخ فقط ثم جرب تصفيات اخرى مع التاريخ T4Q - Copy.rar

تمام انتظرني .. سوف اعمله لك بالاستعلام بدون دالات ان شاء الله

انا امام الحاسوب انتظر ردك ايضا عندي بعض الملاحظات : 1- مادام يوجد الرصيد الحالي في الجدول يجب ان يظهر في التقرير بجانب الرصيد السابق ، ولست بحاجة الى عمود (دائن / مدين ) ) 2- نحن بحاجة الى مبالغ وارصدة حالية حتى نتأكد من النتيجة الصحيحة للتقرير

لا لم افهم بحاجة الى زيادة ايضاح اشرح لي من خلال الصورة للعميل الاول 1- الرصيد السابق كم ؟ لو افترضنا اننا نريد ما قبل تاريخ اليوم ملحوظة : الامثلة السابقة كان يوجد في الجدول تاريخ العملية صح