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

[رمضان صادق]

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

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

[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 10:48, رمضان صادق said:

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

Expand  

على اعتبار ان اسم الحقل 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.mdbFetching info...

[الحلبي]

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

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

 

[ابو جودي]

انا اسف كتب كلمة 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]

  في 30‏/6‏/2022 at 16:20, الحلبي said:

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

Expand  

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

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

[الحلبي]

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

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

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

 

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

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

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

[ابو جودي]

  في 30‏/6‏/2022 at 16:34, Eng.Qassim said:

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

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

Expand  

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

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

[Eng.Qassim]

  في 30‏/6‏/2022 at 19:48, الحلبي said:

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

Expand  

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

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

[متقاعد]

  في 30‏/6‏/2022 at 19:59, Eng.Qassim said:

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

Expand  

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

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

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

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

[ابو جودي]

  في 30‏/6‏/2022 at 19:59, Eng.Qassim said:

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

Expand  

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

  في 30‏/6‏/2022 at 19:59, Eng.Qassim said:

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

 

Expand  

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

 

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

[متقاعد]

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

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

Expand  

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

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

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 16: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

 

Expand  

 

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