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 لعلي أوصلت الفكرة

السلام عليكم ورحمة الله وبركاته الأخوة الكرام أرجو التكرم بالمساعدة مرفق قاعدة بيانات مطلوب معرفة عدد الأيام الواقعة بين الفترة 01/01/2015 من حقل TenancyٍStartRenewal و 31/12/2015 من حقل TenancyEndRenewal تحياتي وتقديري للجميع ZZZZZZZ.rar

السلام عليكم الأخوة أعضاء المنتدى المحترمين الأستاذ أبو آدم المحترم أرجو عدم نسيان الموضوع فلا زلت بانتظار الحلول الممكنة تحياتي وتمنياتي لكم بالتوفيق

السلام عليكم ورحمة الله وبركاته أرجو أن لا ينسى الموضوع

أعجبني الكود لأنه يعمل في أي حقل تقف عليه ، فأرجو أن يشتغل في النموذج الرئيسي والفرعي معا

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

عفوا الرابط بعد التعديل Just2.rar

السلام عليكم لقد أعدت تحميل قاعدة البيانات بعد اصلاحها لتعمل بشكل سليم ، أرجو المساعدة تحيااتي للجميع

السلام عليكم ورحمة الله وبركاته في قاعدة البيانات المرفقة والمصممة على أكسيس 2000 وعلى النموذج المسمى s وضعت أزرار أرقام لتستخدم كلوحة مفاتيح لكتابة الكمية في النموذج ومسح الرقم عند الخطأ، هذه الأزرار بحاجة لكود حتى تتفعل فهل يمكنكم عمل هذا الكود. مرفق قاعدة البيانات Just.rar

الأخ/ أبوخليل المراقب العام تحية طيبة وبعد أعتذر عن عبارة أدنى حاجة ، حيث قلتها ليس تقليللا من شأنك ولكن الكود لم يشتغل نهائيا الوحدة النمطية الثانية لم تشتغل نهائيا ، مما دعاني للبحث عن السبب ، ووجدت أنه يجب إزالة خاصية الالتزام بالفائمة نعم في مربع السرد والتحرير Product ID وعليه اشتغل الكود وبالتالي تسنى لي إجراء التعديل عليه بأدناه الكود بعد التعديل وهو محتاج للمسة منك أيضا حيث أريد أن يتم تحويل الخانة رقم 13 من الباركود إلى قيمة صفر على الدوام Private Sub ProductID_AfterUpdate() Dim x1, x2, x3 x1 = Mid([ProductID], 1, 7) ' x2 = Mid([ProductID], 6, 3) x3 = Mid([ProductID], 8, 3) & "." & Mid([ProductID], 11, 12) If x1 = 50001 Or x1 = 9900060 Or x1 = 9900051 Or x1 = 9900010 Or x1 = 9900000 Then ProductID = x1 ' SQty = x2 SalesPrice = x3 Call UpdatePole Else UpdatePole With CodeContextObject .SalesPrice = DLookup("[salesPrice]", "[ProductsOthers]", "[ProductID] = forms!S![sExtendedDetails].form![ProductID]") .SalesCostPrice = DLookup("[PurchasePrice]", "[LastPurchasePrice]", "[ProductID] = forms!S![sExtendedDetails].form![ProductID]") Call UpdatePole End With UpdatePole End If End Sub

المطلوب باختصار إنشاء كود بالمعني التالي إذا كان النص المدخل في مربع السرد والتحرير ProductId لا يبدأ بالنص 90001 أو النص 80001 أو 70001 أو 60001 أو 50001 فتجاهل الأوامر التالية الأوامر: إذا كان النص المدخل في مربع السرد والتحرير يبدأ بالنص 90001 أو النص 80001 أو 70001 أو 60001 أو 50001 فنفذ الأمر التالي: ضع الأرقام الخمسة الأول في مربع السرد والتحرير ProductId ضع الأرقام الثلاثة التالية في حقل SQty ضع الأرقام الخمسة التالية في حقل SalesPrice بصيغة 000.00