เลือกค่าใน Combo​ Box​ แล้วให้แสดงค่าใน​ TextBox

[ต้นนาโน]

ขอความช่วยเหลือจาก อาจารย์​ทุกๆท่านครับคือผมต้องการเลือกค่าใน Combo​ Box​ ​  ชื่อว่า​ Ohms​  ถ้าเราเลือกค่า 10E04-10E09​ ให้แสดงใน​ TextBox​ ชื่อว่า​ Accept/Reject​  เป็น​ Accept​ แล้วมีสีเขียวใน​TextBox​  ด้วยอ่ะครับ​ แล้ว​ 10​E10-10E12​ ให้แสดงใน​Text​Box​ เป็น​ Reject​ แล้วมีสีแดงใน​TextBox​ ครับผมต้องเขียนCode แบบไหนเอ่ยครับผม

[ปิ่นณรงค์]

ผมสมมุติ Combobox ชื่อ Ohms และ textbox ของ Accept/Reject​ ชื่อ AandR
 

โค๊ด: [Select]

Private Sub Ohms_AfterUpdate()
   Dim lngRed As Long, lngGreen As Long
   
        lngRed = RGB(255, 0, 0)
        lngGreen = RGB(50, 205, 50)
     
       
If Me.Ohms >= "10E04" And Me.Ohms <= "10E09" Then
Me.AandR = "Accept"
AandR.BackColor = lngGreen
ElseIf Me.Ohms >= "10E10" And Me.Ohms <= "10E12" Then
Me.AandR = "Reject"
AandR.BackColor = lngRed
Else
Me.AandR.BackColor = Ohms.BackColor
Me.AandR = Null
End If
End Sub

[ต้นนาโน]

ขอบคุณ​ อ.​ปิ่นณรงค์​ มากๆครับผม