Alhaithm

نوفمبر 8, 2018

أخي الكريم تم استبدال سطر التعديل وتجربته بنجاح

شكرا لك

توضيحا لتعجبك أنك لم ترى باركودات بهذا الشكل:

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

نوفمبر 8, 2018

لسلام عليكم ورحمة الله وبركاته

أعزائي الكرام أريد تعديل على الكود أدناه بحيث يقوم بتقسيم ما يقرأة قاري الباركود من أرقام في حقلين يضع في الحقل الأول الأرقام الستة الأولى من الباركود ، ويضع بقية الأرقام في حقل السعر علما بأن ما يوضع على حقل السعر قد يحتوي مبالغ على النحو الآتي: 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

مارس 20, 2017

اشتغل الكود في كل الأحول بعد التحديث وعند التحميل ضل محافظا على الألوان ، وكذلك بعد الخروج من النموذج وفتحه مرة أخري ثبتت أيضا الألوان وعند تغيير قيمة حقل ANC أيضا ثبتت

فهل لك ملاحظة أو تعديل علماء بأن عدد الحقول التي سيطبق عليها هذا الكود في النموذج نفسه 34 حقل كل حقل بقيمة مختلفة

من حيث أكبر قيمة وأصغر قيمة ، الثابت فقط اللون أزرق ,احمر وأسود افتراضي ، وحقل ANC فقط 1 أو 2

أما حقل TR1 فعددها 34 بتسلسل TR1 , TR2 , TR3 وهكذا فهل من اختصار

تحياتي وتقديري

مارس 20, 2017

للفائدة

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 وهكذا فهل من اختصار

تحياتي وتقديري

مارس 20, 2017

شكرا على الاهتمام

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

أعني أن لم يكن فعال

مارس 20, 2017

مطلوب كود لتغير لون الخط في حقل رقمي في النموذج وفي التقرير عندما يتحقق شرطان ، شرط في قيمة الحقل وشرط في قيمة حقل آخر في نفس النموذج.

للتوضيح

إذا كانت قيمة الحقل الحالي TR أكبر من 16 وكانت قيمة الحقل ANC في النموذج تساوي 1 فيجب أن يكون لون الخط في الحقل TR أحمر ، ولكن إذا كانت أقل من 10 فيجب أن يكون لون الخط في الحقل TR أزرق

وإذا كانت قيمة الحقل الحالي TR أكبر من 18 وكانت قيمة الحقل ANC في النموذج تساوي 2 فيجب أن يكون لون الخط في الحقل TR أحمر ، ولكن إذا كانت أقل من 7 فيجب أن يكون لون الخط في الحقل TR أزرق

أرجو أن أحصل على هذا الكود مع تحياتي وتقديري

مايو 5, 2016

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

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

مايو 4, 2016

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

مايو 4, 2016

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

بينما لا تظهر الرسالة بتاتا في أكسيس 2000 ويتم نفيذ الحدث

أرجو المساعدة في تعطيل هذه الرسالة ولكم خالص التقدير

ALARM.bmp

مايو 4, 2016

شكرا أستاذنا أبو خليل

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

ياحبذا لو جربت الكود عندك على النموذج المرفوع والإفادة

جزاك الله خيرا

مايو 1, 2016

مع شكري وتقديري

هذا لا يفيد مع كل كبسة زر Print لازم تعمل Tab

وكان مطلبي واضح كبسة زر واحدة تعبأ جميع الحقول مرة واحدة

مايو 1, 2016

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

مع تحياتي وتقديري

DataUpdate.rar

أبريل 10, 2015

جزاك الله خيرا أخونا الكريم أبوخليل

ما تفضلت به هو المطلوب

تحياتي وتقديري

أبريل 10, 2015

للرفع

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

أبريل 9, 2015

أشكرك على الاهتمام ، ولكن ليس ذلك هو المطلوب وسأوضح السؤال بطريقة أخرى

من حقل TenancyٍStartRenewal إحتساب التواريخ التي تكون ضمن العام 2015 فقط

ومن حقل TenancyEndRenewal إحتساب التواريخ التي تكون ضمن العام 2015 فقط

يعني لو كان التاريخ في حقل TenancyٍStartRenewal

12/03/2011 فنحسب فقط من 01/01/2015 وفي نفس الوقت كان التاريخ في حقل TenancyEndRenewa

25/07/2015 فنحسب فقط إلى هذا التاريخ وأما إذا كان 17/06/2017 فلا نحتسب مازاد عن 31/012/2015

لعلي أوصلت الفكرة

أبريل 9, 2015

السلام عليكم ورحمة الله وبركاته

الأخوة الكرام أرجو التكرم بالمساعدة

مرفق قاعدة بيانات

مطلوب معرفة عدد الأيام الواقعة بين الفترة 01/01/2015 من حقل TenancyٍStartRenewal

و 31/12/2015 من حقل TenancyEndRenewal

تحياتي وتقديري للجميع

ZZZZZZZ.rar

مايو 10, 2014

السلام عليكم

الأخوة أعضاء المنتدى المحترمين

الأستاذ أبو آدم المحترم

أرجو عدم نسيان الموضوع فلا زلت بانتظار الحلول الممكنة

تحياتي وتمنياتي لكم بالتوفيق

أبريل 25, 2014

السلام عليكم ورحمة الله وبركاته

أرجو أن لا ينسى الموضوع

أبريل 23, 2014

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

أبريل 23, 2014

السلام عليكم ورحمة الله وبركاته

الأخ/ أبو آدم المحترم

أشكرك على تفاعلك ، وآسف لعدم اطلاعي على الموضوع الإ صباح اليوم

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

أرجو منك المتابعة لاستكمال الموضوع

تحياتي لك

أبريل 20, 2014

عفوا الرابط بعد التعديل

Just2.rar

أبريل 20, 2014

السلام عليكم

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

تحيااتي للجميع

أبريل 19, 2014

السلام عليكم ورحمة الله وبركاته

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

مرفق قاعدة البيانات

Just.rar

يوليو 21, 2012

^{الأخ/ أبوخليل المراقب العام}

^{تحية طيبة وبعد}

^{أعتذر عن عبارة}^{أدنى حاجة ،}^{حيث قلتها ليس تقليللا من شأنك ولكن الكود لم يشتغل نهائيا}

^{الوحدة النمطية الثانية لم تشتغل نهائيا ، مما دعاني للبحث عن السبب ، ووجدت أنه يجب إزالة خاصية الالتزام بالفائمة نعم في مربع السرد والتحرير} 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

يوليو 19, 2012

المطلوب باختصار إنشاء كود بالمعني التالي

إذا كان النص المدخل في مربع السرد والتحرير ProductId لا يبدأ بالنص 90001 أو النص 80001 أو 70001 أو 60001 أو 50001 فتجاهل الأوامر التالية

الأوامر:

إذا كان النص المدخل في مربع السرد والتحرير يبدأ بالنص 90001 أو النص 80001 أو 70001 أو 60001 أو 50001 فنفذ الأمر التالي:

ضع الأرقام الخمسة الأول في مربع السرد والتحرير ProductId

ضع الأرقام الثلاثة التالية في حقل SQty

ضع الأرقام الخمسة التالية في حقل SalesPrice بصيغة 000.00

تسجيل الدخول

المنتدى

مكتبة الموقع

معرض الصور

المدونات

الوسائط المتعددة

مشاركات المكتوبه بواسطه Alhaithm

Important Information