mourad2012

1 ساعه مضت, Foksh said:

وفي اي زر تقوم بتحويل الى PDF

بزر الفأرة اليمين

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 ساعات مضت, ابوخليل said:

اللي فهمته انك تريد تضع  المواد في سطر واحد

نعم اريد ذلك ولكن عند حذف كود التوزيع يصبح للمعلم فقط مادة واحدة حتى لو كان يعلم اكثر من مادة لنفس الصف

وهذا ما لا اريده

نقطة الخلاف في الكود الخاص بك استاذي الفاضل أبو خليل هو:

في الصورة الثانية : كود التوزيع يجب ان يعطي 2  2 وليس 1 2

كي تصبح نفس المادة لاكثر من صف في سطر واحد

اريد النتيجة كما في الصورة الثالثة 

تحياتي لكم

السلام عليكم ورحمة الله وبركاته

اسعد الله اوقاتكم بكل خير

بداية نشكر القائمين على هذا الصرح كل باسمه ... ادامكم الله ذخراً وعوناً ان شاء الله

مشكلتي في كود تمت كتابته بواسطة شيخنا الغالي (أبو خليل) أدامه الله ورعاه في موضوع الجدول المدرسي 

وحاولت تسخيره للعمل كما احتاج وواجهتني معضلة بسيطة أتمنى ان أجد لها حلاً باذن الله

اليكم الصور والمثال لتوضيح المشكلة:

واذا لم يتم الفهم من الصور فانا حاضر لاي سؤال للتوضيح

اشكركم مقدماً 

اخوكم مراد

Tawzee3D.mdb

رائع يا بش مهندس

اداة جميلة وفاعلة

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

في موضوعك السابق الخاص بالتحديث (فكرة ومرفق)

الف شكر مرة اخرى على جهودك الرائعة

شكرا على هذا الموضوع الجميل

وتم تطبيق الفكرة بنجاح

وهنا تبدأ التساؤلات

بما اننا نستطيع احضار حجم الملف المراد تحميله

هل نستطيع وضع شريط لاظهار حجم التنزيل؟ عند تحميل الملف؟

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

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

السلام عليكم ورحمة الله وبركاته

هذه ارقام وصولات مالية ولا يمكن ان يتم اسقاط الرقم قبل اشارة (/) منها

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

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

السلام عليكم ورحمة الله وبركاته

كيف حالكم عساكم بخير وبصحة جيدة

في المرفق :

لا مشكلة في ايجاد اقل قيمة

لكن المشكلة تظهر في ايجاد اعلى قيمة

MinMaxTest.rar

تفضل

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

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

السلام عليكم ورحمة الله وبركاته

اسعد الله اوقاتكم بكل خير

في المرفق:

ملف تجريبي لتحديث عمود في جدول : العداد السابق والعداد الحالي

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

ما اريده عند اختيار رقم 2 يتم تحديث العداد السابق ببيانات العداد الحالي من السطر الاول وحتى السطر الرابع فقط

وعند اختيار رقم 3 يتم تحديث العداد من السطر رقم 5-8

الف شكر

UpDateTbl.rar