mourad2012

بزر الفأرة اليمين Database4.accdb

تفضل صديقي تجربة - Copy.accdb

If IsNull([YourFeild]) Then Eval ("MsgBox('حقول بحاجة لتعبئة:" & vbCrLf & vbCrLf & _ "1. اكتب اسم الحقل هنا" & vbCrLf & _ "@يجب تعبئة الحقل المذكور@@', " & _ vbInformation + vbOKOnly & ", 'حقول مطلوبة')") Exit Sub Else End If

تم توظيف الحل بشكل سليم شكرا جزيلا اخي فوكش

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

ساجربها واوافيك بالنتيجة ان شاء الله شكرا جزيلا لك

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

السلام عليكم ورحمة الله وبركاته اشكر لك سعة صدرك اخي الطيب جعفر وجعل كل ما تقوم به في ميزان حسناتك ان شاء الله واعتذر عن عدم ايضاح المطلوب ظنا مني ان القاعدة التجريبية المرفقة تفي بالغرض ما اريده: استعلام للجدول MonthRep هذا الجدول يتم ادراج ايام العمل لشهر كامل لك موظف هناك بعض المعلمين (الموظفين) بنصف مركز يعملون في المدارس بوتيرة متغيرة فمنهم من يعمل يومين او ثلاثة ايام قد تكون هذه الايام الاحد والاثنين او الاحد والثلاثاء والخميس او الاربعاء والخميس وهكذا الان في التقرير الشهري لدي والذي كان لك الدور الاكبر فيه يتم ادراج كل الايام باستثناء الجمعة والسبت في وضع النصف مركز اريد عندما اختار لموظف معين مثلا الاحد والثلاثاء يتم اخفاؤها في استعلام لعرض هذا الاستعلام في تقرير ولايضاح الفكرة سارفق صور بالمطلوب في الصورة الاولى عند اختيار يوم عمل للموظف مثلا هنا اخترنا الاحد يتم تخزين القيمة المختارة في جدول BadeelDays كما في الصورة الثانية الصورة الثالثة هي استعلام من الجدول monthRep الصورة الرابعة هي لايام الاحد جميعها في الشهر وهي التي اريد استثناءها من الصورة الثالثة طبعا اي يوم يتم اختياره يتم استثناؤه اتمنى ان تكون الفكرة قد تم ايضاحها مرفق قاعدة بما ذكرت وعذرا للإطالة دمتم ودام عطاؤكم OutChickDaysNew.accdb

السلام عليكم ورحمة الله وبركاته عساكم بخير وبصحة جيدة اخواني ما اريده هو استعلام يقوم باستثناء الايام التي يتم اختيارها من النموذج مرفق مثال OutChickDays.accdb

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

السلام عليكم ورحمة الله وبركاته كيف حالكم عساكم بخير وبصحة جيدة احتاج الى تحديث الحقل (chkdays) في الجدول (NumbersTbl) سجل بعد سجل اي واحد نعم والثاني لا بضغطة زر واحدة شكرا لكم جميعا مرفق قاعدة تجريبية لتوضيح المطلوب TestDB.accdb

اشكرك شيخنا على هذا العمل الرائع وجعله الله في ميزان حسناتك تم العمل على اكمل وجه

اشكرك اخي العزيز على سعة صدرك عند تجربة المرفق وجد انه لا يضيف اكثر من مادتين لكل مدرس جرب المرفق ستجد ان التوزيع لا يتغير رغم وجود مواد إضافية في جدول التشكيلات Tawzea222.mdb

السلام عليكم ورحمة الله وبركاته في المثال الذي ارفقته في المشاركة الاولى قم بمعاينة الاستعلام الجدولي (MainQry_Crosstab) ستجد انه يظهر كما في الصورة الأولى وهنا ركز على الموظف الذي اسمه وليد الآن: اذهب الى جدول : (Tazee3Tbl) وقم بتغيير الرقم (2 الى 1 ) او (1 الى 2) ليس مهماً المهم ان يتشابه الرقمين في في حقل (Twzcod) للموظف الذي رقمه (2) في حقل (teachId) قم بمعاينة الاستعلام الجدولي (MainQry_Crosstab) سيظهر لك بشكل صحيح كما في الصورة الثانية في المشاركة الأولى وهذا الصحيح انا لما افهم الكود الخاص بك بشكل سليم وخاصة هذه الجزئية: If ii = 0 Then For x = 0 To .RecordCount - 1 Set sumHes = CurrentDb.OpenRecordset("SELECT Sum(TashkelatTbl.tst) AS tst FROM TashkelatTbl GROUP BY TashkelatTbl.[classID] HAVING [classID]=" & myfasl![class_id]) If sumHes!tst = 0 Then ii = 1 If tData!tst = 0 Then .MoveNext ElseIf tData!tst > 0 Then divis.AddNew i = i + 1 divis!twzCod = i .... .......

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