ابو جودي

كل الشـــــــــــــــــــــكر والتقديــــــــــــــــــــر اعتذر للتأخير أستاذى الحبيب جزاكم الله خيـــــرا

السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الكرام اسال الله تعالى لكم الصحة والعافية ممكن سؤالين لكن المضمون واحد من وجهة نظرى لكن لو كنت مخالفا لقواعد المنتدى فبرجاء قبول اعتذراى ان اخطات وتقبولا خطأى بحلم جزاكم الله خيرا فى المرفق التالى بعض البيانات الخاصة بعملى يدور سؤالى حوال الحقل Due_Date وهذا هو تاريخ لمعايرة الجهاز السؤال الاول : كيف يمكن عمل فلتر لكل الاجهزة التى يوافق تاريخ معايرتها للشهر الحالى ؟ مثلا : هناك بعض الاجهزة والتى تنتهى صلاحية استخدامها فى يوم 30/04/2016 اريد فى اول الشهر عند فتح الفورم تغيير لون خلفية التيكست بوكس للحقل Due_Date والذى يوافق شهر 04 للعام الحالى 2016 وذلك لكل الاجهزة السؤال الثانى : هل يمكن طباعة تقرير بالاجهزة التى يستوجب اعادة معايرتها بناء على تاريخ انتهاء صلاحية استخدامها للشهر الحالى او تصدير بياناتها مجمعة الى شيت اكسل او ملف اكروبات طبعا اقصد بالشهر الحالى ليس شهر 04 تحديدا ولكن اقصد كل شهر حالى يتم فيه فتح قاعدة البيانات حاولت استخلاص رقم الشهر الحالى للسنة الحالية اسفل النموذج فى تيكست بوكس باسم cur_date_month وحالوت استخلاص رقم الشهر والسنة الذى يوافق انتهاء صلاحية استخدام جهاز معين فى تيكست بوكس باسم due_date_month وقمت بعمل حدث على النموذج لتغير لون التيكست بوكس Due_Date ولكن لم يأذن الله بالحل ولم اوفق حتى الان بالمحالوة اكثر من مرة واكثر من طريقة واتمنى على الله تعالى ان اجد المساعدة من اساتذتى الكرام فى تلك المعضلة التى تقف امامى اعتذر للاطالة والاثقال عليكم واعتذر لقلة تواجدى تلك الفترة بسبب ظروف عملى ولكن افتقدكم كثيرا كثيرا كثيرا واحبكم فى الله pme.rar

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

اتفضلى يا استاذه ده مثال بسرعه كده مع تعديل المسميات داخل النموذج معلش ظروف عملى تمنعنى من اختزال الاكواد الان ان شاء الله لى عوده عندما تسمح ظروفى ولكن عالبا ليس قبل اسبوع من الان .. ارجو التماس العذر لى تقبلوا تحياتى اخفاء-UP_DATE.rar

لا شكر على واجب تحت امرك

اسم المستخدم يبيتم اختياره من الكمبوبوكس الباسورد : 1

ممكن مرفق القاعدة وبعد كده نكمل لان السؤال مش كامل وحضرتك مش مكمل الفكره الكمبووكس علشان يفلتر يفلتر على ايه هل على كمبوبوكوس اخر ؟ّ هل ليست بوكس ؟!

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

حقا رجال صدقوا ما عاهدوا الله عليه صدقوا الله ورسوله فصدقهم الله نسأل الله السلامة اناس ضحوا بارواحهم من اجل الدين ونحن تهاونا فيه اللهم ارزقنا الهدى والتقى والعفاف والغنى

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

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

السؤال الثانى: هل يمكن عدم تسجبل اكثر من عدد 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

حبيبى ☺

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

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