ابوخليل

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

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

ليست المخالفة في العنوان فقط مخالفات عدة لقواعد المشاركة .. وتوصيات للرقي بالمنتدى اعتاد اخونا الكريم على تركها 29. يجب أن يكتب صاحب الموضوع في حالة حل مشكلته أن المشكلة قد حلت ليتوقف الأعضاء من الاستمرار في حل المشكلة. 30. من الجميل أن تتبع الإجابة عن سؤالك بشكر لمن ساعدك، وبإخبار عن النتيجة، العديد يتابع الأسئلة، ويود أن يعرف عن النتيجة، فمن واجب السائل أن يشكر من حاول مساعداته بالنقر على زر الإعجاب، وأن يختار خيار أفضل إجابة ليعرف الجميع أن موضوعه قد تم حله بطريقة مرضية. نأمل ان تكون عضوا فاعلا ،،،

شكرا لك استاذ محمد لنقلك الفائدة اعيد الحل مع معالجة احتمال التداخل او ما اسميتها بالثغرة Dim Date1, Date2, tstDate As Date Private Sub Cstart_BeforeUpdate(Cancel As Integer) tstDate = Me.Cstart Date1 = DMax("[Cstart]", "courses", "[num] =" & Me.num) Date2 = DMax("[Cend]", "courses", "[num] =" & Me.num) If (tstDate >= Date1) And (tstDate <= Date2) Then Cancel = True MsgBox "يوجد دورة مسجلة بهذا التاريخ " Me.Undo End If End Sub Private Sub Cend_BeforeUpdate(Cancel As Integer) If (Me.Cend >= Date1) Then Cancel = True MsgBox "يوجد دورة مسجلة بهذا التاريخ " Me.Undo End If End Sub دورات2.accdb

مشاركة مع احبتي واقتباس من ابي جودي لاحظ تغير مسميات الحقول في النموذج Private Sub Cstart_BeforeUpdate(Cancel As Integer) Dim Date1, Date2, tstDate As Date tstDate = Me.Cstart Date1 = DMax("[Cstart]", "courses", "[num] =" & Me.num) Date2 = DMax("[Cend]", "courses", "[num] =" & Me.num) If (tstDate >= Date1) And (tstDate <= Date2) Then Cancel = True: Me.Undo: MsgBox "nooooooooooo" End Sub

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

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

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

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

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

المشكلة لديك في تسمية الحقل عدل اسم الحقل N° في الجدول وايضا في النموذج الى Num مثلا ثم عدله ايضا في الكود

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

او هذا : DoCmd.OpenReport "اسم التقرير",acViewNormal

يجب تغيير اسم الصورة داخل الكود انظر الى اسماء الصور .. خاصة الحالية ، وانظر مكانها من الكود غير الاسم (اللي هو المفتاح في الخصائص) حسب الاختيار

قمت بالتعديل على المثال بحيث يكون سهل التناول انظر الى الصور التوضيحية شجرة العائلة متصفح.mdb

يبدوا ان المبرمجين هم اسرع الناس نسيانا هذا النقاش تم بينننا سابقا ولو اسعفتني ذاكرتي قبل اجابتي الأولى ، لأحلت السائل الى هذا الموضوع الأصل المماثل .. وفيه زيادة اضافة فريدة لأستاذنا المهندس @Eng.Qassim

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

سبحان الله اخي تم تنبيهك الى اهمية العنوان في موضوعك السابق .. يجب ان نولي المصلحة العامة اهتمامنا

expe1:GetMonths30([TxtDate1];[TxtDate2]) لاحظ اختلاف الفاصلة على اعتبار TxtDate1 و TxtDate2 حقول في الاستعلام او الجدول المصدر

Recordset.RecordCount تعد السجلات والجمع انما هو للحقول .. اي اننا سنجمع حقل محدد ضمن مجموعة السجلات sum نستخدمها في الاستعلامات وايضا في النموذج او التقرير لجمع حقل محدد وينطبق هذا ايضا على Count مفردة للعد اما جمع حقل في محرر الفيجوال فانت مخير بين طريقتين : اما ان تصنع جملة استعلام بالمطلوب واما ان تستخدم الدالة DSum

استخدم هذه الدالة Function GetMonths30(Date1 As Date, Date2 As Date) As Long Dim d1, m1, d2, m2 As String Dim y1, y2 As Integer Dim sum_d, sum_m, sum_y, sum_days As Integer Dim tst1, tst2 As Long d1 = Format(Day(Date1), "00"): d2 = Format(Day(Date2), "00") m1 = Format(Month(Date1), "00"): m2 = Format(Month(Date2), "00") y1 = Year(Date1): y2 = Year(Date2) tst1 = y1 & m1 & d1: tst2 = y2 & m2 & d2 If tst2 < tst1 Then Exit Function sum_d = Abs(Int(d2) - Int(d1)) sum_m = Abs(Int(m2) - Int(m1)) * 30 sum_y = (y2 - y1) * 360 sum_days = sum_y + Abs(sum_m - sum_d) GetMonths30 = sum_days End Function ويتم مناداتها لحساب المدة بين تاريخين هكذا : Me.txtDays = GetMonths30(Me.TxtDate1, Me.TxtDate2)

اخي الكريم يجب الاهتمام باختيارك للعنوان المناسب الذي يصف الموضوع . كي لا تعرض موضوعك للاغلاق

جرب هذا استبدله بدل الموجود في مصدر تحكم الحقل : =Nz([tx23])+NZ([tx24])+NZ([tx25])

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