Foksh

سيكون هنا حاجة لإضافة شرط تحققي من تاريخ السجل بما أنه سيجلب أكبر سجل ( مفتاح الجدول ) المقرون برقم الموظف طبعاً . فإحتمالية تسجيل الحضور الأخير لم يتبعه تسجيل إنصراف !!!! وبالتالي سيكون الشرط هو البحث عن آخر جلسة غير مكتملة ( دون إنصراف ) . وهذا ما تسائلتم به في نهاية مشاركتكم ,, ولكن قد يكون هناك فكرة لتحديد حد زمني محدد للجلسة ( مثلاً 12 ساعة عمل ) . أي أن الجلسة التي تتجاوز هذا الحد تغلق تلقائياً في نهاية اليوم ، وذلك يمكن من خلال إضافة حقل Auto_Closed ، للتمييز بين الجلسات المغلقة يدوياً وتلك المغلقة آلياً . أو كفكرة ثانية وقد تكون غير مرجحة ، وهي انه عند تسجيل حضور جديد وتم الكشف عن جلسة مفتوحة لم يتم اغلاقها مدتها أكبر من 24 ساعة على سبيل المثال ، يتم اغلاقها تلقائياً قبل فتح سجل جلسة جديدة !!!! صدقاً .. قد جاء ردي دون قراءة ردكم 😯

تفضل محاولتي البسيطة ,, laj.zip

وعليكم السلام ورحمة الله وبركاته ,, بنظري وما أعتقده أن الفكرة الثانية أفضل ، حيث أنه يتوافق تماماً مع طلبك ( توقيعات مفتوحة ومتعددة ) .. ولضبط فكرة أن كل حضور سيتبعه انصراف ، فقد نحتاج لحقل يكون بمثابة بصمة رقمية أو نصي ( حسب نمط البصمة أو الجلسة على اعتبار ان كل حضور وانصراف = جلسة ) . والهدف منه هو ربط كل توقيع حضور مع توقيع الانصراف المقابل له بشكل منظم . وكتصور للفكرة .. سأفترض أننا أضفنا حقلاً نصياً اسمه على سبيل المثال = SessionID ؛ وستكون قيمته فرضاً وليس حصراً ( EmployeeID_Date_SequenceNumber ) . وأيضاً كنوع من تحديد الحركة ، سنضيف حقل ActionType = نصي ، مهمته ستكون تحديد نوع الحركة ( CheckIn / CheckOut ) لنفترض أن الموظف E123 يريد تسجيل حضور اليوم = 21-6-2025 ، هذا يعني ان قيمة الحقل ستكون = E123_20250621_1 . والقيمة للحقل ActionType = CheckIn . الآن عند تسجيل الإنصراف ستكون الحركة التالية = E123_20250621_1 . والقيمة للحقل ActionType = CheckOut . وهنا ستكون البصمة أو الجلسة مرتبطة بالرقم E123_20250621_1 لها حركتين ( CheckIn / CheckOut ) . اعلم أن الفكرة كتصور قد تكون غير واضحة بشكل كافي ، ولكن برأيي ستمكنك هذه الفكرة من سهولة تتبع كل بصمة أو جلسة ( حضور / انصراف ) لأي موظف . أضف إلى ذلك أنك تستطيع هنا ضبط وحساب دقيق لساعات العمل لكل جلسة لكل موظف . وأيضاً كنوع من ضبط وكشف الجلسات المفتوحة ( التي تم فيها تسجيل حضور بدون انصراف ) . وقد تتوسع الفكرة بشكل كبير حسب الإمكانيات المتاحة والمتطلبات 😅 . ولكني سأقتصر على ما ذكرته سابقاً .

هذا اعلان حرب 🤣

بدايةً ، حمد لله على سلامتكم .. فعلاً كانت لي تجربة مع ويندوز 11 حيث تشجعت وبكامل إرادتي قمت بعمل فورمات للويندوز 10 السابق وبتنصيب ويندوز 11 بتحديثات شهر 1/2025 ، وبالفعل .. تم التثبيت وتثبيت التعريفات التي لم يتمكن من تعريفها ، وتثبيت وتنصيب برامجي الخاصة قبل أي برامج أخرى مثل الأوفيس والفوتوشوب .... وغيرها من مستلزماتي طبعاً هذا الحديث كان تقريباً الساعة 1 بعد منتصف الليل ، وما أن كان أذان الفجر قد اقترب حتى كنت عائداً الى الويندوز 10 ... طبعاً السبب كان هو بعض المشاكل التي ظهرت في اوفيس 2016 وخصوصاً آكسيس وتحديداً بعد خصائص الكومبوبوكس في بعض المشاريع أصبحت لا تعمل .. فتجاهلت التحديث طبعاً وعدت دياري كما فعلتم فعلاً يا أخي حسيت حالي غريب

بارك الله فيك أستاذي الكريم ، ونسأل الله لكم التوفيق والنجاح

أستاذ سامي ، الجميل هو مرورك وتعليقك الذي أسعدني

وبما أنني أرجح فكرة معلمي الفاضل @ابوخليل !! لهذا السبب هو كل ما عليك فعله استخدام الكود التالي في جزء التفاصيل في حدث عند التنسيق :- Static prevDate As Variant If Me.exDate = prevDate Then Me.تسمية50.Visible = False Me.تسمية55.Visible = False Else Me.تسمية50.Visible = True Me.تسمية55.Visible = True prevDate = Me.exDate End If وستكون النتيجة بهذا الشكل :- 💥 أيضاً تستطيع تنفيذ نفس الفكرة السابقة ، بدون أي أكواد ، من خلال :- تحديد مربعات النص التي لا تريد أن لا يتم عرضها مكررة . الذهاب الى التبويب Format = تنسيق . تفعيل لمنع التكرار من الظهور .

الله يبارك فيك أخي الكريم @saffar ، أشكرك على التهنئة تأكد من صحة الملف ، لأنه كلما فتحته يتم تجميد اكسيس ولا يقبل اي تعديل الا بالخروج من آكسيس

وعليكم السلام ورحمة الله وبركاته ,, أخي الكريم ، أنت ما شاء الله 03 عضو مميز ، وتعلم أنه عليك ارفاق ملف !!!! وإلا فإنك وللأسف ستبقى في متاهة أن الحلول المقدمة لا تلبي مطلبك ..

قد يحدث في بعض الإصدارات من ويتدوز 10 / 11 ، أن التحديثات قد تؤثر على اكسيس . خاصةً إذا كنت يا صديقي تستخدم إصدارات قديمة أو تعتمد على اتصالات خارجية مثل ODBC . ومن الأفضل لتجنب هذه المشاكل المحدودة الى حد ما :- متابعة تحديثات أوفيس بشكل دوري ( وهو النقطة المنطقية ) . أو إنك تأجل تحديثات الويندوز إذا كانت تسبب مشاكل متكررة ( وهذه النقطة لا أشجع بها ) 😅

الله يبارك فيك أخي محمد ، ونسأل الله لكم الصحة والعافية

جرب هذه المحاولة .. Data125.zip تركت التنسيق لك طبعاً 😅 Data125.zip

طيب ، الآن في التقرير يبدو انك قد استعنت عناصر تسمية ليبل !!! هل هي ثابتة أم هو مثال لما تريده ؟؟؟؟؟؟؟

وعليكم السلام ورحمة الله وبركاته ,,, سؤال سريع ، يوجد فترتين ( أولى و ثانية ) صحيح ؟؟ اشرح لنا موضوع الفترتين ..

وعليكم السلام ورحمة الله وبركاته 🤗.. جرب هذا التعديل أخي الكريم :- Private Sub Workbook_Open() Dim filePath As String ' المسار الكامل للملف filePath = "C:\Program Files\new\officeteam.txt" ' تحقق من وجود الملف If Dir(filePath) = "" Then MsgBox "ليس لديك الاذن في الاستخدام, يرجى التواصل مع مالك النظام . تنبيه.", vbCritical ThisWorkbook.Close SaveChanges:=False End If End Sub المشكلة أن الكود الذي كتبته يحتوي على خطأ في طريقة تحديد المسار ، حيث إنك قمت بدمج filePath مع requiredFile مرتين .

أخي الكريم ، هل الملف يعمل معك بشكل سليم أولاً ؟؟؟ فعادة تطبيق واتس اب يغير في طريقة الربط والارسال في تحديثاته على حد علمي . فهل قمت بتجربة الفكرة أولاً ؟؟؟؟ طبعاً الخلل ليس في الفكرة وطريقة التنفيذ ، وإنما كما أخبرتك هي في تحديثات شركة Meta ( و Whatsapp أحد منتجاتها حالياً )

تفضل :- القاعدة 2.zip

أسعدك الله وبارك الله بك ، وهنأك بعلمه الذي علمك إياه .. وأتمنى لك المزيد من التوفيق والتألق بأعمالك المميزة التي نريد رؤيتها قريباً شكراً لك

وإياكم أستاذنا الكبير ، ونسأل الله أن نكون عند حسن ظنهم . وأن نتعلم من علمكم الذي وهبكم الله إياه . الله يبارك فيك أخي الحبيب .. نتمنى أن نراكم بجانبنا يوماً ما حبيبي مهندس عمر .. الله يبارك فيك ، ونتمنى لكم المضي بجانبنا

عايز تلعب يعني هههههههه وببدلتي الحمرا 😎 دي لسه جديدة ✌ هروح هناك وأشوف وصلت لفين . أحسن انت خلااااااص بجد وصلت لاخر السكة 🤣 ودي مش صعبة ولا مستحيلة أكيد .. لما يبقى عندنا جدول ونحط فيه كمية الأحداث اللي عايزينها من خلال تحديد اسم النموذج واسم العنصر وهل تم تفعيل الحدث بتاعة ولا لأ ....وكثير امور قابلة للتوسع

حبيبي زياد ربي يسعدك .. شكراً لك على تهنئتك

هههه ، انا لو كنت عاوز أفتح الباب للفضول أكتر ، كان اقترحت الفكرة دي مثلاً :- Private Sub Form_Load() On Error Resume Next Me.Alborg.Visible = (Time() <= #3:00:00 PM#) On Error GoTo 0 End Sub أما لو عاوز نفتحها بحري ونتوسع في الحديث ، فممكن نعمل الآتي :- في مديول لوحده كده بدون ما حد يزعجه :- Option Compare Database Option Explicit Public Enum ControlVisibility visible = 0 Hidden = 1 ErrorState = 2 End Enum Public Enum EventType Information = 0 Warning = 1 [Error] = 2 End Enum Public Function ShouldShowControl(Optional targetTime As Date = #3:00:00 PM#) As Boolean ShouldShowControl = (Time() < targetTime) End Function Public Function SetControlVisibility(frm As Form, ctlName As String, _ Optional targetTime As Date = #3:00:00 PM#) As ControlVisibility On Error GoTo ErrorHandler Dim ctl As Control Set ctl = frm.Controls(ctlName) If ctl Is Nothing Then SetControlVisibility = ErrorState Exit Function End If Dim visible As Boolean visible = ShouldShowControl(targetTime) ctl.visible = visible SetControlVisibility = IIf(visible, visible, Hidden) Exit Function ErrorHandler: LogEvent "Error setting visibility for " & ctlName, EventType.Error SetControlVisibility = ErrorState End Function Public Sub LogEvent(message As String, Optional msgType As EventType = EventType.Information) #If DEBUG_MODE Then Debug.Print Format(Now, "yyyy-mm-dd hh:mm:ss") & " [TimeBasedControl] " & _ Choose(msgType + 1, "INFO", "WARN", "ERR") & ": " & message #End If End Sub طبعاً هنقدر نستدعي الفكرة دي بشكل متعدد لأكثر من وقت وأكتر من هدف 😋 :- 1️⃣ الطريقة البسيطة الأولى :- Private Sub Form_Load() UpdateControlVisibility #7:00:00 PM# End Sub Private Sub Form_Timer() Static lastUpdate As Date If Now > lastUpdate + TimeSerial(0, 0, 30) Then UpdateControlVisibility #7:00:00 PM# 'هنا طبعاً الوقت اللي عايزه lastUpdate = Now End If End Sub Private Sub UpdateControlVisibility(targetTime As Date) Dim result As ControlVisibility result = SetControlVisibility(Me, "SendBtn1", targetTime) 'باللي انت عايزه SendBtn1 بدل اسم الزر If result = ErrorState Then MsgBox "فشل تحديث العنصر", vbExclamation + vbMsgBoxRight, "" End If End Sub 2️⃣ الطريقة الثانية :- Private mTargetTime As Date Private Sub Form_Load() mTargetTime = #8:45:00 PM# UpdateTimeDisplay UpdateControlVisibility End Sub Private Sub cmdSetTime_Click() Dim newTime As String newTime = InputBox("أدخل الوقت المطلوب (HH:MM:SS AM/PM)", "تعيين الوقت", Format(mTargetTime, "hh:mm:ss AM/PM")) If newTime <> "" Then If IsDate(newTime) Then mTargetTime = CDate(newTime) UpdateTimeDisplay UpdateControlVisibility Else MsgBox "تنسيق الوقت غير صالح", vbExclamation + vbMsgBoxRight, "خطأ" End If End If End Sub Private Sub UpdateTimeDisplay() lblCurrentTime.Caption = "الوقت الحالي: " & Format(Time, "hh:mm:ss AM/PM") & vbCrLf & _ "الوقت المستهدف: " & Format(mTargetTime, "hh:mm:ss AM/PM") End Sub Private Sub Form_Timer() Static lastUpdate As Date If Now > lastUpdate + TimeSerial(0, 0, 1) Then btnEvening.SetFocus UpdateTimeDisplay UpdateControlVisibility lastUpdate = Now End If End Sub Private Sub UpdateControlVisibility() Dim result As ControlVisibility result = SetControlVisibility(Me, "SendBtn1", mTargetTime) If result = ErrorState Then LogEvent "فشل تحديث عنصر التحكم", EventType.Error End If End Sub 3️⃣ الطريقة الثالثة ، وسأكتفي بدون ما نتوسع أكتر من كده 😅 :- Private Type ControlTimeSettings ControlName As String ShowBeforeTime As Date ShowAfterTime As Date End Type Private mControlSettings() As ControlTimeSettings Private Sub Form_Load() ReDim mControlSettings(2) With mControlSettings(0) .ControlName = "btnMorning" .ShowBeforeTime = #12:00:00 PM# .ShowAfterTime = #12:00:00 AM# End With With mControlSettings(1) .ControlName = "btnAfternoon" .ShowBeforeTime = #6:00:00 PM# .ShowAfterTime = #12:00:00 PM# End With With mControlSettings(2) .ControlName = "btnEvening" .ShowBeforeTime = #11:59:59 PM# .ShowAfterTime = #6:00:00 PM# End With UpdateControlsVisibility End Sub Private Sub Form_Timer() Static lastUpdate As Date If Now > lastUpdate + TimeSerial(0, 0, 30) Then UpdateControlsVisibility lastUpdate = Now End If End Sub Private Sub UpdateControlsVisibility() Dim i As Integer Dim currentTime As Date Dim shouldBeVisible As Boolean Dim result As ControlVisibility currentTime = Time() For i = LBound(mControlSettings) To UBound(mControlSettings) With mControlSettings(i) If .ShowAfterTime < .ShowBeforeTime Then shouldBeVisible = (currentTime >= .ShowAfterTime And currentTime < .ShowBeforeTime) Else shouldBeVisible = (currentTime >= .ShowAfterTime Or currentTime < .ShowBeforeTime) End If result = SetControlVisibility(Me, .ControlName, IIf(shouldBeVisible, #12:00:00 AM#, #11:59:59 PM#)) If result = ErrorState Then LogEvent "فشل تحديث عنصر التحكم: " & .ControlName, EventType.Error End If End With Next i End Sub Control Visibility.accdb

حبيبي حبيبي .. ربنا يبارك فيك ممتن لكل من هنأني ، وأسأل الله أن يجعل هذه الترقية دافعاً لبذل المزيد ، وأن نكون جميعاً عوناً لبعضنا في سبيل العلم والمعرفة

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