ابوخليل

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

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

وعليكم السلام نعم يمكن ذلك ببناء استعلام جديد xx_holidays2.rar

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

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

اين تريد استخدامها دالة تطبق داخل الاستعلام ام تعديل مباشر على الجدول

فضلا حول المرفق الى صيغة mdb

معذرة اخوتي واحبتي الكرام العنوان لا يصف الموضوع يغلق ،،،،،،

تفضل عدل الكود الى هذا Dim i As Integer Dim x As Date DoCmd.GoToRecord , , acFirst x = Forms![test1]![Date_M] For i = 0 To Forms![test1]![no] - 1 Me.date1 = x Me.serial = Forms![test1]![serial] Me.no = i + 1 DoCmd.GoToRecord , , acNext x = DateAdd("d", Forms![test1]![no2], x) Next test14.rar

جرب اضاة السطر التالي If Me.Password_Confirm = [Password] Then DoCmd.Save DoCmd.GoToRecord , , acNewRec Else x = MsgBox("حقل كلمة المرور والتأكيد غير متطابقة", vbOKOnly, " لا يمكن الحفظ") DoCmd.CancelEvent Undo Exit Sub End If

آمين .. ولك بمثل ما دعوت اشهد الله على حبك ابا جودي وكثير احبهم هنا .. وادعوا لهم بظهر الغيب اذا مررت بشيء من اعمالهم او ذكراهم وهذا هو المطلب الحق : دعوات خفيات بظهر الغيب

تفضل test4.rar

تفضل test2.rar

السلام عليكم سبق وان عملت مثل هذا العمل لتجميع الـتأخر خلال فترة محددة ( اسبوع او شهر ) قمت بتحويل التأخر (اليومي) الى دقائق والتعامل معها كرقم عند الجمع ثم ارجاعها وقت الحاجة ( كل هذا داخل الاستعلام )

استدراك وتنويه : هنا موضوع يتحدث عن الفكرة سبقنا الاستاذ محمد عصام مشكورا وارفق فيه مثالا جيدا

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

يمكنك التعديل باستعلام تحديث ولكن انتبه لا بد من وضع المعايير المناسبة لما تريد تحديثه ، لذا من الضروري اخذ نسخة احتياطية بعيدا هذا السطر يحدث حقل السعر price في جميع حقول الجدول tbl1 بزيادة نسبة 15% UPDATE tbl1 SET tbl1.price = [tbl1].[price]+[tbl1].[price]*15/100

وعليكم السلام رأيي : لا تغير شيئا ابدا ، ستدخل البيانات كما كنت تدخلها سابقا ، ولكن اربع مرات ، وفي النهاية ستخرج المجموع والمعدل الضوابط : يجب ان تنشء حقلين جديدين في الجدول الفرعي 1- حقل نصي حجمه 4 وقيمته الافتراضية = year(Date()) 2- حقل رقمي حجمه بايت وفي النموذج تعمل مربع تحرير لادخال القيمة الرقمية من 1 الى 4 التي هي عبارة الربع السنوي في الجدول تجعل الحقلين مفاتيح لمنع التكرار الآن حين تفتح للتحرير ستدرج آليا قيمة حقل السنة = السنة الحالية ، ثم ستختار الربع من مربع التحرير ثم تدخل البيانات النتيجة : لايمكن تحرير اكثر من اربع سجلات لا يمكن تكرار الربع خلال السنة هذا رأيي المتواضع ويمكنك كتابة : للرفع للحصول على اراء اخرى من خبراء هذا المنتدى

بسم الله الرحمن الرحيم احبتي الكرام السلام عليكم ورحمة الله وبركاته وبعد : وجدت لكم دالة تأخذ التاريخ والوقت الدولي من الانترنت ، مع شروحات للاكواد وافية كثير من الاخوة يحتاجون هذه الدالة خاصة الذين يعتمدون على جهاز واحد ، وذلك من اجل سد ثغرات احتمال التلاعب بوقت وتاريخ الجهاز من الشروط وجود خدمة الانترنت ، واعتقد في اليوم الحاضر اصبح من الضروريات التي لا يتصور الاستغناء عنها هذه الدالة جميلة جدا تجلب التاريخ والوقت الدولي مع امكانية مراعاة فارق التوقيت حول العالم الدالة : InternetTime()' التاريخ والوقت في جرينتش InternetTime(3)' في مكة المكرمة InternetTime(2)' في مصر امكانية عمل التنسيقات عليه بالضبط تماما كما نتعامل مع الدالة()Date أو ()NOW فهذا التنسيق يعطينا الوقت في مكة Format(InternetTime(3);"hh:mm:ss AM/PM") وكما تلاحظون ان الارقام التي بين الاقواس تعني فارق الزمن وهذه هي الوحدات النمطية : 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 = "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 وتطبيق المقال بهذا المثال : db2.rar

تفضل. f22up.rar

بل يصلح حول مثالك الى الاصدار 2003 حتى اتمكن من التعديل عليه

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

اذا كان هذا مطلوبك انظر التعديل تم في الاستعلام الفرعي داخل التقرير Print2.rar

هذا الحمار مظلوم دوما من الناس الحقيقة اخونا الكردستاني لا يملك اسلوب ارقى قليلا في الحوار ولا يلام فهو غير متمكن من اللغة العربية قد قلت لكم النقاش مثل هذا حصل كثيرا ولم نحصل على تقييم لا من ميكروسوفت ولا غيرها ارى ان نقف عند هذا الحد معذرة من الجميع XXيغلقXX

لا اعلم سبب عدم عمل التنسيق ولكن هذا التنسيق يعمل حتى لو وضعت عشر مسافات فارغة =Format(Date();"mm yyyy")