نجوم المشاركات

وعليكم السلام .... هل هذا طلبك أخي @اشرف لاحظ التعديل الجديد .... واختر ايهما شئت .. بارك الله فيك test.rar

حياك الله أخي @اشرف الحمد لله رب العالمين

السلام عليكم ورحمة الله الآن ادخلنا البيانات الخاصة بكل جدول بيانات كل صف امام كل صف اليوم وعدد الحصص التى يدرسها فى هذا اليوم وكذلك بيانات المادة بها الصف والمواد التى يدرسها هذا الصف وعدد الحصص الأسبوعية لهذه المادة والحصة الأخيرة للمادة وحصتان متتاليتان وتسمى فى المدارس المصرية (فتره) يعنى لو عدد حصص مادة ما ولتكن التربية الدينية 3 حصص اسبوعيا تسمى فتره ونصف يعنى يراعى بقدر الإمكان عند توزيع الجدول ان تكون حصتان متتاليتان ( فترة ) وحصة مفردة فى يوم آخر لأنه غير منطقى أن يدرس طالب مادة واحدة 3 حصص فى يوم واحد ولا يدرسها باقى أيام الأسبوع عملنا كمان جدول بيانات المعلم به رقم المعلم والصف والفصل والمادة التى يدرسها بهذا الفصل وعدد حصص هذه المادة ثم جدول تيتشر كلاس وهو الذى سوف يتم فيه التوزيع به رقم المعلم واسمه وتخصصه من جدول (spciality) وده عشان نخرج منه بعد كده جدول تخصص مثل العربى أو أى مادة أخرى بعد التوزيع يضم أيضا (الاحد 1) وهنا ستكون الحصة الأولى يوم الأحد ولتكن 1/1 و (الاحد-مادة1) وهنا سنضع المادة ولتكن عربى يعنى التوزيع هيبدأ من الحقل رقم 3 اللى مسماه الأحد1 حتى الخميس-مادة 8 ثم عدد حصص المدرس فى الأسبوع وهى مساوية لجملة الحصص التى يدرسها فى كل فصل فى جدول بيانات المادة ثم شورت نيم المقصود بها اسم مختصر للمعلم ثم تكست انا جعلت قيمتها منتدب عشان لو عندى معلم منتدب احد الأيام زى ما هنشوف بعد كده هذا ما تم عمله حتى الآن وهذا المرفق به ما تم انجازه حتى الآن أى استفسار انا جاهز قبل ما ندخل على التقايل توزيع الجداول المدرسية.rar

وعليكم السلام .... هل هذا طلبك أخي @اشرف test.rar

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer) Call PageFooterSection_Paint End Sub Private Sub PageFooterSection_Paint() If Not IsNumeric(Me.text0) And Not IsNumeric(Me.text1) And Not IsNumeric(Me.text2) Then Me.text0.BackColor = vbWhite: Me.text1.BackColor = vbWhite: Me.text2.BackColor = vbWhite Else If Me.text0 > Me.text1 And Me.text0 > Me.text2 Then Me.text0.BackColor = vbRed Me.text1.BackColor = vbWhite Me.text2.BackColor = vbWhite ElseIf Me.text1 > Me.text0 And Me.text1 > Me.text2 Then Me.text0.BackColor = vbWhite Me.text1.BackColor = vbRed Me.text2.BackColor = vbWhite ElseIf Me.text2 > Me.text1 And Me.text2 > Me.text0 Then Me.text0.BackColor = vbWhite Me.text1.BackColor = vbWhite Me.text2.BackColor = vbRed End If End If End Sub TEST TRY2.accdb

ممكن تجرب هذا حساب الفرق بين تاريخين.xlsm

حياك الله . الحمدلله رب العالمين

ماشاء الله kanory

أخي @مصطفى الفيومى هل هذا طلبك New تطبيق Microsoft Office Access (1).rar

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

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

لك كل التقدير اخي الفاضل :kanory (هو المطلوب ) التعديل الجديد جيد ( محتصر ) لك كل التقدير و بارك الله فيك

لك كل التقدير اخي الفاضل :kanory (هو المطلوب )

الأستاذ سليم حاصبيا جزاكم الله خيرا وزادكم من فضله علما وخيرا كثيرا دائما مبدع وفقكم الله ورعاكم تقبل فائق احترامي وتقديري

هذه المعادلة في الخلية B15 و تسحب نزولاً =OFFSET(INDEX($A$1:$O$1,MATCH($A$12,$A$1:$O$1,0)),$B$14+1,ROWS($A$1:A1),)

بارك الله فيك استاذي بالفعل هوا المطلوب اسلم الابادي

ريما كان المطلوب Mowazana.xlsx

استاذة حمادة حاول تغير نسخة فك الضعط اللى عند حضرتك الى النسخة الاحدث ولك تحياتى wrar550ar

وعليكم السلام القيت نظرة على النماذج الفرعية ، والفرز فيخا صحيح برقم الصنف!! ولأنك لم تخبرنا وين المشكلة ، فلازم اقول الظاهر قصدك: لما تقوم بعمل ادراج مواد جديدة ، فالمواد تكون بالتسلسل الذي تقوم بإدخالها ، واذا اردت بعد كل ادراج ، ان يكون الفرز بالتسلسل ، فيجب عليك بعد ادراج كل مادة ، ان تعمل Requery او Refresh للنموذج الفرعي ، هكذا: Forms!frmSales!SubSales.Form.requery جعفر

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

أخي @عمار احمد ارجو أن يكون هذا طلبك Ka_Number.mdb

بصراحة انت مبرمج محترف

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

If Not IsNumeric(Me.text0) And Not IsNumeric(Me.text1) And Not IsNumeric(Me.text2) Then Me.text0.BackColor = vbWhite: Me.text1.BackColor = vbWhite: Me.text2.BackColor = vbWhite Else If Me.text0 > Me.text1 And Me.text0 > Me.text2 Then Me.text0.BackColor = vbRed Me.text1.BackColor = vbWhite Me.text2.BackColor = vbWhite ElseIf Me.text1 > Me.text0 And Me.text1 > Me.text2 Then Me.text0.BackColor = vbWhite Me.text1.BackColor = vbRed Me.text2.BackColor = vbWhite ElseIf Me.text2 > Me.text1 And Me.text2 > Me.text0 Then Me.text0.BackColor = vbWhite Me.text1.BackColor = vbWhite Me.text2.BackColor = vbRed End If End If TEST TRY.accdb

وعليكم السلام قم بتفعيل الماكرو فى الاكسيل وراح يشتغل معك وهذا رابط فيديو

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

السلام عليكم هذا الكود ما نفعش معاك Sub Mail_workbook_1() 'Working in 97-2007 Dim wb As Workbook Set wb = ActiveWorkbook If Val(Application.Version) >= 12 Then If wb.FileFormat = 51 And wb.HasVBProject = True Then MsgBox "There is VBA code in this xlsx file, there will be no VBA code in the file you send." & vbNewLine & _ "Save the file first as xlsm and then try the macro again.", vbInformation Exit Sub End If End If On Error Resume Next wb.SendMail "", _ "This is the Subject line" On Error GoTo 0 End Sub وهو منقول من ملف عندي خاص بارسال ايميل فيه نفس الكود الذي تريد تعديله المرفق 2003 SendMail(Attachment)Testers.rar