กระทู้เก่าบอร์ด อ.Yeadram
4,108 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 มันก็ไม่เปลี่ยนค่ะ
รบกวนทุกท่านช่วยดู หรือแนะนำด้วยค่ะ
ขอบคุณค่ะ
คือ มี 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 มันก็ไม่เปลี่ยนค่ะ
รบกวนทุกท่านช่วยดู หรือแนะนำด้วยค่ะ
ขอบคุณค่ะ
24 Reply in this Topic. Dispaly 2 pages and you are on page number 1
2 @R16315
อ่านคำถามก็ยั งง พอโหลดไฟล์มาดู ก็เดาว่า ต้องการ ให้พื้นของ Text1 2 3 เปลี่ยนสี ตามที่กำหนด
ดูจากไฟล์แล้ว ออกแแบบตารางไม่น่าจะถูก
มุมมอง Data seet ผมไม่แน่ใจว่าทำให้เปลี่ยนสีได้นะครับ แต่มุมมองฟอร์ม ทำได้
เลือกค่าได้หลายค่า เลือก A พร้อม B C ได้ แล้วจะให้มันเป็นสีอะไร
แนะนำ ให้ใช้ Option Group แล้ว ตารางเหลือ ฟิลด์เดียว เป็น Text ขนาด 1 ก้พอ
ใส่ค่า ให้เลือก A เก็บค่าเป็น A เลือก B เก้ฐค่าเป็น B
แล้ว Afterupdate ของ Option Group ให้ใส่
ดูจากไฟล์แล้ว ออกแแบบตารางไม่น่าจะถูก
มุมมอง 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
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}
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
5 @R16320
ขอบคุณมากค่ะ
6 @R16322
ไม่ขึ้นค่ะ
ไม่รู้ว่ามันติดที่มันเป็น Form ย่อยหรือเปล่า
หรือเพราะตัว Sub Form เป็นแบบตารางจะไม่สามารถเปลี่ยนสีพื้น หรือตัวหนังสือได้ค่ะ
หนูลองใส่หลายจุดเลยค่ะ แต่ก็ไม่เปลี่ยนสีค่ะ
http://zidofile.com/3mc7jl
หากเปลี่ยนสีพื้นไม่ได้เปลี่ยนสีตัวหนังสือได้ไหมค่ะ
ไม่รู้ว่ามันติดที่มันเป็น Form ย่อยหรือเปล่า
หรือเพราะตัว Sub Form เป็นแบบตารางจะไม่สามารถเปลี่ยนสีพื้น หรือตัวหนังสือได้ค่ะ
หนูลองใส่หลายจุดเลยค่ะ แต่ก็ไม่เปลี่ยนสีค่ะ
http://zidofile.com/3mc7jl
หากเปลี่ยนสีพื้นไม่ได้เปลี่ยนสีตัวหนังสือได้ไหมค่ะ
7 @R16324
ผมทำในมุมมอง Single Form ได้นะครับ ทั้ง พื้นหลังและสี ขอเมลด้วย เดี๋ยวทำแล้วส่งตัวอย่างไปให้ดู
8 @R16327
ค่ะถ้าทำใน Single Form มันขึ้นค่ะแต่พอทำใน Sub Form มันไม่เปลี่ยนให้ค่ะ
หนูอยากรู้ว่าพอจะมีวิธีทำได้หรือไม่ค่ะ
หนูอยากรู้ว่าพอจะมีวิธีทำได้หรือไม่ค่ะ
9 @R16382
ขอรบกวนท่านที่พอจะทราบค่ะ
ว่า Sub Form มันสามารถเปลี่ยนสีได้หรือไม่ค่ะ
ขอบคุณค่ะ
ว่า Sub Form มันสามารถเปลี่ยนสีได้หรือไม่ค่ะ
ขอบคุณค่ะ
11 @R16393
ขอบคุณค่ะพอดีเปลี่ยนแผนทำ Form เดี่ยวแล้วค่ะ พอทำ Single Form เปลี่ยนสีได้ทุกอย่างตามที่คุณ Un และคุณ . ได้ทั้งหมดเลยละ
ขอบคุณค่ะ
แต่ถ้าเป็น SubForm หนูลองแล้วยังไงก็ไม่ได้ค่ะ
ขอบคุณค่ะ
แต่ถ้าเป็น SubForm หนูลองแล้วยังไงก็ไม่ได้ค่ะ
12 @R16394
ที่ผมบอก คือ ให้เปลี่ยน sub form เป็น single form ครับ แต่รูปแบบ
ยังไม่เหมือน Data sheet ก็อาจจะเปลี่ยนเป็น continue form
แล้วปรับแต่งให้เหมือน Data sheet ก็ได้ครับ
แล้วใช้วิธี ที่ คุณ . บอกอีกที น่าจะครบนะครับ
ยังไม่เหมือน Data sheet ก็อาจจะเปลี่ยนเป็น continue form
แล้วปรับแต่งให้เหมือน Data sheet ก็ได้ครับ
แล้วใช้วิธี ที่ คุณ . บอกอีกที น่าจะครบนะครับ
13 @R16415
ขอบคุณมากค่ะ คุณ Un
14 @R16425
คุณ Un พอจะมีตัวอย่างหรือเปล่าค่ะ
ถ้ามีหนูขอรบกวนด้วยค่ะ
ลองพยายามทำแล้วไม่รู้จะใช้อย่างไรดีค่ะ
ถ้ามีหนูขอรบกวนด้วยค่ะ
ลองพยายามทำแล้วไม่รู้จะใช้อย่างไรดีค่ะ
15 @R16431
ใช้ Access รุ่นไหนครับ ผมใช้ 2013 เดี๋ยวคุณเอาไปเปิดไม่ได้ เสียเวลาทำ
16 @R16468
ค่ะของหนู Ms 2003 ค่ะรบกวนด้วยค่ะ
17 @R16471
ทำเสร็จแล้ว ให้ส่งให้ที่ไหน
18 @R16476
ขอบคุณค่ะ
ส่งมาที่
s.pakamas@st-miyagawa.com
ขอบคุณค่ะ
ส่งมาที่
s.pakamas@st-miyagawa.com
ขอบคุณค่ะ
19 @R16477
ขอโทษนะค่ะที่เข้ามาช้า ที่บ้านหนูเนตโดนตัดค่ะใช้ไม่ได้
เลยมาเล่นที่ร้าน
ขอบคุณค่ะ
s.pakamas@st-miyagawa.com
เลยมาเล่นที่ร้าน
ขอบคุณค่ะ
s.pakamas@st-miyagawa.com
20 @R16479
ขอบคุณมากค่ะ
ช่วยอธิบายหนูด้วยค่ะ
Frame16_AfterUpdate()
นี่มันคืออะไรค่ะ หนูหาดูFrame16 ที่เขียน Codeเข้าใส่มันอยู่ตรงไหนค่ะ
งงค่ะหาไม่เจอ
ขอบคุณค่ะ
ช่วยอธิบายหนูด้วยค่ะ
Frame16_AfterUpdate()
นี่มันคืออะไรค่ะ หนูหาดูFrame16 ที่เขียน Codeเข้าใส่มันอยู่ตรงไหนค่ะ
งงค่ะหาไม่เจอ
ขอบคุณค่ะ
Time: 0.2138s
อยากได้วิธี หรือตัวอย่างค่ะ หรือจะแก้ไขตัวอย่างที่หนูแนบมาก็ได้ค่ะ
ขอบคุณมากค่ะ