منتصر الانسي

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

اخي العزيز شبوكشي عندما نقوم بعمل مثال توضيحي نحاول ان نجعله يشمل اكثر الافكار الممكنة والتي يمكن استغلالها جميعها او الاستغناء عن ما لا نحتاج اليه - الإجراء المذكور اعلاه هو اجراء خاص داخل النموذج يقوم بعمل الترقيم التلقائي بحسب السنة والنوع ويتم وضعه في اي مكان يمكن ان يؤثر على هذا الترقيم وستجده في حدث (بعد التحديث) لحقلي (النوع , التاريخ) - مايخص التاريخين فنحن نتعامل مع المصروفات وهناك احتمال ان يكون تاريخ الصرف مختلف عن تاريخ الفاتورة اما اذا كنت متاكد 100% بانه نفس التاريخ فيكتفى بتاريخ واحد - الحكمة من اظهار الكود هو للتوضيح فقط ولكن في الواقع فليس بالضرورة ان يكون ظاهراً للمستخدم - في حالة الشقق يمكنك اضافة حقل رقم الشقة والذي يكون مرتبط بجدول خاص ببيانات الشقق والذي سيحتوي ايضاً بيانات العمارة وبالتالي يمكنك اظهار مصاريف العمارة بسهولة ارجو ان يكون الرد واضح تحياتي,,,

مشكور استاذنا الكبير ابو خليل بالفعل هذا تطبيق مهم جداً تحياتي,,,

كما يوجد على الرابط http://www.officena....showtopic=39192 احدى إبداعات الأستاذ nart Lebzo والتي لم اطلع عليها سوى الان تحياتي,,,

اخي العزيز مرفق لك مثالك بعد التعديل ارجو ان تكون فيه الافادة تحياتي,,, msrofat.rar

اخي العزيز سبق ان ساهمت بمشاركة في موضوع مشابه ولكني لم اجد ذلك الموضوع (اما بسبب التحديثات الخاصة بالمنتدى أو إستعجالي في البحث) وقد كانت مساهمتي في ذلك الموضوع المثال المرفق أرجو أن يكون فيه الفائدة تحياتي,,, شريط الاخبار.rar

زي ما قلت من أول هذا مش الاكسس الذي نعرفه لا لا لا

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

اخي العزيز جرب التقرير الان هل أصبحت النتيجة حسب رغبتك أم لا تحياتي,,, contract.rar

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

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

اخي العزيز من خصائص مربع النص ومن خاصية (أشرطة التمرير أو Scroll Bars) إجعل الخيار (بلا أو None) تحياتي,,,

استاذتي الاعزاء اولاً اتعبنا الاستاذ نارت بإبداعاته وكل مرة أظل في حيرة عن الرد الذي سيوفيه حقه (لأني بصراحة فاشل في مادة التعبير) في الأخير أبطل أرد ولكن هنا لفتني سؤال الاستاذ ابو خليل بالفعل ولكن سيتبقى لدينا شيئ واحد (صحيح أنه يختفي بسرعة ولكنه مازال مؤشر إلى أكسس) وهو شعار الأكسس الذي يظهر عند فتح البرنامج والذي يمكنك أن تتجاوزه بوضع صورة إمتداد (BMP) في نفس المجلد وبنفس اسم البرنامج (على فكرة هذا كان أول موضوع لي في المنتدى .... إيييييييه أيام) و إذا مازدنا عليه إخفاء خلفية أكسس فلن يتعرف عليه أحد . وبعد إذن الأخ نارت أرفق المثال بعد تطبيق الفكرة أعلاه لتتكامل الفكرة في مثال واحد تحياتي,,, Icon.rar

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

اخي العزيز المعذرة على التأخير ولكني لم أتنبه لطلبك هذا الا اليوم مرفق لك مثالك بعد عمل حل أعتقد أنه قد يؤدي الغرض بواسطة دالة String حيث تقوم هذه الدالة بتكرار حرف محدد لعدد مرات محددة لذا فستجد أن مربع النص forword اصبح مصدر بياناته كمايلي =forword & String(1000;".") وبالتالي ستظهر قيمة الحقل متبوعة بـ 1000 نقطة والتي يمكنك زيادتها او إنقاصها كما تريد أرجو أن يكون هذا الحل مفيداً لك تحياتي,,, نسخ من الدروس.rar

اخي العزيز هذا تعديل بسيط اعتقد انه يلبي طلبك ويعتمد على التالي 1- جعلنا القيمة الإفتراضية لحقل التاريخ هي =Day(Date()) & "/" & [Forms]![Ispian F]![com2] & "/" & [Forms]![Ispian F]![com1] اي ان اليوم يؤخذ من اليوم الحالي والشهر والسنة يؤخذان من القائمتين 2- في حدث (عند الإدخال On Enter) الخاصة بمربع نص التاريخ كتبنا الكود التالي Private Sub Dat_Enter() Dat.SelStart = 0 Dat.SelLength = 0 End Sub حيث ان هذا الكود يعتمد على خاصيتي SelStart و SelLength واللتين تقومان بالتحكم بتحديد اوبتظليل النص داخل مربع النص حيث تقوم خاصية SelStart بتحديد بداية التظليل و خاصية SelLength تقوم بتحديد طول التظليل وعليه فإن الوضع الإفتراضي عند الإنتقال الى مربع النص سيكون كما بالصورة التالية وبموجب الكود سيصبح الشكل كما بالصورة التالية ويمكنك أيضا بتعديل قيمة الخاصية SelLength لتساوي 2 ليصبح الشكل كما يلي بالتالي فإنه يكتفى بكتابة اليوم والخروج من الحقل مباشرة أرجو أن تكون هذه الطريقة مفيدة لك تحياتي,,, Date.rar

اخي العزيز كنت في الاصل قد ادخلت هذا الحقل ضمن المعادلة ولكن لاحظت ان المجموعة الواحدة تضم اكثر من سنة فقمت بالغاء الحقل ليطابق التقرير فكما تلاحظ في الصورة التالية لاحظ ان المجموعة تضم العامين 2006 و 2008 ومن الضروري استبعاد هذا الحقل والا فيسظهر مجموع 2008 فقط كونها اخر سنة تحياتي,,,

اخي العزيز مرفق لك تعديل على مثالك بالمطلوب رغم أن هناك ملاحظة على تصميمك للقاعدة فقد كان من الأفضل أن لا تكرر البيانات الإجمالية في تفريداتها الفرعية (اي انه كان من الأفضل عمل جدول للكميات يكون مشابه للاستعلام الذي عملته لك في التعديل وعدم تكرارها مع كل سجل فرعي) أرجو أن اكون قد اوضحت تحياتي,,, ll.rar

اخي العزيز جرب التعديل المرفق تحياتي,,, RealEstate.rar

اخي العزيز من خلال الإطلاع على مثالك يبدو أنك تريد اختصار عملية إدخال تاريخ التوقيع فبدلاً من أن يتم إدخال التاريخ كاملاً يكتفى بتحديد اليوم فقط ...؟ إذا كان هذا صحيح فأنصحك بما هو أفضل لك وأسهل - يمكنك أن تجعل القيمة الإفتراضية للتاريخ هي تاريخ اليوم الحالي - او ان تكون القيمة الإفتراضية هي تاريخ آخر سجل (يعني يتم أخذ التاريخ من السجل السابق) - ان يتم كتابة التاريخ في مربع نص في النموذج الرئيسي (لمرة واحدة) ويكون هذا التاريخ هو القيمة الإفتراضية فهل هناك مايمنع من تنفيذ هذه الطرق أم أن هناك ضرورة للتنفيذ بالطريقة التي طلبتها...؟ تحياتي,,

اخي العزيز من خيارات إعداد الصفحة قم بتحديد عدد الأعمدة المطلوبة وبحيث تكون المسافة بين الأعمدة تساوي صفر ثم إجعل عرض التقرير الفرعي يساوي (عرض العمود×عدد الاعمدة) على أقل تقدير جرب الخطوات هذه والا ارفقت مثال وفيه بيانات أكثر . تحياتي,,,

تفضل اخي العزيز مرفق لك مثالك بعد إضافة استعلام حذف قم بتشغيل الاستعلام ثم افتح الجدول للتأكد من السجلات المتبقية تحياتي,,, ax.rar

اخي العزيز الله يسامحك مثل هؤلاء الأشخاص لايتواجدون في مثل هذه المنتديات الا إذا كان (اخذ بلا عطاء) ليس إلا ولكن المشكلة ان هذه الوظيفة مرتبطة بالتطبيق الذي تعمل في إطاره ويصعب علي رفعه لأسباب غير ماذكرت وسأحاول عمل قاعدة بيانات بسيطة لتطبيق الوظيفة إن شاء الله عموماً أستاذي اعذرني فلم أكن قد إطلعت على نموذج بيانات الموظفين لذا فاسمح لي ببعض الملاحظات (تحملني اخي فبصراحة البرنامج اعجبني وانا مستوعب له كونه في مجال عملي) - لو يتم ترتيب مربع القائمة الذي يحتوي على اسماء الموظفين بحسب الاسم وليس بحسب الرقم او ان يتم اضافة مربع نص لادخال جزء من الاسم او الرقم الوظيفي ليتم تصفية القائمة بحسب ماتم ادخاله - يتم اظهار رقم السجل الحالي من واقع رقم الموظف مما يسبب بعض الالتباس فالموظف الذي رقمه 30 يظهر رقم سجله (30 / 19) - من الأفضل أن يتم تكويد (المسمى الوظيفي) وحقل (المدير المباشر) بحيث يتم تحديد هذه الحقول من قائمة منسدلة لما فيه من توحيد للإدخالات تحياتي,,,

الاستاذ العزيز والمشرف الرائع اسمح لي بهذا الإعتراض هذا مش اكسس من بتاعنا واللي احنا نعرفه وما عمري شفته بهذا الشكل لذا فالأمر واحد من إثنين - إما أنه معمول بنظام آخر عندها فلا يسمح بعرضه في هذا المنتدى - او أن هذا أكسس من طينة أخرى وغير معروفة لنا وعندها يجب ان يفتتح له قسم خاص به ماهذا هل تم دمج أكسس مع فوتوشوب ولا ولا ايش اقول .....؟ اعذرني اعجز عن التعبير ولكن عن جد الإعتراض الثاني أنك تطلب ملاحظاتنا (طب دا كلام) والان نأتي للجد أخي العزيز من الناحية الفنية لن أسمح لنفسي بمجرد التفكير في طرح اي ملاحظة ولكن كون هذا النظام هو من صميم عملي والذي كان من بواكير اعمالي الاكسيسية ومازال فان ملاحظاتي تتلخص في نقطتين - الإجازات الرسمية لاحظت انك تقوم بادخال جميع ايام الجمع والاجازات الرسمية الاخرى ولو اردت نصيحتي فقد إختصرت هذه العملية بحيث يتم احتساب الاجازة الاسبوعية الياً بهذه الدالة Option Compare Database Option Explicit Public Function CountWeekendDays(dtStart As Date, dtEnd As Date) As Integer Dim intThursday As Integer Dim intFriday As Integer CountWeekendDays = 0 intThursday = DateDiff("d", GEDay(dtStart, 5), LEDay(dtEnd, 5)) / 7 + 1 intFriday = DateDiff("d", GEDay(dtStart, 6), LEDay(dtEnd, 6)) / 7 + 1 CountWeekendDays = Ramp(intThursday) + Ramp(intFriday) End Function Public Function LEDay(dtX As Date, vbDay As Integer) As Date LEDay = DateAdd("d", -(7 + Weekday(dtX) - vbDay) Mod 7, dtX) End Function Public Function GEDay(dtX As Date, vbDay As Integer) As Date GEDay = DateAdd("d", (7 + vbDay - Weekday(dtX)) Mod 7, dtX) End Function Public Function Ramp(varX As Variant) As Variant Ramp = IIf(Nz(varX, 0) >= 0, Nz(varX, 0), 0) End Function وتقوم هذه الدالة بإحتساب عدد ايام الخميس والجمعة بين تاريخين وبإمكانك أن تقصرها على يوم الجمعة فقط اما الإجازات الرسمية فقد قمت بعمل الجدول الظاهر في الصورة التالية حيث ادخلت فيها اليوم والشهر بدون ذكر السنة للإجازات المرتبطة بالتاريخ الميلادي وبحيث يتم اخذ السنة من التاريخ الذي يتم إدخاله في النموذج اما الإجازات الهجرية فقد أدخلت بالكامل وبالتالي عند إدخال فترة زمنية في جدول يتم إحتساب عدد ايام الإجازات الأسبوعية بالدالة الأولى وعدد الاجازات الرسمية الميلادية والهجرية من الجدول الثاني .... وبصراحة الطريقة ماشية معي تمام - كنت قد اعديت ملاحظة ثانية خاصة بالهيكل التنظيمي فقد ظنيت من طريقة الإدخال أنك عامل للإدارات جدول مستقل عن الاقسام ولكن الله الهمني ان اتأكد من قاعدة البيانات قبل أن أقوم بإرسال المشاركة ووجدتهم في جدول واحد ولكن اكمل جميلك بإستخدام اداة TreeView لتحديد مكان عمل الموظف ليكتمل الحلم النارتي (هذا كله وقال خريج حقوق قال ياشيخ رووووح) في الأخير اعذرني على الإطالة وأرجو أن تكون ملاحظاتي ذات فائدة وغير مؤثرة على سير عمل البرنامج تحياتي,,,

اخي العزيز من خصائص التقرير الفرعي إجعل خيار اتجاه الصفحة (من اليسار الى اليمين Left To Right) وهناك حل آخر بأن تجعل العنوان في مقطع رأس مجموعة تحياتي,,,