Shivan Rekany

وعندي مافي مشكلة تستخدم اي اصدار اعمل ريستارد لجهازك

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

هل عدد المواد ثابتة اي هو 5 مواد فقط هل تريد تتعدد مواد الرسوب و الغياب او تريد اسماءه

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

نعم افتح نموذج على ووضع تصميم وفي حدث الحالي في محرر فيجوال اكتب Private Sub Form_Current() Dim r As Integer r = DMax("id", "table1") If r >= 10000 Then Me.AllowAdditions = False End If End Sub غير ID الى اسم رقم تلقائي لديك غير Table1 الى اسم جدول اللي هو مصدر النموذج تحياتي

سؤال : كيف نتعامل مع سجلات اي لكل شهر سجل واحد اي ريكورد واحد اذا نعم اليك هذا والا اشرح لنا كيف تدخل البيانات وكيف تريد ان نخرجه المعادلات واليك كم روابط لكي تستفيد منه واليك هذا وايضا هذا تحياتي Database1 (2).rar

اضف الشرط في كود معاينة التقرير اي غير الكود الى DoCmd.OpenReport stDocName, acPreview, , "[رقم الحركة]=" & Me.رقم_الحركة واليك ملفبك بعد اضافة ذلك وتم تقليل حجم التقرير لكي يظهر على صفحة واحدة اي حين تطبع يطبع صفحة واحدة وما يطبع صفحة خالية من البيانات تحياتي برنامج الحوالات.rar

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

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

اولا ابدأ بالجداول المطلوب عمله حسب عملك وبعدين ارفق قاعدة اللي بها الجداول لكي نساعدك تحياتي

مافهمت قصدك

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

في حقل جديد من الاستعلام اكتب مجموع: Val(Nz([Arabic_t1_med];0))+Val(Nz([Mathe_t1_med];0))+Val(Nz( [dirasat_t1_med];0)) +Val(Nz( [Scienc_t1_med] ;0))+Val(Nz( [English_t1_med];0)) استخدمنا val لكي يخرج لنا قيمته واستخدمنا مع nz لكي يحول لنا الفراغات الى اصفار واليك ملفك بعد تعديل 020 - Copy.rar

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

اتفضل اولا لازم بيكون في كل حقل بها رقم لكي ينطي نتيجة يعني اللي ما خذت اي اجازة انطيه رقم 0 وبالنسبة اللي اذا ما تستخدم العمليات في جدول بيكون احسن تكدر تستخدم في الاستعلامات اتفضل مع قاعدة بياناتك بعد تعديل تحياتي Copy of employees database.rar

اخي واستاذي الفاضل @رمهان اسف ما ضبطت معي

اهلا بك اخ @ali2008x في منتداك ط منتدى اوفيسنا" اولا : اخي العزيز غير عنوان الرسالة من "اريد مساعدة من فضلكم " الى جملة مختصرة لطلبك مثلا " طرح في جدول " لكي لا يخالف القوانين المنتدى ثانيا : ماتريد بالضبط اشرح بالتفصيل اي اي حقل بيكون طرح من اي حقل و بيجمع بأي حقل اكتب اسماءه كمثال رياضية وثالثا : تكدر تفتح جدولك في وضع تصميم وتغير خاصية حقل Vacations Balance الى Calculated وفي خاصية Expression اكتب المعادله‌ او اشرح لننا ماتريد وارفق القاعده‌ تحياتي لك اخوك شفان ريكاني

اتفضل اليك ماطلبت واذا تريد راح اعمل التعديل على ملفك القديم ايضا db2.rar

استاذن من استاذنا @صالح حمادي اتفضل استخدمت هذا الكود في حقل جديد من الاستعلام eee: IIf(IsNull([Arabic_t1_med]);"ادخل الدرجة لمادة العربية";IIf([Arabic_t1_med]="غ";"غ";IIf(Val([Arabic_t1_med])<10;"دون مستوى";IIf(Val([Arabic_t1_med]) Between 10 And 12;"مقبول";IIf(Val([Arabic_t1_med]) Between 13 And 14;"جيد";IIf(Val([Arabic_t1_med]) Between 15 And 16;"جيد جدا";IIf(Val([Arabic_t1_med])>16;"ممتاز"))))))) واليك ملف بعد تعديل Copy of 016.rar

اتفضل Database1 (1).rar

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

اضف الى الكود * 0.5 اي الكود سيتغير الى DoCmd.MoveSize Height:=Me.WindowHeight - (Me.ÊÝÕíá.Height * 0.5)

اتفضل استخدمت هكذا If Arab1 < 50 And Arab1 >= 25 Then ForeColor = 3 Me.FillStyle = 6 Me.FillColor = 14079702 DrawWidth = 5 Me.Circle (Me.Arab1.Left + (Me.Arab1.Width / 2.4), Me.Arab1.Top + (Me.Arab1.Height / 2.2)), 330 ElseIf Arab1 < 25 Then ForeColor = 3 Me.FillStyle = 6 Me.FillColor = 14079702 DrawWidth = 5 Me.Circle (Me.Arab1.Left + (Me.Arab1.Width / 2.4), Me.Arab1.Top + (Me.Arab1.Height / 2.2)), 330, , 3 End If واليك ملف الق نظرة الى مادة عربي وللعلم نستخدم رقم 1 الى 6 للدائرة مكتملة اي واحد قليلة و 6 مكتملة تحياتي تقرير دائرة للراسب (2).rar

اتفضل طباعة الفاوتير.rar

بعد ما وصلت للمطلوب ؟ ارفع القاعدة لتعديل عليه