Elsayed Bn Gemy

هذا هو مرفقك اخى الكريم كلمات السر للصفحات بعد الصفحة الرئئيسية هى العلاج الطبيعى = 1 و العلاج الوظيفى = 2 و 3 التوصيات

عمرك اطول من عمرى بجهز شرح ليه ان شاء الله بسيط زى دا

اخى الكرم ادرج مرفقك وانتظر اتك الفرج ان شاء الله

لا اعلم ما يقصده لذلك سالته اخى الكريم شكرا لك ولكن نحتاج منه مزيدا من التوضيح

اخى الكريم تم تعديل العلاقة بين الجدولين لتناسب الربط بين النموذ الفرعى ثانيتا نموذج ادخال موظف جديد ليس له فائدة فيمكنك ادخال الموظف من النموذج name_ وسيقوم البرنامج بتوليد الكود تلقائى بعد تحديث الاسم الثلاثى سيظهر الكود تلقائ Copy of Copy of رواتب.rar

مااااااااى نيم اذ ماااااااااااااااارد :mad: :dance1:

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

اخى الكريم الرابط لفيديو على اليوتيوب

جزاك الله كل الخير شكرا لحضرتك

اخى الكريم ارفق مثالا

تفضل اخى الكريم واعتذر منك مرة اخرى مشروع-3.rar

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

هذا مثال لما تقول ولكن اريد ان اعرف وماذا تعنى بان خصائص الحقل نص؟؟؟؟؟؟؟ نفرض ان تاريخ الميلاد هو اسم مربع النص ضع مربع نص جديد إسمه yearوضع فيه هدا الكود =year([تاريخ الميلاد]) في مربع نص العمر ضع هذا =Year(Date())-([year]) حساب العمر.rar

بعد ما تعمل الاستضافة لازم تنشء قاعدة بينات سيكوال عليها عموما دا الفيديو ةفيه كل حاجة انت حابب تعرفها https://www.youtube.com/watch?v=s6YSfW_j9lg

طب ما تخلى حقل Id رقم عادى وفى النموذج الادخال وفى حدث اللى انت عاوزة Me!text_id = Nz(DMax("[id]", "[table1]"), 0) + 1 دا على حسب فهمى للموضوع text_id هو مربع النص الموجود بالنموذج الخاص برقم القيد id هو الحقل الموجود بالجدول الخاص برقم القيد table1 هو الجدول اللى فيه رقم القيد بس دا طبعا بعد ما تخلى حقل id حقل رقمى عادى مش ترقيم تلقائى

يعنى ايه تذكير بوقت الخروج يعنى مثلا قبل وقت الخروج بقد ايه ؟؟

اللهم امين لى ولك يا اخى الكريم شكرا لمرورك

تم تعديل حقوال الجدول لتلائم التعليقات فقط اكرر شكرا لكل من تواجد هنا

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

اللهم امين ولك مثل ما دعوت لى الفا الفا :smile:

السلام عليكم ورحمة الله تعالى وبركاته انا النهاردة حابب اتكلم عن دالة مهمة جدا من وجهة نظرى المتواضعة دالة من دوال التكرار دالة Do While....loop طبعا بما انى مليش فى الشرح اوى فاسمحولى اتكلم كدا بالبلدى ههههههه اول سؤال احنا بنستخدم الدالة دى امتى ؟؟؟ الاجابة اننا بنستخدم الدالة دى لما نكون عاوزين نكرر كود محدد بس اكتر من مرة ومش عارفين عدد محدد لتكرار والحدث او الكود اللى هنكرره دا هيتكرر بناء على شرط معين يعنى لو الشرط اتحقق كرر الكود وهكذا ... قشطة لحد كدا ؟؟؟ شكل الدالة دى بيبقى عامل ازاى Do While الشرط الكود Loop Do While condition code Loop يعنى ايه بقى الكلام دا المقصود ب Do While هو تنفيذ code طالما التعبير الشرطى True قشطة لحد كدا تمام ؟؟ علشان المعلومة تثبت لازم نعمل تدريب عملى هنعمل تدريب عملى بسيط جدا تعالو نشوف انا عاوز اعمل نموذج فى قلبه ليست بوكس اقوم عن طريق الدالة Do While اقوم عن طريقها بادخال الاسماء داخل الليست بوكس نفتح الاكسس ونعمل نمذج فارغ ونسميه Form1 ونعمل زر لااضافة الاسماء ونسميه Button1 ونضيف الليست بوكس ونسميها Listbox1 ايه المطلوب بقى منى ؟؟ المطلوب عن الضغط على زر Button1 يظهر صندوق InputBox لا ادخال الاسماء يبقى احنا هنستخدم دالة InputBox فى ادخال الاسماء تمام كدا يعنى لما اضغط على الزر المفروض يظهر InputBox علشان ادخل الاسم الاول ويظهر مرة تانيه علشان ادخل الاسم الثانى وهكذا لحد ما قيمة الشرط فى دالة Do While تبقى false كدا ينهى الحدث هنخلى الشرط بتاعنا هو عند ادخال كلمة انهاء يقوم بانهاء ادخال الاسماء وهنلاحظ كدا وجود حلقة تكرارية مش عارفين عدد مرات التكرار قد ايه وينتهى التكرار بمجرد ادخال كلمة " انهاء" يلا بينا على الكود طبعا دا هيتحط فى حدث عند النقر للزر 'هنفرض متغير x من نوع نص Dim x As string 'الشرط هنا بيقول انه طالما المتغير x لا يساوى انهاء كرر الكود Do while x<>"انهاء" x=InputBox("ادخال اسماء الطلاب") Me.Listbox1.AddItem (x) Loop شكرا ليكم تحياتى اخوكم مارد عارف انكم كلكم عارفين الدالة دى :mad: بس رخامة وخلا ص Do While .... Loop.rar

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

اخى الكريم اشكرك معلش ان انسيت اضيف حتة عدم ترك الحقول فارغة ثوانى اعدلهولك

تفضل اخى الكريم هذا هو ملافقك مشروع.rar

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