ابوخليل

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

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

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

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

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

مشاركة مع اخوتي .. تم تحقيق الفكرة مع مراعاة تغير نظام الحضور ( الشتوي / الصيفي) Public Function funTestTimes() On Error GoTo err_idt Dim idt As String idt = DLookup("[hour_no]", "[Ttime]", "[time_from] <=#" & Time() & "# And [time_to] >=#" & Time() & "# ") funTestTimes = idt err_exit: Exit Function err_idt: If idt = "" Then MsgBox "لا يوجد حصص في الوقت الحالي" Resume err_exit End If End Function TT2.rar

اخونا @شايب لا يرغب . 🏃‍♂️ وعند جهينة الخبر اليقين . دعوني اشق القربة 😳 .. سبق لأخينا شايب ان حصل على الترقية مرتين ونحن ننزل عند رغبة استاذنا .. ولا نزيد ..

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

بمتابعة مشرفي الموقع واخص مدير الموقع @محمد طاهر عرفه و زملائي @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

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