AbuuAhmed

وعليكم السلام كان عندك لخبطة في اسماء صناديق النص.

تم التعديل expire date_05.accdb

لقت نظري استخدام المهندس قاسم حدث: Private Sub X1_KeyUp(KeyCode As Integer, Shift As Integer) وقد يكون خيارا صائبا كبديل لحدث "عند التحديث" حتى لا يدخل في عملية تكرار الحدث عند معالجة النص. سأقيم عليه تجارب فلعله يريحنا من مشكلات عدة.

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

حسبي الله ونعم الوكيل قلتها سابقا وتوقعت أن ما يحدث في المنتدى هو تصرفات "جمعية" وليست فردية ولكن سامح الله أحد الإداريين الذي أخفى تلك المشاركة. هذه آخر مشاركة لي في هذا الموضوع. شرح مشكلة استعلام "ZX": - لقد اجتهد أخونا العزيز "شايب" في تشخيص المشكلة ولكن جانبه الصواب في المعالجة، فقد كان الربط سليما ولم يكن يحتاج إلى تعديل وإنما المشكلة كانت في حقل اسم الصنف حيث يجب أن يؤخذ من جدول المشتريات وليس المبيعات. ولماذا؟ ... لأن جدول المشتريات سيحتوي على كل الأصناف التي ستباع "منطقي" ولكن ليس كل الأصناف المشتراة ستجدها في المبيعات لعدم حصول أي عمليات بيع عليها. - هذا كان حلي السابق في النسخة 03 بؤخذ الاسم من جدول المشتريات ولكن حتى هذا الحل لن يصمد كثيرا للبرامج التي تعتمد مع نهاية كل سنة الترصيد وإلغاء عمليات الشراء والبيع. والحل هو أن يضاف جدولا ثالثا على الاستعلام وهو جدول الأصناف ليربط به جدولي المشتريات والمبيعات ومن ثم يؤخذ الاسم من جدول الأصناف. مرفق مثال نسخة 04 والأخيرة من جانبي. احتفظت بالاستعلام القديم كما هو وعملت التعديل على استعلام آخر بنفس الاسم ليسهل عملية المقارنة وفهم التعديل. expire date_04.accdb

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

expire date_03.accdb 4.13 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads توثيق. طبعا حتى هذا الحل لدي حل أفضل وأصح وأكثر منطقية منه، ننتظر. زمن غريب أن يطلب مقدم الحل لفت نظر السائل للتجاوب معه 🙂

"اقرأ النص ولا تقرأ كاتب النص" هناك خطأ أنا أصلحته (لن أعلن عنه الآن) في الموضوع السابق. اختبر الأرصدة أولا ثم بعده واصل في موضوعك هذا. المرفق هنا لا يصلح لهذه الخطوة. 🙂 اسمع الكلام حبيبي.

أنا عملت لك تعديل مختلف عن تعديلي وتعديل زميلي @شايب جرب وخبرني expire date_03.accdb

طيب أشركنا معك في الفائدة، أذكر لنا تعديلك وارفع لنا المثال مرة أخرى بعد التعديل. وجزاك الله خيرا.

بدل السطر الذي يتعطل عنده "التشغيل" بهذا: PrName = Nz(Rs1![Item_Name], "") علما هذا ستجنب القيمة null ولكن لا أعلم إذا سؤثر في النتائج أم لا. من الجيد أن تطلب من كاتب الكود التداخل فهو أعلم بما كتب.

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

جرب هذا المثال تم تبديل المرفق بسبب هفوة صغيرة 🙂 Aziz5_05.accdb

سلوك مرفوض ومعرف مخالف.

اقترح عليكم بدلا من عمل جدولين، الاكتفاء بجدول واحد مع إضافة حقلين Deleted نعم/لا والآخر تاريخ الحذف ثم تحدث الحقلين دون الحاجة لإزالة السجل. أو يمكن الاكتفاء بحقل تاريخ الحذف فقط فإذا كان يحتوي على تاريخ فهو محذوف وإذا كان خال فهو غير محذوف.

يوجد لدي حل أفضل من كل الحلول السابقة ولكن مع الاعتذار من السائل تحتاج أن تقدم إلى مبرمج متقدم ليستطيع هضمه والتعامل معه، ربما لاحقا أنزل مثال مستقل وربما لا 🙂. لأن هذا الحل ممكن التحايل عليه ويحدث التكرار.

إضافة بسيطة على كود الحذف: If Me.NewRecord Then MsgBox "لا يوجد سجلات لحذفها!!" Else If MsgBox("هل انت متأكد من حذف السجل الحالي", vbYesNo + vbQuestion) = vbYes Then DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO [a copy] ( id, name, age, [date], [time], user_name ) " & _ "SELECT a.id, a.name, a.age, Date() AS d, Time() AS t, CurrentUser() AS [user] " & _ "FROM a WHERE (((a.id)=[forms]![form1]![id]));" DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 Else Exit Sub End If End If

مثال للكود عند الزيادة: With Me.dDATE .Value = .Value + 1 .DefaultValue = "Dateserial(" & Year(.Value) & "," & _ Month(.Value) & "," & _ Day(.Value) & ")" End With

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

من مشكلاتنا هي ملاحقة الفشل لنا في ما نقدم من حلول بسبب السائلين وبعض الزملاء "المنافسين 🙂"، وهذه متكررة بشكل كبير وأنا أعاني منها كثيرا وربما أكثر من غيري، بعض السائلين يجسد قول أدونيس: "مشكلتنا أننا لا نقرأ النص بل نقرأ كاتب النص!" من اليوم وصاعدا لن أقدم حلا ضمن مثال السائل، بل سأقطع الجزء الخاص بالسؤال ليكون الحل واضحا ولأستطيع أن ألجم به كل مدع بعدم حصوله على الحل المطلوب. أنا أتحدث بشكل عام ولمشكلة عامة أخي @elmozy525 ولا أوجه هذا الكلام لشخصك الكريم بشكل خاص، فلا تشغل نفسك بالرد والإسهاب بالتفاصيل. مرفق المثال مرة أخرى بالطريقة التي اعتمدتها من اليوم، فهل من مخطئ لحلي؟. جمعية_05.accdb

🙂 جميل، استفدنا منكم. المرات الجاية أحاول تكون حلولي صحيحة.

وهذه مساهمة مني كذلك بنفس فكرة أبو خليل مع بعض الاختلافات البسيطة. جمعية_03.accdb

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

محاولة مني، ربما هناك أفكار أفضل. أضفت لك صندوق لعدد السجلات، بدل في العدد وسوف يتكيف النموذج مع العدد المطلب. يمكنك كذلك التعديل في الكود في ثوابت الأرقام بالزيادة البسيطة أو النقصان. Aziz5_02.accdb

مثال لعرض الكل في صندوق تسمية واحد. AllCaptionsInOne_03.accdb