منتصر الانسي

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

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

تفضل اخي العزيز مرفق لك مثالك بعد إضافة استعلام حذف قم بتشغيل الاستعلام ثم افتح الجدول للتأكد من السجلات المتبقية تحياتي,,, 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) وهناك حل آخر بأن تجعل العنوان في مقطع رأس مجموعة تحياتي,,,

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

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

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

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

يمكن لم تفهم قصدي كنت اقصد الفترة من 01/01 حتى 31/12 هل نعتبرها سنة بالضبط أم نعتبرها 11 شهر و30 يوم ولاتعتبر سنة إلا في 01/01 كنت أريد رأيك في هذه النقطة بحكم إستخدامك لها أكثر مني ... لأنه من الضروري توحيد طرق الإحتساب في معاملاتنا ككل ولا اقصد هنا فقط تحياتي,,,

اخي العزيز sweety سبق الشرح وللتوضيح اكثر يمكنك قراءة المشاركة بتمعن اكثر والتدقيق بالصور تحياتي,,,

اخي العزيز مرفق لك مثالك بعد اضافة طريقة الاحتساب للجدول مباشرة عن طريق النموذج كما ارجو منك الاطلاع على النموذج الثاني للتعرف على طريقتي اكثر وكذلك ملاحظة الفارق فستلاحظ ان الفرق بين التاريخين 01/01/1980 و 31/12/2010 لم يتطابق في النموذجين فما رايك ايهما أصح ليتم إعتماده منا جميعاً. اما عن طريقة نقل البيانات من الاستعلام الى الجدول يتم عن طريق استعلام التحديث ومرفق لك مثالك الأول لتوضيح الفكرة تحياتي,,, حساب العمر1.rar test2003.rar

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

ولكن ياعزيزي مادور الجدول الثالث ؟؟؟؟ فكما سبق وقلت لك ان الاستعلام التوحيدي هو لتوحيد بيانات عدة جمل استعلامات في جملة واحدة لتظهر نتيجتها معاً وهذا يتطلب أن تشمل نفس الحقول وبنفس الترتيب وهذا مالم اجده في الجدول الثالث فلا توجد لجان ولا اعضاء ... لذا يرجى التوضيح أكثر للطلب أو النتيجة المطلوبة منه تحياتي,,,

تفضل اخي مثالك بعد التعديل المطلوب تحياتي,,, قاعدة بيانات2.rar

اخي العزيز يمكن تجاوز مشكلة الترقيم التلقائي هذه بعملية (ضغط وإصلاح قاعدة البيانات) ولكنها لا تصلح الا آخر رقم فقط وليس مابينها فمثلاً لو كان لدينا السجلات (1 2 3 5 6 8) فإذا قمنا بحذف السجل 8 وعملنا ضغط وإصلاح قاعدة البيانات فسيعود الترقيم من 7 ولكنه سيتجاهل الرقم 4 المفقود ضمن السلسلة ويمكن تنفيذ هذا الأمر أيضاً عن طريق الكود والذي ستجده في مثالك المرفق تحياتي ,,, قاعدة بيانات2.rar

اخي العزيز بحسب مافهمته يمكننا أن نقسم هذا المربع الى قسمين او مربعين الأعلى لكتابة الملاحظات والأسفل يضم سطرين أول ثلاثة تكون فارغة . فهل هناك مايمنع ذلك ؟ تحياتي,,,

اخي العزيز عدل الشرط الى الشكل التالي Date()-[Date OfVisit]>=90 تحياتي,,,

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

اخي العزيز أولاً : ستلاحظ في الإستعلام الأول تم تجميع المستلم بإسم (اجمالي_المستلم) وفي الإستعلام الثاني تم تجميع المنصرف بإسم (اجمالي_المصروف) والإستعلام الثالث (الرصيد) يظهر رصيد كل صنف كما بالصورة التالية ثانياً : في الإستعلام الثالث ستلاحظ أن بعض السجلات يكون فيها (اجمالي_المستلم أو اجمالي_المصروف) قيمة خالية بدون أرقام ولذا عند تنفيذ عملية الطرح تكون النتيجة فارغة حتى لو وجدت إحدى القيم كما بالصورة التالية والتي تبين نتيجة الاستعلام (الرصيد) في وضعه الأصلي بدون إستخدام أي دالة أو معيار ثالثاً : يتم استخدام دالة Nz وذلك لاستبدال القيمة الفارغة بأي قيمة نريد وتكون على الشكل Nz([MyVal];0) اي استبدال القيم الفارغة لحقل MyVal بالقيمة صفر وفي المثال نجد ما يلي Nz([أجمالي_المستلم];0) اي أن يتم استبدال القيم الفارغة من اجمالي_المستلم بالصفر (ولكن لأن اسم الحقل عربي يكون الشكل مختلف) لذا ستصبح نتيجة الاستعلام كما في الصورة التالية رابعاً : نلاحظ من الصورة السابقة أنه تم إظهار جميع الأصناف حتى مع تلك التي لاتوجد بها أي حركة لذا نقوم بوضع معيار أن يكون الرصيد غير مساوي للصفر (<>0) وتصبح نتيجة الإستعلام كما في الصورة التالية أرجو أن يكون الشرح واضح تحياتي,,,

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

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

اخي العزيز يجب عليك تحديد الحقول المرتبطة بكل قائمة ويمكنك الإطلاع على الرابط هنـــا لعله يفيدك تحياتي,,,

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