ابوخليل

السؤال هذا عام ويتبادر للذهن اولا انه يجب توفر عمود في الجدول خاص بالمستخدم وحين يقوم الموظف بتعبئة البيانات يتم ادراج رقمه في الحقل ولكن يسبق هذا كله نظام مستخدمين يحفظ اسم ورقم المستخدم عند كل دخول آمل تجد فائدة من هذه السطور المقتضبة

ليس معطوب ولكن تم ضغطه ببرنامج ضغط حديث تفضل الملف بدون ضغط jadwal.mdb

السلام عليكم ورحمة الله وبركاته اخوتي الكرام ، احببت المشاركة واثراء هذا المنتدى بفكرة وطريقة جديدة لتوزيع الفترات الدراسية على المعلمين خلال اسبوع والفكرة سهلة ويسيرة وقابلة للتطوير والاضافة وتقوم على اعطاء كل حصة رقم معرف فريد يخصها ابتداء من الحصة الأولى لأول يوم حضور وحتى الحصة الأخيرة لآخر يوم دراسي في الاسبوع والعملية تعتمد على جدولين أساسين فقط tblFsl جدول الفصول و tblTechData جدل بيانات المعلم والجدول الثالث tbldivision هو لتوزيع العملية نتيجة العملية استعلامين : 1- جدول الفصول faslTable 2- جدول المعلمين teachersTable ومع المثال يكتفى عن اطالة المقال jadwal.rar

فرصة مداخلة الاستاذ خالد ولا انسى طلبه بدعوتي وغيري من الاخوة في المشاركة في موضوعه الخاص بالتوزيع الآلي للجدول واعتذر عن عدم مبادرتي وقتها لاسباب منها انشغالي وايضا الامثلة ليست mdb ولكن السبب المهم والرئيس هو عدم اقتناعي بالنهج المتبع في تطبيق الفكرة ، وحيث ان الاستاذ خالد مضى قدما في المشروع فرأيت ان الصمت هو الافضل حتى لا اكون سببا في تثبيط الهمم . وهذه ايضا عقبة ، والمصلحة العامة تقتضي العمل بنهج علمي الخلاصة ان طريقة التنفيذ ستختلف تماما عن جميع ما سبق من مواضيع . وان وفقني الله واستطعت تنفيذها فاني سأقتصر على الأساسات ، وسأترك التطوير لكم

لم افهم المطلوب ! وضح الفكرة بالشرح والتفصيل

انا اصلحت لك الخلل حسب عنوان الموضوع الاولى اننا نغلق الموضوع وفي تعليقك الاخير تريد تسحبني الى وسط الدوامة . او بالاصح معترك الجدول حاضر استاذ حمدي سأعمل ما اقدر عليه

انظر هذا التعديل ان كان يحقق مطلوبك توزيع_الجدول.rar

استفسار استاذ حمدي : جدول Teacher Class1 يتم ادخال اسماء المعلمين عبر النموذج جدول بيانات المعلم : كيف يتم ادخال البيانات فيه ؟ لانه فيه ارتباط وثيق بين الجدولين داخل الاكواد اما بالنسبة للطلب الثاني : يوجد اثنين ماكروا ، افتحهم على التصميم واحذف الخاصية Maximize

السلام عليكم واشكر احبتي واخواني على المساعدة الأخطاء كما ذكر الاستاذ جعفر تفضل التعديل 2zabon.rar

انت طلبت اسم الموظف !!! تفضل اسم الموظف ورقمه في رسالة التنبيه تأكيد3 .rar

تفضل تم التعديل الشرح : 1- جميع الحقول في الجدول جعلت الخاصية مطلوب=نعم 2- اضفت دالة تجدها في محرر النموذج تمنع ترك اي حقل فارغ تأكيد2 .rar

وعليكم السلام في المثال المرفق النموذج يحتوي على حقل واحد وهذا لا يكفي فأنت تريد عند نقر الزر التأكد من ان جميع الحقول تم تعبئتها والا يمتنع الحفظ لذا اشير عليك ان ترفق النموذج كامل بجميع حقوله

تفضل استاذ حمدي الله يعينك على العمل في البيئة المزدوجة في الاكواد بين الحروف العربية والانجليزية ايضا وجود المسافة الفارغة في اسماء الجداول الحق انها متعبة جدا تحديث2.rar

تفضل طرح وقسمة تاريخين2.rar

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

رغم اني لم ابتعد عن المنتدى في تلك الفترة .. فكأن هذه المرة الاولى التي اشاهد الموضوع فيها وحيث ان الازرار في الاصدار 2003 لايوجد بها خاصية BackColor فقد استبدلتها بخاصية ForeColor مرفق المثال بعد التعديل انشاء شريط قوائم2mdb.mdb

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

السلام عليكم تفضل تم عمل اللازم البيانات كثيرة جدا لذا ستلاحظ الوقت الذي يستغرقه تنفيذ الكود Private Sub zer1_Click() On Error Resume Next DoCmd.Hourglass True Dim rs1 As Recordset Dim rs2 As Recordset Dim i, ii, iii As Long Dim r As Integer Dim rr As Integer Set rs1 = CurrentDb.OpenRecordset("SELECT Students.Group FROM Students GROUP BY Students.Group ORDER BY Students.Group") Set rs2 = CurrentDb.OpenRecordset("SELECT Students.sery, Students.Group, Students.kolaf, Students.mazroof FROM Students ORDER BY Students.Group") rs1.MoveLast: rs1.MoveFirst rs2.MoveLast: rs2.MoveFirst For i = 1 To rs1.RecordCount r = rs1!Group For ii = 1 To rs2.RecordCount rr = rr + 1 For iii = 1 To 50 If rs2!Group = r Then rs2.Edit rs2!kolaf = rr rs2.Update rs2.MoveNext End If Next iii Next ii rr = 0 rs1.MoveNext Next i DoCmd.Hourglass False MsgBox "تم التوزيع بنجاح" Set rs1 = Nothing Set rs2 = Nothing End Sub Private Sub zer2_Click() On Error Resume Next DoCmd.Hourglass True Dim rs1 As Recordset Dim i, ii As Long Dim r As Integer Set rs1 = CurrentDb.OpenRecordset("SELECT Students.sery, Students.mazroof FROM Students ORDER BY Students.sery") rs1.MoveLast: rs1.MoveFirst For i = 1 To rs1.RecordCount Step 50 r = r + 1 For ii = 1 To 50 rs1.Edit rs1!mazroof = r rs1.Update rs1.MoveNext Next ii Next i DoCmd.Hourglass False MsgBox "تم التوزيع بنجاح" Set rs1 = Nothing End Sub رقم الغلاف والمظروف2.rar

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

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

مساندة للأستاذ حمدي انا اوافق الاستاذ خالد على طرحه ونصيحة قبل البدء : 1- تحليل المشروع ودراسته من جميع الجوانب 2- الابتعاد عن الحروف العربية في تسميات الجداول وحقولها . 3- جعل المشروع مستقلا بذاته مع امكانية ربطه مستقبلا باي برنامج تعليمي بكل يسر 4- تنفيذ المشروع على خطوات مع الشرح الوافي ، من اجل الفائدة التعليمية الشاملة اعانكم الله ووفقكم ،،،

السلام عليكم مشاركة معكم احبتي انا استخدم هذا الاسلوب وهو توظيف NZ : يعرض جميع التواريخ ، ويمكن التصفية ايضا Between nz([forms]![frmReports]![txtStartDate];"01/01/1900") And nz([forms]![frmReports]![txtEndDate];"01/01/2100")

يوجد في المنتدى دروس تعليمية كثيرة للمبتدئين ، ومنها صوت وصورة انظر هنا اعانك الله ووفقك

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

اثناء فتح البرنامج او قبل تنقر على البرنامج اضغط على زر shift واستمر ضاغط وانت تفتح البرنامج سيفتح لك التصميم