ابوخليل

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

الواتس محجوب الصوت عندنا أسأل الله ان يعينكم ويييسر اموركم

اخي الكريم انظر المرفق وتفحص الجداول جيدا واعتقد ان التأسيس يحتاج الى زيادة نقاش ، من اجل تحليل البيانات واستيعاب وتصور المشروع لذا ان امكن التحادث عبر احد برامج المحادثة فهو افضل testbeirut2.rar

السلام عليكم تم التعديل وهو اضافة الدالة Btween الى المعيار Copy3.rar

المرفق سليم يمكن المشكلة عندك في المتصفح وتفضل مرة اخرى test2 (1).rar

تفضل انقر F2 ولاحظ يجب ان يكون التركيز واقع على النموذج Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF2 Then DoCmd.OpenForm "A1", acNormal End If End Sub db.rar

تفضل امل ان يكون التعديل هو مطلوبك test2.rar

بمشيئة الله سوف ارسم لك الخطوط العريضه وارفق لك تطبيقا من مثالك .. فقط امهلني .. وذكرني ان نسيت

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

وعليكم السلام تحتاج الى جدول ونموذج لادخال البيانات اما التنبيه فمن خلال رسالة او نموذج ينبثق عند فتح البرنامج ويتم عملة بالاستعانة بالكود او استعلام فمثلا الاستعلام ندخل فيه تاريخ انتهاء الفترة ونعمل حقل جديد يخرج الفارق بينه وبين تاريخ اليوم الحالي فاذا كان الفارق 3 ايام او اقل ينبثق النموذج او الرسالة عند فتح البرنامج لتخبرك بذلك

وعليكم السلام طبعا العمل هذا عليه كلام لانه غير منضبط تماما لانك ستجد زيادة او نقص في البيانات المطلوب : نفرض ان سعاد قد تزوجت بأكثر من شخص ولها منهم ابناء فبكل بساطة يمكن ان تظهر سعاد في دفتر نفوس كل واحد منهم ، وبالمقابل لو اخترنا سعاد لظهر في دفتر نفوسها ابناءها جميعهم لو قمتم بحملة جماعية لترتيب البيانات يجب ان يشتمل الجدول على ثلاث حقول الزامية : 1- رقم هوية الأب 2- رقم هوية الأم 3- رقم هوية الشخص نفسه لان اولاد اليوم سيكونون غدا آباء وأمهات وتكون الاسماء موزعة على جدولين جدول للآباء وجدول للابناء وبعد بضع عشر ة سنة او عشرين ان امد الله في عمرك ستعمل جدولا فرعيا لجدول الابناء وهكذا ... فإذا قلنا ان الجيل 30 سنة فبعد 90 سنة من الآن سيكون حصيلتنا 4 جداول فقط تحتضن ثلاثة اجيال

الافضل للتقرير المجمع انه يكون على هذا النحو ويمكنك استبدال النماذج الفرعية الموجودة في التقرير بتقارير فرعية Copy22.rar

واذا اردت حلا اسهل فهذا السطر يفي بالغرض If Not IsNull(txtSaveOpérateur) Then Exit Sub

تفضل Private Sub Check1_AfterUpdate() If Check1 = True Then Check15.Enabled = False Check16.Enabled = False Else Check15.Enabled = True Check16.Enabled = True End If End Sub PerDiemProgrming.rar

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

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

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

عملت لك المثال بالوحدة النمطية المسؤولة عن التحويل الى هجري ولا تنسى ابو هادي صاحب العمل من دعواتك الآن اذا اردت ان تدخل تاريخ اليوم الحالي اكتب الدالة () UmDate بدلا من Date ايضا يمكنك استخدام جميع دوال التاريخ الانجليزية في التاريخ الهجري فقط اضف قبلها الحرفين Um ولا تنسى القوسين المعقوفين راجع الوحدة النمطية العامة وادرسها جيدا وستعلم الجهد والابداع في هذا العمل حقل التاريخ الميلادي الموجود في الجدول ضروري فقد تحتاجه مستقبلا tamam3.rar

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

تفضل تم تعديل مصدر التقارير Copy3.rar

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

بالنسبة لي فأني لم اهتد الى طريق لحل مسألتك حتى الآن وسأحاول في ما يسمح به وقتي ان استطعت فمعذرة اخي الكريم

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

تفضل خانة الاختيار قيمتها : اما سالب واحد ، او صفر ويمكن ان تأخذ قيمة منطقية : True Or False Progrming2.rar

تفضل تم تعديل الكود ويعمل بكفاءة عندي لا يعمل بسبب التاريخ الهجري واعتقد السبب في النظام عندي جرب ووافني بالنتيجة Dim i As Integer i = DCount("id", "tamam_tarhel", "raf='" & "electronic" & "'" & " And tarekh=#" & Date & "#") If i > 0 Then Me.av.BackColor = 64636 Me.av.ForeColor = 9382400 Else Me.av.BackColor = 2037680 Me.av.ForeColor = 16053492 End If