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 كي تصبح نفس المادة لاكثر من صف في سطر واحد اريد النتيجة كما في الصورة الثالثة تحياتي لكم

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

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

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

ما هو اصدار نسخة الاوفيس التي تعمل عليها؟؟؟؟

شكرا اخي الكريم شيفان معلومة رائعة

السلام عليكم ورحمة الله وبركاته هذه ارقام وصولات مالية ولا يمكن ان يتم اسقاط الرقم قبل اشارة (/) منها صفحات كل صفحة فيها خمسة وصولات يتم تمييزها عن بعضها بالرقم الاول قبل الاشارة لو كان ينفع لكنت جعلت الحقل رقم وانتهينا من الاشكال

السلام عليكم ورحمة الله وبركاته كيف حالكم عساكم بخير وبصحة جيدة في المرفق : لا مشكلة في ايجاد اقل قيمة لكن المشكلة تظهر في ايجاد اعلى قيمة MinMaxTest.rar

تفضل 680.1.الاجازات - Copy.rar

فقط اجعل اتجاه التقرير من اليسار لليمين

السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم بكل خير في المرفق: ملف تجريبي لتحديث عمود في جدول : العداد السابق والعداد الحالي عند اختيار الفترة رقم 1 يتم تحديث العداد السابق ببيانات العداد الحالي، وهذا يعمل بشكل جيد. ما اريده عند اختيار رقم 2 يتم تحديث العداد السابق ببيانات العداد الحالي من السطر الاول وحتى السطر الرابع فقط وعند اختيار رقم 3 يتم تحديث العداد من السطر رقم 5-8 الف شكر UpDateTbl.rar