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

السلام عليكم ورحمه الله وبركاته جرب هذا التعديل اخى الكريم test2.xlsb

اخي هنالك فرق بين التحديث Edit و الإلحاق AddNew فإستعلام الإلحاق يقوم فقط بتحديث البيانات و بناء على طلبك يكون التحديث لكافة للسجلات دفعة واحدة بالطريقة التالية من خلال الاستعلام لكن اذا اردت تحديث سجل محدد بالطريقة التالية سؤالك عام بشكل جدا موسع ماهي المشكلة التي تواجهك تحديدا ً ؟؟

غياب الجمعة عطلة غياب عدا الجمعة.xlsm

ضع PtrSafe قبل كلمة Function وسوف يحل المشكلة

شكرا استاذي نعم السبب الفاصلة المنقوطة في ضبط الجهاز و قمت بتغيره اشكرك جدا

وعليكم السلام ورحمة الله وبركاته المعادله الاولى =iferror(DATE(IF(LEFT(C1232;1)="2";MID(C1232;2;2);"20"&MID(C1232;2;2));MID(C1232;4;2);MID(C1232;6;2));"") المعادله الثانيه =iferror(IF(Q1232>1;DATEDIF(Q1232;$P$1;"md");"");"")

السلام عليكم التقرير ليس مصدر بيانات وانما هو للعرض ، وحينما نصدر التقرير انما نحن نصدر مصدر بيانات هذا التقرير في مثالك لا يمكنك اختيار حقول من التقرير بسبب بسيط وهو ان التقرير مغلق انا عدلت على مثالك لاظهار جميع الجداول والاستعلامات في قاعدة البيانات واظهار الحقول في القائمة عند اختيار الجدول او الاستعلام ويتم التصدير الى اكسل حسب الاختيار export excel2.rar

هههه ..... اخي الكريم امزح معك ..... كفكرة مبدأية : يمكن نقل البيانات من التقرير الى جدول ثم نعرض حقول الجدول للاختيار منها .... جرب ....

السلام عليكم لالا مش قصدي والله بالعكس انت اخي ان شاء الله وانا اشكرك كثيرا على الرد والاهتمام بالموضوع

يعني ما تبغاني اجاوب .... عندي حل ليس قفلتها في وجهي ... 😂 ... طيب جزاك الله خيرا

يمكن تصدير التقرير ولكن لا تستطيع اختيار حقول معينة منه .... ولكن بمكن عمل نفس الفكرة من خلال الاستعلام المبني منه التقرير بنفس الفكرة الموجودة في مثالك ...

السلام عليكم الاخ @أ / محمد صالح شكرا جزيلا لك و الله يعطيك العافية

مشكور استاذ محمد

تفضل التعديل DATA1041-5.mdb

تم إجراء بعض التعديلات لتتناسب مع المطلوب وهي: كتابة تاريخ 1 في الشهر المطلوب في الخلية c5 وبناء يتم جلب بيانات باقي ايام الشهر وتلوين الجمعة والسبت وكتابة اسم الشهر تلقائيا تم وضع معادلة التصفية الأفقية لجلب تاريخ اليوم المكتوب فيه غ (معادلة مصفوفات) تم وضع معادلة لحساب عدد أيام الغياب بالتوفيق حضور و غياب مع الخلاصة الشهرية.xlsm

الاحتمالات كثيرة أحدها نظام الفاصلة في جهازك هل هو الفاصلة فقط أم الفاصلة المنقوطة؟ يفضل إرفاق ملفك أو الشيت موضع المشكلة

اتفضل DATA1041-5.mdb

كذلك شييك على اللغة الاقليمية لابد تكون عربية

هذي الايقونه ما حصلها لكن ما تمنع من عمل البرنامج جرب هذا شغال عندي بدون مشاكل

ادخل على المحرر و تأكد بأن الأزرار يوجد خلفه كود تأكد من تخفيض الأمان

نعم صحيح يا عم ابو الحسن

اتفضل التعديل يابو الحسن DATA1041-5.mdb

وهذي مشاركتي ايضا فقط اضافة انشاء نسخة احتياطية 1297791160_.accdb

الواضح عند الفتح بأنها تظهر خالية لكن جرب هذا التعديل Aziz.accdb

تفضل هذا المثال سيتم حفظ معلومات الدخول في ملف خارجي و سيتم استدعاء معلومات الدخول بعد ادخال اسم المستخدم Database2 (1).mdb

تفضل Aziz.accdb

اعمل حقل مخفي في النموذج ولنفرض اسمه ejmali واجعل مصدر بياناته هو حقل الاجمالي في الجدول لما تنقر على حفظ اكتب في الحدث : ejmali = حقل الاجمالي المحسوب

طيب قبل الاجابة هل ممكن وجود اكثر من قيم فى نفس السطر يعنى ممكن a , b .... ام فقط قيمة واحدة a فقط لا غير فى السطر الواحد وكال حال باقى الاسطر هل قد تحتوى على قيك مختلفة مثلا z فقط لا غير ام ............. التساؤلات كثيرة ومن يجيبك قد يرد يتسرع وتعود متسائلا مرة اخرى ان الاجابة لم تشمل كل البيانات فياحبذا لو ترفق قاعدة مبسطة تحتوى على جدول واحد فقط به كل صور البيانات التى يمكن ان يحويها مستقبلا بكل الطرق بعد ذلك نتشاور ونفكر سويا وبأمر الله تعالى تجد مبتغاك

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

السلام عليكم ورحمة الله الاخ ABOU ELSAAD يمكنك استخدام الكود التالى Sub AbsCount() Dim ws As Worksheet, LR As Long Dim x As Long Dim a As Integer, b As Integer, d As Integer Dim C As Range, Abst As String Const Com = "," Set ws = Sheets("SS") x = 3 LR = ws.Range("AG" & Rows.Count).End(xlUp).Row Do While x <= LR For Each C In ws.Range("A" & x & ":AE" & x) If C.Value > 0 Then a = WorksheetFunction.Min(ws.Range("A" & x & ":AE" & x)) b = WorksheetFunction.Max(ws.Range("A" & x & ":AE" & x)) ab = b - a + 1 d = WorksheetFunction.Count(ws.Range("A" & x & ":AE" & x)) If ab = d And d > 1 Then Abst = " يوم " & " (" & a & " - " & b & ")" ws.Range("AL" & x) = Abst Else Abst = C.Value & Com & Abst ws.Range("AL" & x) = Left(Abst, Len(Abst) - 1) End If End If Next C Abst = "" x = x + 1 Loop End Sub

السلام عليكم الله يعطيك العافية سؤالى هل من الممكن بدل تعبئة الغياب برقم و ليكن حرف " غ " ثم بماكرو في صفحة ثانية يقوم بترحيل الغياب على شكل يوم و تاريخ لكل شخص ؟

استاذ محمد بعد اذن حضرتك لي طلب اخر هل من الممكن الاختصار بحيث اذا كانت ايام الغياب متتالية مثل غياب يوم ( 1و2و3و4و5و6) ان تختصر الى غياب يوم (1-6)

جميعا بإذن الله

بعد إذن أخي الكريم @ابراهيم الحداد لا نحتاج لعكس الكلام لأنه يظهر الأرقام مقلوبة مثل 13 تظهر 31 وهكذا هذا جهدي المتواضع في هذا المجال Sub AbsDays() Dim ws As Worksheet, C As Range, LR As Long, x As Long Set ws = Sheets("SS") LR = ws.Range("AG" & Rows.Count).End(xlUp).Row For x = 3 To LR ws.Range("AI" & x) = "" For Each C In ws.Range("A" & x & ":AE" & x) If C.Value > 0 Then ws.Range("AI" & x) = ws.Range("AI" & x) & IIf(ws.Range("AI" & x) = "", "يوم ", " و") & C.Value Next C : Next x MsgBox "Done by mr-mas.com" End Sub بالتوفيق ترحيل أيام الغياب.xlsb

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

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