Alhaithm

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

لسلام عليكم ورحمة الله وبركاته أعزائي الكرام أريد تعديل على الكود أدناه بحيث يقوم بتقسيم ما يقرأة قاري الباركود من أرقام في حقلين يضع في الحقل الأول الأرقام الستة الأولى من الباركود ، ويضع بقية الأرقام في حقل السعر علما بأن ما يوضع على حقل السعر قد يحتوي مبالغ على النحو الآتي: 2972.00 أو 972.05 أو ، 75.15 أو 1.14 أو .052 والباكود كاملا يكون بهذا الشكل: 2150023942.75 21500357.75 2150045.77 215005267.75 الأزرق هو كود الصنف والأسود السعر مرفق قاعدة بيانات بها كود صممته العملاقة زهرة سنة 2012 لنفس قاعدة البيانات ولكن كانت مهمته تقسيم الباكورد على 3 حقول (رمز الصنف و الكمية و السعر) وقد أجريت على كود زهرة التعديل أدناه وقد نجح هذا التعديل ولكن ظلت مشكلة الفلسات يتجاهلها قارئ الباركود Dim xProductID, xSalesPrice xProductID = Mid([ProductID], 1, 6) xSalesPrice = Format(Mid([ProductID], 7, 4), "0000") If xProductID = 215002 Or xProductID = 215003 Or xProductID = 215004 Then ProductID = xProductID SalesPrice = xSalesPrice za-Exam-UP2.rar

اشتغل الكود في كل الأحول بعد التحديث وعند التحميل ضل محافظا على الألوان ، وكذلك بعد الخروج من النموذج وفتحه مرة أخري ثبتت أيضا الألوان وعند تغيير قيمة حقل ANC أيضا ثبتت فهل لك ملاحظة أو تعديل علماء بأن عدد الحقول التي سيطبق عليها هذا الكود في النموذج نفسه 34 حقل كل حقل بقيمة مختلفة من حيث أكبر قيمة وأصغر قيمة ، الثابت فقط اللون أزرق ,احمر وأسود افتراضي ، وحقل ANC فقط 1 أو 2 أما حقل TR1 فعددها 34 بتسلسل TR1 , TR2 , TR3 وهكذا فهل من اختصار تحياتي وتقديري

للفائدة Private Sub Form_Current() Me.TR1.ForeColor = 0 If Me.ANC = 1 Then If Me.TR1 > 16 Then Me.TR1.ForeColor = 16711680 If Me.TR1 < 11 Then Me.TR1.ForeColor = 255 ElseIf Me.ANC = 2 Then If Me.TR1 > 12 Then Me.TR1.ForeColor = 16711680 If Me.TR1 < 8 Then Me.TR1.ForeColor = 255 Else Me.TR1.ForeColor = 0 End If End Sub ثم Private Sub TR1_AfterUpdate() Me.TR1.ForeColor = 0 If Me.ANC = 1 Then If Me.TR1 > 16 Then Me.TR1.ForeColor = 16711680 If Me.TR1 < 11 Then Me.TR1.ForeColor = 255 ElseIf Me.ANC = 2 Then If Me.TR1 > 12 Then Me.TR1.ForeColor = 16711680 If Me.TR1 < 8 Then Me.TR1.ForeColor = 255 Else Me.TR1.ForeColor = 0 End If End Sub ثم Private Sub ANC_AfterUpdate() Me.TR1.ForeColor = 0 If Me.ANC = 1 Then If Me.TR1 > 16 Then Me.TR1.ForeColor = 16711680 If Me.TR1 < 11 Then Me.TR1.ForeColor = 255 ElseIf Me.ANC = 2 Then If Me.TR1 > 12 Then Me.TR1.ForeColor = 16711680 If Me.TR1 < 8 Then Me.TR1.ForeColor = 255 Else Me.TR1.ForeColor = 0 End If End Sub أما في التقرير Private Sub Report_Activate() Me.TR1.ForeColor = 0 If Me.ANC = 1 Then If Me.TR1 > 16 Then Me.TR1.ForeColor = 16711680 If Me.TR1 < 11 Then Me.TR1.ForeColor = 255 ElseIf Me.ANC = 2 Then If Me.TR1 > 12 Then Me.TR1.ForeColor = 16711680 If Me.TR1 < 8 Then Me.TR1.ForeColor = 255 Else Me.TR1.ForeColor = 0 End If End Sub واشتغل الكود في كل الأحول بعد التحديث وعند التحميل ضل محافظا على الألوان ، وكذلك بعد الخروج من النموذج وفتحه مرة أخري ثبتت أيضا الألوان وعند تغيير قيمة حقل ANC أيضا ثبتت فهل لك ملاحظة أو تعديل علماء بأن عدد الحقول التي سيطبق عليها هذا الكود في النموذج نفسه 34 حقل كل حقل بقيمة مختلفة من حيث أكبر قيمة وأصغر قيمة ، الثابت فقط اللون أزرق ,احمر وأسود افتراضي ، وحقل ANC فقط 1 أو 2 أما حقل TR1 فعددها 34 بتسلسل TR1 , TR2 , TR3 وهكذا فهل من اختصار تحياتي وتقديري

شكرا على الاهتمام جربت الكود في النموذج إذا غير اللون مرة ما يغير مرة أخرى حتى لو عملت رفريش للنموذج أعني أن لم يكن فعال

مطلوب كود لتغير لون الخط في حقل رقمي في النموذج وفي التقرير عندما يتحقق شرطان ، شرط في قيمة الحقل وشرط في قيمة حقل آخر في نفس النموذج. للتوضيح إذا كانت قيمة الحقل الحالي TR أكبر من 16 وكانت قيمة الحقل ANC في النموذج تساوي 1 فيجب أن يكون لون الخط في الحقل TR أحمر ، ولكن إذا كانت أقل من 10 فيجب أن يكون لون الخط في الحقل TR أزرق وإذا كانت قيمة الحقل الحالي TR أكبر من 18 وكانت قيمة الحقل ANC في النموذج تساوي 2 فيجب أن يكون لون الخط في الحقل TR أحمر ، ولكن إذا كانت أقل من 7 فيجب أن يكون لون الخط في الحقل TR أزرق أرجو أن أحصل على هذا الكود مع تحياتي وتقديري

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

قاعدة البيانات ليست مشاركة وهي على جهاز كمبيوتر واحد

الأخوة الأعزاء تظهر هذه الرسالة الإجرائية المرفقة في النموذج عند تنفيذ حدث ولا يتم يتم تنفيذ هذا الحديث وذلك في أكسيس 2010 فقط بينما لا تظهر الرسالة بتاتا في أكسيس 2000 ويتم نفيذ الحدث أرجو المساعدة في تعطيل هذه الرسالة ولكم خالص التقدير ALARM.bmp

شكرا أستاذنا أبو خليل بعد تركيب الكود أعلاه في الزر Print ظهرت رسالة خطأ عدم وجود حقل لم يتم تنفيذ المطلوب ياحبذا لو جربت الكود عندك على النموذج المرفوع والإفادة جزاك الله خيرا

مع شكري وتقديري هذا لا يفيد مع كل كبسة زر Print لازم تعمل Tab وكان مطلبي واضح كبسة زر واحدة تعبأ جميع الحقول مرة واحدة

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

جزاك الله خيرا أخونا الكريم أبوخليل ما تفضلت به هو المطلوب تحياتي وتقديري

للرفع مع تحياتي لكل من شاهد الموضوع

أشكرك على الاهتمام ، ولكن ليس ذلك هو المطلوب وسأوضح السؤال بطريقة أخرى من حقل TenancyٍStartRenewal إحتساب التواريخ التي تكون ضمن العام 2015 فقط ومن حقل TenancyEndRenewal إحتساب التواريخ التي تكون ضمن العام 2015 فقط يعني لو كان التاريخ في حقل TenancyٍStartRenewal 12/03/2011 فنحسب فقط من 01/01/2015 وفي نفس الوقت كان التاريخ في حقل TenancyEndRenewa 25/07/2015 فنحسب فقط إلى هذا التاريخ وأما إذا كان 17/06/2017 فلا نحتسب مازاد عن 31/012/2015 لعلي أوصلت الفكرة