جعل الحقل يضئ ويطفى بلون محدد بناء على قيمه محدده فى اكسس

[رمضان صادق]

 السلام عليكم هل بالامكان

جعل الحقل يضئ ويطفى  بلون محدد بناء على قيمه محدده فى اكسس

[Eng.Qassim]

وعليكم السلام

اجعل timer interval=1000

وفي حدث on timer للنموذج ضع الكود التالي

Private Sub Form_Timer()
If Me.txtQuantity < 5 Then
    If Me.txtQuantity.BackColor = vbWhite Then
        Me.txtQuantity.BackColor = vbRed
        Me.txtQuantity.ForeColor = vbWhite
     
     End If
     Else
        Me.txtQuantity.BackColor = vbWhite
        Me.txtQuantity.ForeColor = vbBlack
 End If
End Sub

txtQuantity مربع نص داخل النموذج يمثل الكمية مثلا

[ابو جودي]

طيب و يما ان السؤال كان

في 30‏/6‏/2022 at 12:48, رمضان صادق said:

جعل الحقل يضئ ويطفى  بلون محدد بناء على قيمه محدده فى اكسس

على اعتبار ان اسم الحقل txtQty

اجعل timer interval=300
وفي حدث on timer للنموذج ضع الكود التالي
 

Dim colorA As Long
Dim colorB As Long

  Select Case Nz(Me.txtQty, "")
    Case Is = ""
    Case 1 To 5
      colorA = 255
      colorB = 16711680
        With Me.txtQty
          .BackColor = (IIf(.BackColor = colorA, colorB, colorA))
        End With
    Case 6 To 10
      colorA = 128
      colorB = 32768
        With Me.txtQty
          .BackColor = (IIf(.BackColor = colorA, colorB, colorA))
        End With
  End Select

قم بوضه القيم من 1 : 5 تحصل على مربع يضئ ويطقئ بألوان 
وغير القيم من 6 : 10 تحصل على مربع يضئ ويطقئ بألوان مختلفة

 

المرفق

تم تحديث المرفق

 

LightSystem.mdb

[الحلبي]

معملنا وبشمهندس / @ابو جودي

تظهر لى هذه الرسالة 

 

[ابو جودي]

انا اسف كتب كلمة Long مرتين اجعلها واحدة فقط فى كل سطر

LongLong

 

تم تعديل المرفق يا دكتور @الحلبي برجاء اعد تحميل المرفق والتجربة 

[ابو جودي]

------------------------

لفد وضعت الكود على اعتبار تعدد القيم وتعدد الالوان تبعا لتعدد القيم 

بوجه عام الكود بكل بساطه 

Dim colorA As Long: colorA = 255
Dim colorB As Long: colorB = 16711680
  With Me.txtQty
    .BackColor = (IIf(.BackColor = colorA, colorB, colorA))
  End With

 

[Eng.Qassim]

3 ساعات مضت, الحلبي said:

تظهر لى هذه الرسالة 

شيء عجيب دكتور ..ليه اتكررت عندك Long

المفروض هي واحدة

[الحلبي]

بشمهندس ومروض الاكسس / @ابو جودي

تمام الله يفتح عليك ويزيد حسنات اكثر واكثر 

اشتغل مصبوظ ولا يوجد اى مشاكل

 

بشمهندس  (بالمصرى )  @Eng.Qassim

الله يكرمك  انظر للمثال المرفق من ابننا / محمد عصام 

شكر لك باشمهندس / قاسم انا عارف انك ما تقصر ابدا

[ابو جودي]

3 ساعات مضت, Eng.Qassim said:

شيء عجيب دكتور ..ليه اتكررت عندك Long

المفروض هي واحدة

انا اللى غلط واانا اكتب الكود ووضعتها مزدوجه

انا اسف اكتب بسرعة وكنت اركز فى شئ آخر

[Eng.Qassim]

6 دقائق مضت, الحلبي said:

الله يكرمك  انظر للمثال المرفق من ابننا / محمد عصام 

انا متفاجئ...طب العمل دة حصل ازاي ... انت بمجرد تكتب As  بتطلعلك الخيارات ومستحيل تتكتب مزدوجة

الا في حالة واحدة ...انه محمد عصام دايب لششتوا في الحب 🤣

[متقاعد]

26 دقائق مضت, Eng.Qassim said:

انت بمجرد تكتب As  بتطلعلك الخيارات ومستحيل تتكتب مزدوجة

ليس مستحيل اخي قاسم LongLong ضمن الخيارات عندما تعلن عن متغير وتمثل نوع بيانات عدد صحيح طويل لانظمة 64 بت

تتراوح قيمته من -9,223,372,036,854,775,808 الى 9,223,372,036,854,775,807

فاذا كنت تستخدم access 32 فانك سوف تحصل على خظا اما انظمة 64 بت فسوف يعمل

تم تعديل يونيو 30, 2022 بواسطه مبرمج سابق

[ابو جودي]

50 دقائق مضت, Eng.Qassim said:

دايب لششتوا في الحب 🤣

اى اى دايب دوووووووووووووب ☺️

50 دقائق مضت, Eng.Qassim said:

انا متفاجئ...طب العمل دة حصل ازاي ... انت بمجرد تكتب As  بتطلعلك الخيارات ومستحيل تتكتب مزدوجة

 

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

 

وهاد مثل ما ينحكى غلطة الشاطر بألف 

[متقاعد]

منذ ساعه, ابو جودي said:

وهاد مثل ما ينحكى غلطة الشاطر بألف 

لا يمثل غلطة في اعتقادي

على كل حال المتغيرات التي تمثل ارقام صحيحة

Byte يمثل عدد فردي من 0 الى 250

Integer عدد صحيح من -32,768 الى 32,767

Long عدد صحيح طويل من -2,147,483,648 الى 2,147,483,647

LongLong عدد صحيح طويل من -9,223,372,036,854,775,808 الى 9,223,372,036,854,775,807

LongPtr عدد صحيح طويل لانظمة 32 بت من -2,147,483,648 الى 2,147,483,647 وهو البديل عن LongLong

توجد متغيرات تتعامل مع الارقام كمزدوج وعملة وكسر عشري

في هذه الحالة فان الاختيار الصحيح Long وايضا LongLong اذا كنا سنعمل على 64 فقط

تحياتي

[ابو ياسين المشولي]

في 30‏/6‏/2022 at 19:32, ابو جودي said:

------------------------

لفد وضعت الكود على اعتبار تعدد القيم وتعدد الالوان تبعا لتعدد القيم 

بوجه عام الكود بكل بساطه 

مشاركة مع احي ابو جودي يمكنك ذكر اللون مباشرة بالاسم

Dim colorA As Long: colorA = vbRed
Dim colorB As Long: colorB = vbYellow
  With Me.txtQty
    .BackColor = (IIf(.BackColor = colorA, colorB, colorA))
  End With

 

 

تم تعديل يوليو 3, 2022 بواسطه ابو ياسين المشولي