ابوخليل

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

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

كيف تمنحه اجازة لسنة قادمة ؟ !! ايضا لا تضاف كاملة بدخول السنة الجديدة ، لانه لا يستحقها كاملة وانما يستحق اجازة مقابل الايام التي عملها خلال هذه السنة امل ان الفكرة واضحة لك كامل الاستحقاق يحتسب : من تاريخ بداية العقد الى تاريخ اليوم الحالي باعتبار استحقاقه الشهري من الايام هو ( 4.16 ) يوم فيصبح استحقاق السنة حوالي 50 يوما كما هو معمول به في بلدك بينما في بلدي الاستحقاق هو (3.75 ) يوم عن كل شهر فيستحق يوما اجازة مقابل 8 ايام عمل و 45 يوما خلال السنة

تفضل من هنا احببت فصله بموضوع وعنوان مستقل لتسهيل وسرعة الوصول عند البحث

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

كذا لا يصلح ما بني على خطأ لا يمكن الاستمرار فيه فاعتذر عن الاستمرار ، وسأقدم لك هدية افضل من ذلك فأمهلني ...

اها هذه هي النقطة هذا يعني انه يجب الا يتم رصد 50 في اول السنة

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

من البيانات الظاهرة في صورتك المرفقة واضح انه غير مثالي المرفق الاخير البيانات مختلفة اتوقع المشكلة : في تسمية الحقلين : ConH و ConH1 الكود يعتمد على الاول ConH الذي هو المخفي راجع ذلك وافدني

والثانية كما ترى اعمل على 2003 اتوقع ليس للاصدار دخل في ذلك فالمستخدم دالات بسيطة

ولكنها تظهر عندي هذه صورة من المثال المرفق

المثال المعدل الاخير هو بالضبط مثل السابق تماما قل لي وما الذي تحتاجه ؟

دار لقمان ؟ ما دار لقمان ؟ لم افهم

معذور يابو محمد يوجد حقل مخفي في النموذج الفرعي وهو حقل اجمالي منه اخذته من الفرعي المحسوب ولصقته في الفرعي غير المحسوب ستجده الآن ظاهرا عند فتح التصميم حساب6.rar

وهذا كود لمن اراد فصل الارقام في حقل والحروف في حقل داخل النموذج Private Sub Command1_Click() Dim lets Dim i, r As Integer r = Len(Me.Text1) For i = 1 To r lets = Mid(Me.Text1, i, 1) If IsNumeric(lets) Then Me.Text3 = Me.Text3 & lets Else Me.Text2 = Me.Text2 & lets End If Next End Sub باعتبار Text1 هو الحقل المراد فصله و Text3 لاظهار الارقام Text2 لاظهار الحروف

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

تفضل ، جعلتها دالتين textNum و Numtext فصل الحروف عن الارقام دالة .rar

نعم هي تعمل في الاستعلام ساوافيك لا حقا بمثال على ذلك

وعليكم السلام تفضل هذه الدالة textNum عملتها لك يمكنك ان تفصل بها الحروف عن الارقام او العكس الآن هي مهيأة لفصل الارقم ، فقط مرر اسم الحقل اليها وحتى تعكس النتيجة يلزم تفعيل السطرين 3 ، 4 __ وحجب السطرين 1 ، 2 Public Function textNum(fildHrfRqm As String) Dim lets, lets2, lets3 Dim i, r As Integer r = Len(fildHrfRqm) For i = 1 To r lets = Mid(fildHrfRqm, i, 1) If IsNumeric(lets) Then lets2 = lets2 & lets ' السطر1 خاص بالارقام Else 'lets3 = lets3 & lets ' السطر3 خاص بالحروف End If Next textNum = lets2 'السطر2خاص بالارقام 'textNum = lets3' السطر4 خاص بالحروف End Function

المسألة مستغربة !! كيف الاجازة لن تحسم من الرصيد ومع ذلك يلزم اظهار الرصيد المتبقي ؟ على كل حال الطرق متعددة التي يتعامل بها مع الاجازات ، وانت اخترت التصفية من خلال النموذج باستخدام الكود لهذا البيانات تكون خاصة بالنموذج المفتوح انظر المحاولة التالية من خلال المثال المرفق db02.rar

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

تم مع الشكر والتقدير

السلام عليكم خطوات ترتيبية بسيطة في تصميم الجداول تساعد المبرمج مستقبلا وتمنحه مرونة في التعامل مع البيانات مستقبلا وفي تصميمك للجداول كأنك مللت فعدت تكتب الكائنات بحروف عربية فانا قمت بتعديلين بسيطين داخل الجداول حتى ادلك حين تريد ان تستنسخ العمل : 1- غيرت قيمة حقل نوع الاجازة الى رقمي داخل جدول الرصد 2- منحت الاجازات ارقاما خاصة فالمحسوبة تكون اقل من 200 بينما غير المحسوبة اكبر من 200 وهذا الترقيم يجعل للبرنامج مرونة فيما لو استجد جديد مع بقاء الاكواد داخل النماذج كما هي فقط التغيير سيكون على رقم الاجازة داخل الجدول ويوجد طرق اخرى لتمييز الاجازات كأن نضيف حقلا جديدا في الجدول يبين نوع الاجازة هل هي محسوبة ام لا وعن طريق هذا الحقل تتم التصفية داخل النماذج والاستعلامات تفضل التعديل على مثالك آمل ان يلبي مطلوبك db01.rar

تفضل ضع المؤشر داخل السجل الذي تريد تكراره ثم انقر الزر نسخ مجموعة سجلات2.rar

كل عام وانتم بخير تقبل الله صيامكم وقيامكم