ابوخليل

اها هذه هي النقطة هذا يعني انه يجب الا يتم رصد 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

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

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

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

السلام عليكم ورحمة الله وكل عام وانتم بخير استاذ عبدالفتاح هذ الفيديو الثاني فيما يخص الرقم القومي وحين شاهدت عرضك هذا وخاصة ادراج تاريخ الميلاد آليا بمجرد كتابة الرقم القومي قدحت في رأسي فكرة : وهي بما ان الرقم القومي يحمل معلومات محددة تخص صاحبه مثل تاريخ الميلاد والمحافظة والجنس ومعلومات اخرى مثل اول رقم اقول جميل ان يكون التحقق من صحة الرقم عن طريق هذه المعلومات فان كانت صحيحة تظهر البيانات في الحقول والا نطالبه بتصحيح الرقم مثلا الرقم الاول محصور بين الرقمين 2 و 3 وما يخص التاريخ يمكن حصره بين فترتين زمنيتين تقريبيتين ويمكن تخصيص الرقم الاول من الرقم القومي بتواريخ محددة فمثلا الرقم 2 تختلف التواريخ فيه عن ما يخص الرقم 3 ايضا من ضمن الضوابط رقم المحافظة فلا بد ان يكون الرقم المدخل موجودا ضمن قائمة المحافظات علما ان هذا الاجراء لا يمنع من التلاعب المقصود ولكنه يضبط الاخطاء الحاصلة عند الادخال وهي كثيرة ما رأيك أستاذي العزيز ؟

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

نحن هنا لمساعدتك حسب تصميمك ستجد في النهايات الطريق غير سالك وهي اتضحت لك الآن من البداية في الجدول الواحد ستعمل حقل "نوع العملية" ستكون قيمته : (وارد_صادر ) او (داخل_خارج) او (1_2) وانا افضل ان يكون رقميا 1 يمثل الداخل و 2 يمثل الخارج ويتم ادخال البيانات من نموذجين مختلفين علما انه يمكن العمل من نموذج واحد اذا ادخلت بيانات مناسبة ستتمكن من اظهار الارصدة بكل يسر وبدون استعلامات

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