محمد أبوعبدالله

وعليكم السلام ورحمة الله وبركاته حدد مربع التحرير والسرد ثم ضع عدد الحقول 2 وضع عرض الحقول 0;5 تحياتي

السلام عليكم تفضل اخي الكريم انظر استعلام باسم Query1 الموظفين.rar مع اني اتنصحك بتقسيم جدول الموظفين الى جدولين الجدول الاول خاص بالبيانات والجدول الثاني خاص بالعلاوات ( رقم الموظف - التاريخ - رقم العلاوة ) تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم =DLookup("[tva]"; "[qtva]"; "[vid] =" & vid) VID.rar تحياتي

وعليكم السلام ورحمة الله وبركاته اخي الكريم يمكن تنفيذ الموضوع باكثر من طريقة عموما انظر الى نموذج Form1 New folder.rar تحياتي

بالتوفيق اخي الكريم تحياتي

السلام عليكم بما ان الرصيد مرتبط بنوع الاجازة فقد تم التعديل كالتالي Balance: IIf([النوع]="سنوي";Nz([العدد الكلي])-Nz([عدد الاجازة]);"0") مرفق المثال بعد التعديل 0مثال.rar ولك الشكر تحياتي

اخي الكريم وضعت لك مثال لانك لم تذكر اسماء الحقول ولا اسماء الجداول بالضبط فيجب عليك تغيير Balance باسم حقل الرصيد لديك وتغيير tbl1 و tbl2 باسماء الجداول لديك وتغيير TextName باسم الحقل لديك يجب تغيير كل هذا اولاً اخي الكريم والافضل وضع مثال لكي يتم التعديل عليه ومعرفة المشكلة بالضبط تحياتي

جزاك الله خيرا استاذنا الفاضل كلام مضبوط 100% استمر على بركة الله تحياتي

وعليكم السلام ورحمة الله وبركاته جرب استخدام هذه الصيغة Balance : NZ(tbl1!TextName)-NZ(tbl2!TextName) تحياتي

جزاك الله خيراً استاذ الفاضل تحياتي

السلام عليكم تظهر هذه الرسالة عندما تكون قاعدة البيانات تالفة تحياتي

استاذنا الفاضل @ابا جودى ليست المشكلة في استخدام Long Integer ولكن المشكلة انه استخدم Long Integer لعدد كبير جدا من الحقول مع عدم وجود داعي لذلك وهذا سؤثر سلباً على قاعدة البيانات وعلى حجمها فتنسيق Long Integer يحجز في الذاكرة 2,147,483,648 2,147,483,647 وهو سوف يسجل درجات مواد وهو بحاجة اقصى الى 6 او 7 ارقام فقط والله اعلم تحياتي

بالتوفيق اخي الكريم تحياتي

تفضل اخي الكريم زرالحاقي.rar تحياتي

جرب وستنجح ان شاء الله تحياتي

اذن اجعل الحقول Short Text بذلك تستطيع كتابة ارقام وحروف دون مشاكل ان شاء الله كما وضحت لك انت لديك حقول كثيرة Long Integer غيرها كما في الصورة او Short Text اذا لم تكن تحتاجها فيما بعد في عمليات الجمع تحياتي

اخي الكريم انت تسخدم لدرجات المواد Long Integer وهذا غير صحيح ما رأيك باستبداله كما في الصورة تحياتي

تفضل اخي الكريم زرالحاقي.rar تحياتي

هل تريد حذف رسالة التنبيه ؟ فقط احذف السطر تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم زرالحاقي.rar تحياتي

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) تحياتي

تفضل اخي الكريم Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) If ID = 4 Then ID.LeftMargin = 3000 End If End Sub تحياتي

ضع مثال اخي بارك الله فيك لفهم المشكلة اكثر تحياتي

وعليكم السلام ورحمة الله وبركاته بهذا الشكل !!! ماذا الفائدة التي تريدها اقصد انك في التعليمات البرمجيو لا بد ان تحدد ما تريده بالضبط مثال للتوضيح if Me.ID.Value=4 then لون الحقل بلون احمر else اتركه كما هو end if برجاء توضيح المطلوب اكثر مع مثال للتوضيح اكثر تحياتي

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