ابو جودي

السؤال الثانى: هل يمكن عدم تسجبل اكثر من عدد 24 سجل لليوم الواحد ؟

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

الســـــــــــــلام عليكم ورحمة الله تعالى وبركاته اولا انا اول مرة اشارك فى هذا القسم وهذا بسبب جهلى فى الاكسل ولكن اعجبنى العنوان فقررت الدخول من باب حب الاستطلاع ولكـــــــــــــــــــــــــــــــــن Module1 Option Explicit Public IdleTime As Date Private Sub DeleteAllVBA() 'NOTE: The Following Procedures Run Every 5 Seconds, So We Want Execution Time 'To Be As Short A Time As Possible So That They Doesn't Interfere Unduly With Normal 'Workbook Operation, So Delete All Comments, Indenting, And Blank Lines In These 'Three Procedures When Finished. '------------------------------------------------------------------------------------ With ThisWorkbook If Sheet1.[A1] = "123" And .BuiltinDocumentProperties("Comments") = "123" Then 'In This Case Both Passwords Are Entered Correctly, So 'The Timer And The Rest Of This Procedure Are Redundant Run "DisableTimer" Exit Sub Else If .VBProject.Protection = 0 Then 'Unlocked Run "DisableTimer" 'Use Late Binding So No GUID Reference Is Needed Dim Component As Object 'Delete All VBA For Each Component In .VBProject.VBComponents With Component.CodeModule .DeleteLines 1, .CountOfLines End With Next Component 'Save And Close To 'Fix' The Changes .Save MsgBox "Sorry! An Incorrect Password Was Entered - All VBA Code Deleted - Re-enter Password To Check...)" Workbooks.Open (.FullName) '< Open 2nd Instance Of Saved Book .Close '< Close The 1st Instance Else 'Restart The Timer If The Project's Locked Run "StartTimer" End If End If End With Exit Sub End Sub Private Sub StartTimer() 'This Procedure Interferes With Work In The VBE If Accidentally Set Running, 'So We Disable It So The Developer Can Work There Uninterrupted... If Sheet1.[A1] = "123" And ThisWorkbook.BuiltinDocumentProperties("Comments") = "123" Then Exit Sub '<< Set Your Own Idle Time Below >> IdleTime = Now + TimeValue("00:00:05") Application.OnTime IdleTime, "DeleteAllVBA" End Sub Private Sub DisableTimer() On Error Resume Next Application.OnTime EarliestTime:=IdleTime, Procedure:="DeleteAllVBA", Schedule:=False End Sub ThisWorkbook Option Explicit Private Sub Workbook_Open() 'Test To Ensure Access Is Allowed (For 2002 Onward) If Application.Version > 9 Then Dim VisualBasicProject As Object On Error Resume Next Set VisualBasicProject = ActiveWorkbook.VBProject If Not Err.Number = 0 Then MsgBox "Your Current Security Settings Do Not Allow The Code In This Workbook " & vbNewLine & _ " To Work As Designed And You Will Get Some Error Messages." & vbNewLine & vbNewLine & _ "To Allow The Code To Function Correctly And Without Errors You Need" & vbNewLine & _ " To Change Your Security Setting As Follows:" & vbNewLine & vbNewLine & _ " 1. Select Tools - Macro - Security." & vbNewLine & _ " 2. Click The 'Trusted Sources' Tab" & vbNewLine & _ " 3. Place A Checkmark Next To 'Trust Access To Visual Basic Project.'" & vbNewLine & _ " 4. Save - Then Close And Re-open The Workbook", vbCritical End If End If 'Disable The Esc Key And Start Timer Application.EnableCancelKey = xlDisabled Run "StartTimer" End Sub 'All Subs And Event Procedures Should Have Run "DisableTimer" At The Head 'Of The Code And Run "StartTimer" At The End As Per The Examples Below. Private Sub Workbook_SheetCalculate(ByVal Sh As Object) Run "DisableTimer" Run "StartTimer" End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Run "DisableTimer" Run "StartTimer" End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range) Run "DisableTimer" Run "StartTimer" End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Run "DisableTimer" Run "StartTimer" End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Run "DisableTimer" End Sub

حبيبـــــــــــى

كل الشكر والتقدير والامتنان اخى الحبيب تحياتى

السلام عليكم ورحمة الله تعالى وبركاته قاعدة البيانات المرفقة لست انا من قام بتصميمها ... هذا اولا للامانة ولا اعرف صاحبها حتى اوفيه حقه وانسب عمله اليه على كل حال اسال الله تعالى ان يغفر لى وله ولكل المسلمين كنت احاول عمل قاعدة بيانات لحجز مواعيد لاحد اصدقائى وهو طبيب علاج تأهيلى "علاج طبيعى" وبعد المحاولة المضنية والبحث وجدت تلك القاعدة وحاولت التعديل عليها بما يلائم ويناسب متطلبات العمل طبعا المستشفى يعمل على مدار اليوم 24 ساعة لكل عميل "مريض" ولا احي استخدام كلمة مريض شفى الله الجميع ان شاء الله لكل عميل وقت محدد لعمل الجلسة الخاصة به مدة الجلسة ساعة ويختلف الثمن لذلك قمت بعمل - جدول tblHour وقمت بتحديد ساعات اليوم وثمن كل ساعة - جدول tbl_customers تتم فيه تسجيل بيانات العميل - وقت الجلسة "البداية بالساعة" تاريخ الجلسة "الميعاد المحدد بالتاريخ" وثمن تلك الجلسة وباقى البيانات هذه هى القاعدة التى توصلت اليها السؤال الاول : فى الفورم frmCalendar_Large تظهر كل ايام الشهر وعند الضغط على اليوم المطلوب تحديد وتسجيل ميعاد جلسه فيه يتم النقل الى الفورم abd1 هل يمكن معرفة الساعات المتاحه للحجز بسهوله ليوم محدد قبل ادخال البيانات يعنى مثلا اليوم السبت تم حجز الساعات الاتية 01:00 ص 02:00 ص 03:00 م اريد عند فتح الفورم abd1 لاضافة مواعيد جديده ان يكون مثلا LisBox تظهر فيه المواعيد المتاحة للحجز فقط هل يمكن تحقيق ذلك ؟! حجز مواعيد.rar

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

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

استاذى الحبيب رمهان جزاكم الله خيرا اسال الله تعالى ان يرزقكم الهدى والتقى والعفاف والغنى كما اسأله ان يرزقكم لذة النظر الى وجهه الكريم ويدخلكم الجنة بسلام مع من تحبون فى صحبة النبيين وان يشفعكم فيمن تحبون بارك الله لك فى عمرك وعلمك وعملك وولدك وغفر الله لك ولوالديك ولكل المسلمين امين امين امين - العلاقات وهى محور الجدل سأتطرق للنقاش الى تلك النقطة بعد الانتهاء من أخذ الاراء والمشورة من اساتذتنا الكرام فى الجداول وكذلك اخوانى - بخصوص جدول الغياب : تم التعديل كما اشرتم وذلك كان نفس راى استاذى الحبيب ابوخليل والان انا لى سؤال هام الجدول الخاص بالاجازات كذلك هل احذف منه الحقول المحسوبه ام اتركها ؟! ايهما افضل مع العلم والاخذ فى الاعتبار ان باقى الرصيد من الاجازات الاعتيادى يرحل عند انتهاء العام ويضاف الى الرصيد وتتم هذه العملية كل 3 سنوات بشرط ان يكون الموظف حصل على عدد 6 ايام متصلين والا لن يرحل اى رصيد ويضيع عليه تلك الايام يعنى مثلا رصيد الاعتيادى 21 يوم استخدم احد الموظفين 10 ايام ومنهم 6 ايام متصلين فى هذه الحالة يضف 11 يوم الى رصيد العام الجديد فيصبح رصيد الموظف 21 + 11 = 32 يوم السؤال الثانى لو عندى اكثر من نوع من انواع الاجازات هل يتم عمل جدول لكل نوع تسجل فيه اجاازت الموظف ام نكتفى بجدول واحد فقط ويسجل فيه كل اجازات الموظف ويحتسب رصيد كل نوع على حده للعلم هناك اشكالية اخرى فى الاجازات قد يستفذ احد الموظفين رصيد اجازاته وقد يسمح له بموجب موافقة مسبقة من الادارة على احتساب ايام السهر او ايام العمل فى العطلات الى اجازات بدل ان تحتسب فى الاجر الشرط عدد 3 سهرات اى تلات ايام استمرار فى العمل بعد المواعيد الرسمية = يوم مقابل اى يوم عطلة اسبوعية او رسمية = يوم

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

بعد اذن اخى الحبيب كرار صبري _ أبو جنى جرب هذا الحل ووافنى بالنتيجة يا استاذ Hadi22 Database5_update.rar

حبيبى ☺

جعلكم الله سابقون للخيرات وجعل كل اعمالكم خالصة لوجهه الكريم ان شاء الله اخى الحبيب أبو جنى

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

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

جزاكم الله خيرا

هذا المرفق بعد التعديل Emp_Database_UP-004.rar

ممكن المرفق لو تكرمت

تم تعديل الجدول tbl_Absent كما تفضلتم الجداول التى تم اضافتها - tbl_Attendance_of_time جدول يحدد فيه مواعيد الحضور والانصراف الرسمية للمؤسسة - tbl_Emp_Attendance جدول الحضور والانصراف للموظفين - tbl_Emp_Call_to_work جدول استدعاء الموظفين للعمل فى ايام العطل - tbl_Emp_Continuing_to_work جدول المستمربن بالعمل بعد مواعيد العمل الرسمية كل الشكـــــــر والتقديـــــــــــــــر لكل اساتذتــــــى الكـــــــــــــــــــــــرام تم تعديل الجدول tbl_Absent كما تفضلتم الجداول التى تم اضافتها - tbl_Attendance_of_time جدول يحدد فيه مواعيد الحضور والانصراف الرسمية للمؤسسة - tbl_Emp_Attendance جدول الحضور والانصراف للموظفين - tbl_Emp_Call_to_work جدول استدعاء الموظفين للعمل فى ايام العطل - tbl_Emp_Continuing_to_work جدول المستمربن بالعمل بعد مواعيد العمل الرسمية

جزاكم الله خيــــــــ"اســـــــــابوخليلـــــــــــاذ"ـــــــــرا تم تطبيق ما تفضلتم به Emp_Database_UP-003.rar

جزاكم الله خيــــــــ"اســـــــــابوخليلـــــــــــاذ"ـــــــــرا تم تطبيق ما تفضلتم به Emp_Database_UP-002.rar

جزاكم الله خيــــــــ"اســـــــــابوخليلـــــــــــاذ"ـــــــــرا تم تطبيق ما تفضلتم به Emp_Database_UP-001.rar

وهذا الكود ناتج عن التطبيق بناء على خطوات الاستاذ " رمهان " '------------------------------------------------------------ ' ماكرو1 ' '------------------------------------------------------------ Function ماكرو1() On Error GoTo ماكرو1_Err DoCmd.OpenForm "fm1", acNormal, "", "", , acNormal ماكرو1_Exit: Exit Function ماكرو1_Err: MsgBox Error$ Resume ماكرو1_Exit End Function طبعا تم التطبيق على المرفق الموجود فى المشاركة

طيب ممكن من فضلكم نوسع دائرة النقاش خطوة خطوة حتى لا يفقد طلاب العلم البسطاء تركيزهم وتتشتت افكارهم اولا على هذا الوضع للقاعدة المرفقة الجداول الخدمية والرئيسية قمت بعملها ماعدا جدول المواظبة وجدول الاستدعاءات للعمل فى الاوقات الغير رسمية تقريبا اريد من فضلكم ان تتسع صدوركم لى وتتحملوا جهلى وفضلا ليس امرا اتمنى تضييق دائرة النقاش حتى لا تتسع فى نقاش خطوه متقدمة فى أوقات غير وقت مناقشتها النقاط المطروحة للنقاش فى تلك الفترة هى الجداول ومسمياتها والحقول بداخلها - هل تلك الجداول باسمائها وكذلك الحقول داخل تلك الجداول بأسمائها كذلك عليها تعقيب - قمت بالغاء كل العلاقات بين الجداول التى قد قمت بوضعها فى المرفق الاول بناء على ما تفضلتم به ولكن لا أعلم كيف ستسير الأمور بدون هذه العلاقات ولكن لن استبق النقاش وأتطرق الى هذه الخطوة - هل هناك حقول لم اقم بإضافتها وكان من المفروض اضافتها - هل هناك حقول اضافتها لا فائدة منها فى الجداول - الجداول التى تنقص تلك القاعده حتى يكتمل النظام ليكون هناك تناغم حقيقى ما هى ؟ وما هى الحقول التى تنبغى ان تكون موجوده بها ؟! اعتذر اساتذتى ولكن عهدت منكم النزول الى مستوى اقل فهم طالب علم ولن تجدوا اقل من هذا المستوى عندى فتحملونى بحلم وصححوا لى خطأى بعلم جزاكم الله تعالى عنى وعن كل اخوانى خيرا Emp_Database.rar

هديــة قيمة لكل إخوانى الكرام فى هذا الصرح الشامخ إضغط هنا لتري الهدية