สอบถามเกี่ยวกับเปลี่ยนสีพื้นข้อความ Sub-Form
กระทู้เก่าบอร์ด อ.Yeadram

 3,944   24
URL.หัวข้อ / URL สอบถามเกี่ยวกับเปลี่ยนสีพื้นข้อความ Sub-Form

ต้องการเปลี่ยนสีพื้น Sub_Form ค่ะ
คือ มี chekBox 4 ตัวเลือกคือ A,B,C,D และมี Text1,Text2,Text3 เก็บข้อมูล

หาก A เท่ากับ True = ให้สีพื้นเป็นสีเหลือง(65535)
หาก B เท่ากับ True = ให้สีพื้นเป็นสีแดง (255)
หาก C เท่ากับ True =ให้สีพื้นเป็นสีเขียว(65408 )
หาก D เท่ากับ True =ให้สีพื้นเป็นสีฟ้า(16776960 )

ต้องเขียนอย่างไรค่ะ
และ เอาไปใช้งานอย่างไรค่ะ

http://www.boyr.com/getfile.php?id=1387746&key=51b94a5f53381

หนูได้รองทั้ง IF ทั้ง condition   สีของ Text ใน Sup-Form มันก็ไม่เปลี่ยนค่ะ
รบกวนทุกท่านช่วยดู หรือแนะนำด้วยค่ะ
ขอบคุณค่ะ
โดย: พิ้ง เมื่อ: 13 มิ.ย. 2556 , 11:53

24 Reply in this Topic. Dispaly 2 pages and you are on page number 1

1 @R16313
ตัวอย่างที่แนบมาเป็นข้อมูลประมาณนี้ค่ะ แต่ Code มะใช่ประหนูลองๆเอา
อยากได้วิธี หรือตัวอย่างค่ะ หรือจะแก้ไขตัวอย่างที่หนูแนบมาก็ได้ค่ะ
ขอบคุณมากค่ะ
โดย: พิ้ง เมื่อ: 13 มิ.ย. 2556 , 13:27
2 @R16315
อ่านคำถามก็ยั งง พอโหลดไฟล์มาดู ก็เดาว่า ต้องการ ให้พื้นของ Text1 2 3 เปลี่ยนสี ตามที่กำหนด
ดูจากไฟล์แล้ว ออกแแบบตารางไม่น่าจะถูก
มุมมอง Data seet ผมไม่แน่ใจว่าทำให้เปลี่ยนสีได้นะครับ แต่มุมมองฟอร์ม ทำได้
เลือกค่าได้หลายค่า เลือก A พร้อม B C ได้ แล้วจะให้มันเป็นสีอะไร

แนะนำ ให้ใช้ Option Group แล้ว ตารางเหลือ ฟิลด์เดียว เป็น Text ขนาด 1 ก้พอ
ใส่ค่า ให้เลือก A เก็บค่าเป็น A เลือก B เก้ฐค่าเป็น B
แล้ว Afterupdate ของ Option Group ให้ใส่

Private Sub A_AfterUpdate()
If Me.A = True Then
        Text1.BackColor = 65535   'ÊÕàËÅ×Í
        Text2.BackColor = 65535
        Text3.BackColor = 65535
Else: Me.B = True
        Text1.BackColor = 255   'ÊÕá´
        Text2.BackColor = 255
        Text3.BackColor = 255
Else: Me.C = True
        Text1.BackColor = 65408   'ÊÕà¢ÕÂÇ
        Text2.BackColor = 65408
        Text3.BackColor = 65408
Else: Me.D = True
        Text1.BackColor = 16776960   'ÊÕ¿éÒ
        Text2.BackColor = 16776960
        Text3.BackColor = 16776960
End If
End Sub
โดย: Un เมื่อ: 13 มิ.ย. 2556 , 14:25
3 @R16316
แก้ครับลืมเปลี่ยน

อ่านคำถามก็ยั งง พอโหลดไฟล์มาดู ก็เดาว่า ต้องการ ให้พื้นของ Text1 2 3 เปลี่ยนสี ตามที่กำหนด
ดูจากไฟล์แล้ว ออกแแบบตารางไม่น่าจะถูก
มุมมอง Data seet ผมไม่แน่ใจว่าทำให้เปลี่ยนสีได้นะครับ แต่มุมมองฟอร์ม ทำได้
เลือกค่าได้หลายค่า เลือก A พร้อม B C ได้ แล้วจะให้มันเป็นสีอะไร

แนะนำ ให้ใช้ Option Group แล้ว ตารางเหลือ ฟิลด์เดียว เป็น Text ขนาด 1 ก้พอ
ใส่ค่า ให้เลือก A เก็บค่าเป็น A เลือก B เก้ฐค่าเป็น B
แล้ว Afterupdate ของ Option Group ให้ใส่

{CODE}Private Sub A_AfterUpdate()
If Me.A = 'A' Then
        Text1.BackColor = 65535   'เหลือง
        Text2.BackColor = 65535
        Text3.BackColor = 65535
Else: Me.B = 'B'
        Text1.BackColor = 255   'แดง
        Text2.BackColor = 255
        Text3.BackColor = 255
Else: Me.C = 'C'
        Text1.BackColor = 65408   'เขียว
        Text2.BackColor = 65408
        Text3.BackColor = 65408
Else: Me.D = 'D'
        Text1.BackColor = 16776960   'ฟ้า
        Text2.BackColor = 16776960
        Text3.BackColor = 16776960
End If
End Sub{/CODE}
โดย: Un เมื่อ: 13 มิ.ย. 2556 , 14:28
4 @R16317
วันนี้ตาลายผิดแล้วผิดอีก

Private Sub A_AfterUpdate()

If Me.A = "A" Then
        Text1.BackColor = 65535   'เหลือง
        Text2.BackColor = 65535
        Text3.BackColor = 65535
ElseIf Me.B = "B" Then
        Text1.BackColor = 255   'แดง
        Text2.BackColor = 255
        Text3.BackColor = 255
ElseIf Me.C = "C" Then
        Text1.BackColor = 65408   'เขียว
        Text2.BackColor = 65408
        Text3.BackColor = 65408
ElseIf Me.D = "D" Then
        Text1.BackColor = 16776960   'ฟ้า
        Text2.BackColor = 16776960
        Text3.BackColor = 16776960
End If
End Sub
โดย: Un เมื่อ: 13 มิ.ย. 2556 , 15:08
5 @R16320
ขอบคุณมากค่ะ
โดย: พิ้ง เมื่อ: 13 มิ.ย. 2556 , 16:58
6 @R16322
ไม่ขึ้นค่ะ
ไม่รู้ว่ามันติดที่มันเป็น Form ย่อยหรือเปล่า
หรือเพราะตัว Sub Form เป็นแบบตารางจะไม่สามารถเปลี่ยนสีพื้น หรือตัวหนังสือได้ค่ะ
หนูลองใส่หลายจุดเลยค่ะ แต่ก็ไม่เปลี่ยนสีค่ะ
http://zidofile.com/3mc7jl


หากเปลี่ยนสีพื้นไม่ได้เปลี่ยนสีตัวหนังสือได้ไหมค่ะ



โดย: พิ้ง เมื่อ: 13 มิ.ย. 2556 , 17:06
7 @R16324
ผมทำในมุมมอง Single Form ได้นะครับ ทั้ง พื้นหลังและสี ขอเมลด้วย เดี๋ยวทำแล้วส่งตัวอย่างไปให้ดู
โดย: Un เมื่อ: 13 มิ.ย. 2556 , 20:04
8 @R16327
ค่ะถ้าทำใน Single Form มันขึ้นค่ะแต่พอทำใน Sub Form มันไม่เปลี่ยนให้ค่ะ
หนูอยากรู้ว่าพอจะมีวิธีทำได้หรือไม่ค่ะ
โดย: พิ้ง เมื่อ: 14 มิ.ย. 2556 , 09:13
9 @R16382
ขอรบกวนท่านที่พอจะทราบค่ะ
ว่า Sub Form มันสามารถเปลี่ยนสีได้หรือไม่ค่ะ

ขอบคุณค่ะ
โดย: พิ้ง เมื่อ: 18 มิ.ย. 2556 , 14:10
10 @R16384
http://www.thai-access.com/yeadram_view.php?topic_id=1754
โดย: . เมื่อ: 18 มิ.ย. 2556 , 15:52
11 @R16393
ขอบคุณค่ะพอดีเปลี่ยนแผนทำ Form เดี่ยวแล้วค่ะ พอทำ Single Form เปลี่ยนสีได้ทุกอย่างตามที่คุณ Un และคุณ . ได้ทั้งหมดเลยละ
ขอบคุณค่ะ
แต่ถ้าเป็น SubForm หนูลองแล้วยังไงก็ไม่ได้ค่ะ
โดย: พิ้ง เมื่อ: 20 มิ.ย. 2556 , 08:45
12 @R16394
ที่ผมบอก คือ ให้เปลี่ยน sub form เป็น single form ครับ แต่รูปแบบ
ยังไม่เหมือน Data sheet ก็อาจจะเปลี่ยนเป็น continue form
แล้วปรับแต่งให้เหมือน Data sheet ก็ได้ครับ
แล้วใช้วิธี ที่ คุณ . บอกอีกที น่าจะครบนะครับ
โดย: Un เมื่อ: 20 มิ.ย. 2556 , 09:31
13 @R16415
ขอบคุณมากค่ะ คุณ Un
โดย: พิ้ง เมื่อ: 21 มิ.ย. 2556 , 06:53
14 @R16425
คุณ Un พอจะมีตัวอย่างหรือเปล่าค่ะ
ถ้ามีหนูขอรบกวนด้วยค่ะ

ลองพยายามทำแล้วไม่รู้จะใช้อย่างไรดีค่ะ

โดย: พิ้ง เมื่อ: 22 มิ.ย. 2556 , 16:14
15 @R16431
ใช้ Access รุ่นไหนครับ ผมใช้ 2013 เดี๋ยวคุณเอาไปเปิดไม่ได้ เสียเวลาทำ
โดย: Un เมื่อ: 22 มิ.ย. 2556 , 22:27
16 @R16468
ค่ะของหนู Ms 2003 ค่ะรบกวนด้วยค่ะ
โดย: พิ้ง เมื่อ: 25 มิ.ย. 2556 , 13:49
17 @R16471
ทำเสร็จแล้ว ให้ส่งให้ที่ไหน
โดย: Un เมื่อ: 25 มิ.ย. 2556 , 16:45
18 @R16476
ขอบคุณค่ะ
ส่งมาที่

s.pakamas@st-miyagawa.com

ขอบคุณค่ะ
โดย: พิ้ง เมื่อ: 26 มิ.ย. 2556 , 09:37
19 @R16477
ขอโทษนะค่ะที่เข้ามาช้า ที่บ้านหนูเนตโดนตัดค่ะใช้ไม่ได้
เลยมาเล่นที่ร้าน
ขอบคุณค่ะ

s.pakamas@st-miyagawa.com

โดย: พิ้ง เมื่อ: 26 มิ.ย. 2556 , 09:39
20 @R16479
ขอบคุณมากค่ะ
ช่วยอธิบายหนูด้วยค่ะ

Frame16_AfterUpdate()

นี่มันคืออะไรค่ะ หนูหาดูFrame16 ที่เขียน Codeเข้าใส่มันอยู่ตรงไหนค่ะ
งงค่ะหาไม่เจอ

ขอบคุณค่ะ
โดย: พิ้ง เมื่อ: 26 มิ.ย. 2556 , 10:18
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2692s