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



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

22 ก.ค. 61 , 14:03:00
อ่าน 644 ครั้ง

ต้นนาโน

  • สมาชิกไท.Access
  • กระทู้: 2

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

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

 

23 ก.ค. 61 , 08:39:37
ตอบกลับ #1

ปิ่นณรงค์

: เลือกค่าใน Combo​ Box​ แล้วให้แสดงค่าใน​ TextBox
« ตอบกลับ #1 เมื่อ: 23 ก.ค. 61 , 08:39:37 »


ผมสมมุติ 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
« แก้ไขครั้งสุดท้าย: 24 ก.ค. 61 , 13:29:30 โดย ปิ่นณรงค์ »
:love: :grin:
 
โพสต์นี้ได้รับคำขอบคุณจาก: prajak, ต้นนาโน

23 ก.ค. 61 , 21:51:48
ตอบกลับ #2

ต้นนาโน

  • สมาชิกไท.Access
  • กระทู้: 2

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

: เลือกค่าใน Combo​ Box​ แล้วให้แสดงค่าใน​ TextBox
« ตอบกลับ #2 เมื่อ: 23 ก.ค. 61 , 21:51:48 »
ขอบคุณ​ อ.​ปิ่นณรงค์​ มากๆครับผม

 


บอร์ดเรียนรู้ Access สำหรับคนไทย