نجوم المشاركات

استاذى ومعلمى / ابو بسمله جزاه الله كل خير هب ان لديك موظف قام باجازة من تاريخ 01 /10/ 2022 الى تاريخ 05/ 10 /2022 وفى يوم 4 او 05/ 10 /2022 طلب اثناء اجازته تمديد اجازته الى تاريخ 08/ 10 /2022 فحسب فكرة الاستاذ ابولو بان تكون الاجازة من تاريخ 01/ 10/ 2022 الى تاريخ 08/ 10/ 2022 فكيف لى كشئون موظفين ان اعرف ان هذا الموظف طلب اجازة فسجلت وطلب مرة تمديد اى ان الاجازة ليست عادية بل اجازة قد مددت اى ان تاريخ نهاية الاجازة سجلت مرتين فنعرف ان اجازة من تاريخ الى تاريخ ومددت الى تاريخ اى ان هذا الموظف حصل على اجازتين فى وقت لاحق وحسب الائحة الداخلية المعمول بها داخل الشركة الو المؤسسة جزاك الله خير ابو بسملة وجعله فى ميزان الحسنات

وعليكم السلا م ورحمة الله وبركاته ..تفضل جرب المرفق بحث برقم الجلوس.xlsm

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

طيب ... جرب الملف ..... Bar11.mdb

السلام عليكم ورحمه الله وبركاته هدية لأعضاء المنتدى الكرام برنامج أرشفة الخطابات و الوثائق .. الأرشفة الالكترونية مفتوح للعمل عليه غير محدد المدة ومش تجريبي مغلق المصدر (الاكواد) وتعديل النماذج تحياتي user 1234 1118021174_Archivesopen18-1-2021.rar

السلام عليكم اخواني كما وعدتكم ان اقوم بعمل فيديو عن تحويل قاعدة البيانات الى sql server ومشاركتها على النت طبعا المرفقات في الفيديو لم ادرجها بعد لضيق الوقت واي سؤال استطيع ان اجاوبه فلن ابخل به رابط الفيديو الفيديو قيد التحميل يرجى الانتظار قليلا لتحمله على اليوتيوب

تفضل فاتورة بيع.rar

شكرا لك استاذ / ابولو وجزاك كل خير الآن توجد حياة لمن ينادى

حياك الله استاذي العزيز AlwaZeeR هذا هو المطلوب بارك الله فيك ورحم والديك ورزقك الجنه . امين يارب العالمين تقبل اجمل تحية

@عبدالفتاح في بي اكسيل نعم استادنا الفاضل الفكرة في تعديل البرنامج لهده الدرجة هو توفير امكانية البحث للسائل بجميع الطرق الممكنة حيث يمكنه اظهار بيانات الفواتير المستحقة اليوم والمتاخرة عن ميعادها وايضا الفواتير التي لم يبلغ تاريخ استحقاقها رغم انه لم يتم طلبها . الا انني فكرت في تطوير برنامجه فقط

لهذا انا طلبت ان يكون هناك اضافة حقل جديد يسمى بانواع الاجازة ( اجازة عادية ـ تمديد ـ قطع اجازة ـ عدم اكتمال الاجازة)

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

@صياد الجراح اعتقدت لقد حصلت على اجابة بناء على منشورك #7 ولكن يبدو انه تم تصميم برنامج يختلف عن منشورك الاصلي . هذا تعديل ابسط مما تتصور وتستطيع فهم كودك بتعديلات بسيطة . Private Sub CommandButton2_Click() Dim ls As Integer Dim ss As Integer, EDt As Date With Me.ListBox1 .ColumnCount = 5 .ColumnWidths = "103;103;103;103;103" .TextAlign = fmTextAlignCenter End With ls = Sheet1.Range("D" & Rows.Count).End(xlUp).Row Me.ListBox1.Clear 'convert text to date EDt = CDate(Me.TextBox1.Text) With Sheet1 For ss = 2 To ls If .Cells(ss, "d") <= EDt Then Me.ListBox1.AddItem .Cells(ss, 1) Me.ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(ss, "b") Me.ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(ss, "c") Me.ListBox1.List(ListBox1.ListCount - 1, 3) = Format(.Cells(ss, "d"), "mm/dd/yyyy") Me.ListBox1.List(ListBox1.ListCount - 1, 4) = .Cells(ss, "e") End If Next ss End With End Sub

واتفضل التعديل ده قمت بعمل استعلام اخر للفرز على اكبر تاريخ النهايه وربط بينهم استعلام الاجازات الحالية كود الموظف emp_name رقم القرار تاريخ القرار نوع الاجازة تاريخ البداية تاريخ النهاية سريان الاجازة 352 وليد محمد سليمان عبد الله 2452 04/04/2022 للعمل بالخارج 08/04/2022 22/10/2022 سارية 161 دعاء محمد عطيه مراجع 7037 28/10/2021 مرافقة زوج 02/11/2021 01/11/2022 سارية 62 عباس معوض طه معوض 8123 29/11/2021 رعاية زوجة 08/12/2021 07/12/2022 سارية 129 هويدا صلاح عبد الله احمد 9198 28/12/2021 رعاية اسرة 12/12/2021 11/12/2022 سارية 329 محمد يحي عبد الحليم عبد الحليم 9197 21/12/2021 رعاية الوالدة 04/02/2022 03/02/2023 سارية 359 علاء الدين احمد محمد عبد الجيد 2136 23/03/2022 للعمل بالخارج 23/02/2022 22/02/2023 سارية 226 امجد رمضان سلومه محمد 1789 09/03/2022 للعمل بالخارج 03/03/2022 02/03/2023 سارية 168 مروه علي محمد علي نصر 2158 20/09/2022 رعاية طفل 01/04/2022 31/03/2023 سارية 331 سامح عبد الفتاح سيد سعيد 5142 04/08/2022 رعاية والدة 01/08/2022 31/07/2023 سارية 188 ناصر كمال حسين حسن 4678 18/07/2022 للعمل بالخارج 01/08/2022 31/07/2023 سارية 200 صلاح محمد احمد عبد اللطيف 8688 01/12/2020 للعمل بالخارج 20/12/2022 19/12/2023 سارية بالتوفيق سجل المحضرين - Copy.accdb

استاذ @ABOLO2 الظاهر انك لم تركز فى كلامى سوف اعيده لك بشكل اوضح من ناتج الاستعلام بتاعك استعلام الاجازات الحالية كود الموظف emp_name رقم القرار تاريخ القرار نوع الاجازة تاريخ البداية تاريخ النهاية سريان الاجازة 200 صلاح محمد احمد عبد اللطيف 8825 19/12/2021 للعمل بالخارج 20/12/2021 19/12/2022 سارية 200 صلاح محمد احمد عبد اللطيف 8688 01/12/2020 للعمل بالخارج 20/12/2022 19/12/2023 سارية الاستاذ صلاح له سجلين فى الاستعلام والمطلوب اظهار رقم القرار 8688 اللى سوف يبتدى فى 20/12/2022 وينتهى فى 19/12/2023 ازاى بقى تاريخ القرار بتاع السجل ده فى سنه 2020 وهو احدث قرار للموظف والقرار الاخر فى سنه 2021 لعل كلامى يكون واضح الان بان السجلات غير منطقيه للعمل عليها جزاك الله خيرا دكتور محمد عالمتابعه والرد على استفسارى طيب فى هذه الحاله ما هو الاجراء المتبع يدويا ؟ هل يتم اضافه سجل فالدفتر للموظف ويشار اليه تمديد ام يتم تحديث نهايه الاجازه بناء على طلب التمديد ؟

السلام عليكم ورحمه الله وبركاته مشاركه مع اخوتى واساتذتى جزاهم الله عنا كل خير ماهو وجه الخطوره دكتور محمد فانت ادرى بذلك فافدنا بالمعلومه لنتعلم وجزاك الله خيرا استاذ @ABOLO2 حاولت العمل على مثالك ولكن البيانات الموجوده غير منطقيه للعمل عليها وقمت باختيار هذا الموظف لانه هو المكرر لديك بالاستعلام بالنظر للبيانات كود الاجازه مرتب ولكن مقابله تاريخ البدايه غير مرتب فكيف ستقوم بعمل الفرز واظهار البيانات استعلام1 كود الاجازة emp_code emp_name رقم القرار VacationDecisionYear تاريخ القرار نوع الاجازة تاريخ البداية 30 200 صلاح محمد احمد عبد اللطيف 8825 19/12/2021 للعمل بالخارج 20/12/2021 50 200 صلاح محمد احمد عبد اللطيف 10920 02/12/2018 للعمل بالخارج 20/12/2018 93 200 صلاح محمد احمد عبد اللطيف 1821 27/02/2017 للعمل بالخارج 18/02/2017 247 200 صلاح محمد احمد عبد اللطيف 859 23/01/2018 للعمل بالخارج 18/02/2018 248 200 صلاح محمد احمد عبد اللطيف 9228 24/01/2019 للعمل بالخارج 20/12/2019 249 200 صلاح محمد احمد عبد اللطيف 8688 01/12/2020 للعمل بالخارج 20/12/2022 250 200 صلاح محمد احمد عبد اللطيف 113 05/01/2016 للعمل بالخارج 18/02/2016 251 200 صلاح محمد احمد عبد اللطيف 1078 09/02/2015 للعمل بالداخل 18/02/2015 252 200 صلاح محمد احمد عبد اللطيف 2322 24/02/2014 للعمل بالداخل 18/02/2014 بالتوفيق

جزاك الله خير الجزاء وزادك الله علما استاذي كلماتك كانت اكبر مساعدة لي 💙💙 سأتواصل معك بإذن الله تعالى

وعليكم السلام لا يمكن استخدام معادلة VLOOKUP لطلبك, وذلك لعدم تنظيمك لجدول البيانات وعدم جعلك لإسم الشركة بعمود يسبق رقم الفاتورة وليس العكس ..ملحوظة :لابد من تطابق اسم الصفحة للإسم الموجود بالصفحة التى سيتم البحث بها ولكن يمكنك استخدام المعادلة التالية : =IFERROR(LOOKUP($C3,INDIRECT("'"&H$1&"'!$I$6:$I$61"),INDIRECT("'"&H$1&"'!$b$6:$B$61")),"") INVOICE COLLECT. TEST1.xlsx

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

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

ممكن مثال للجدول ... وماهي البيانات التي تريد ظهورها فقط

السلام عليكم ورحمة الله تعالى وبركاته تفضل اخي الكريم هدا حل اخر بالاكواد مع بعض الاضافات البسيطة ربما يلبي طلبك في حدث شيت Nesma Private Sub Worksheet_Activate() Dim li As Integer, MH1 As Integer, A As Integer, Y As Integer A = Sheets("Parts").Range("G" & Rows.Count).End(xlUp).Row Y = Sheets("Parts").Cells(2, Cells.Columns.Count).End(xlToLeft).Column + 1 Application.ScreenUpdating = False Worksheets("Nesma").Range("A4:C1000").ClearContents For li = 5 To A For MH1 = 3 To 3 Sheets("Nesma").Cells(li - 1, MH1) = Sheets("Parts").Cells(li, MH1) Sheets("Nesma").Cells(li - 1, MH1 - 1) = Sheets("Parts").Cells(li, MH1 + 3) Sheets("Nesma").Cells(li - 1, MH1 - 2) = Sheets("Parts").Cells(li, MH1 + 4) Next Next Application.ScreenUpdating = True End Sub وهدا في حدث شيت Wheels Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim lr As Long Application.ScreenUpdating = False Worksheets("Parts").Range("G5:G1000").ClearContents With Sheets("Wheels") lr = .Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row .Range(.Cells(4, "b"), .Cells(lr, "b")).Copy Sheets("Parts").Cells(5, "G") .Range(.Cells(4, "c"), .Cells(lr, "c")).Copy Sheets("Parts").Cells(5, "f") End With Application.ScreenUpdating = True End Sub OR_more_100 values_MH.xlsm

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

امر الطباعة DoCmd.PrintOut له 6 بارمترات لكل منها عمله والي يهمنا في تحديد عدد النسخ هو الخامس Copies ولكوننا نرغب في تحديد النسخ عن طريق مربع او قائمة نكتب الامر DoCmd.PrintOut , , , , [tx3] tx3 هو مربع النص الذي نحدد فيه عدد النسخ ويكون الامر هكذا DoCmd.OpenReport "r_1", acViewPreview, , , acHidden DoCmd.PrintOut , , , , [tx3] نفتح التقرير في وضع مخفي ونطبع النسخ المحددة انا ماعندي طابعة ولكن استخدمت طابعة مايكرواسوفت لبي دي اف وطبع ثلاث نسخ مثلما حددت

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