ابوخليل

تفضل 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

وعليكم السلام استخدام الحروف العربية تسبب لخبطة في ترتيب الجمل داخل الكود مما يصعب فهمه بل يستحيل هذا تعديل للكود بطريقتك if DLookup("[الرف]","التمام_ترحيل","[الرف]='" & [الإلكترونيات] & "'" and "[التاريخ]=#" & date() & "#" )Then وهذا تعديل بعد كتابة الحروف بطريقة صحيحة يفهمها طالب العلم if DLookup("[raf]","tmamTrhel","[raf]='" & [Electronyat] & "'" and "[tareekh]=#" & date() & "#" )Then

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

وعليكم السلام ورحمة الله جرب حول المرفق الى صيغة mdb لعلك تجد تفاعلا اكثر

انظر هنا

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

قيد النظر ...

هلا استاذ كرار .. وينك اخوي ؟ .. فاقدينك ان شاء الله بخير وعافية تفضل هذا الكود من محفوظاتي : Option Compare Database Private Declare Function SetWindowLong Lib "user32" Alias _ "SetWindowLongA" (ByVal hWnd As Long, ByVal nindex As Long, _ ByVal dwnewlong As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias _ "GetWindowLongA" (ByVal hWnd As Long, ByVal nindex As Long) As Long Const WS_CLOSEBOX = &H80000 Const GWL_STYLE = (-16) Sub RemoveCloseBox() Dim i As Long Dim hWnd As Long hWnd = Application.hWndAccessApp i = GetWindowLong(hWnd, GWL_STYLE) i = i And Not (WS_CLOSEBOX) i = SetWindowLong(hWnd, GWL_STYLE, i) End Sub Private Sub Form_Open(Cancel As Integer) RemoveCloseBox End Sub Private Sub Form_Close() DoCmd.Quit End Sub اخفاء ايقونة اطار.rar

يمكن اخفاء زر الاغلاق ولكن سيختفي ضمنا زري التكبير والتصغير ما رأيك ؟

تفضل تم عمل المطلوب QT2016Up.rar

في الاعدادت خصائص النموذج / لسان التبويب تنسيق اجعل القيمة : زر الاغلاق = لا

ما الرابط بين هذه الاسماء وكيف سيتعرف اكسس على الأب و بنيه وزوجته يوجد اكثر من واحد من الآباء اسمه احمد و خليل و .. الخ

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

هذا تطبيق للكود اعلاه تجد في الحدث سطرين واحد لتشغيل القاعدة الثانية حين تكون بجانب الاولى وهو المفعل الآن والثاني لتشغيل القاعدة الثانية من اي مكان وعليك فقط ضبط الامتداد ، وهو الآن غير مفعل AB.rar