แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Jirawat Kamprow

หน้า: [1]
1
ขอบคุณมากครับ  ถ้าเราจะ เปลี่ยนสีตัวอักษรด้วยต้องเพิ่มยังไงบ้างครับ
ใช้ .ForeColor ครับ
ส่วนการกำหนดค่าสีใช้ได้หลายแบบเช่น
Me.textboxName.ForeColor = RGB(0,0,0) 'สีดำ
Me.textboxName.ForeColor = RGB(255,0,0) 'สีแดง
Me.textboxName.ForeColor = RGB(0,255,0) 'สีเขียว
Me.textboxName.ForeColor = RGB(0,0,255) 'สีน้ำเงิน
Me.textboxName.ForeColor = RGB(255,255,0) 'สีเหลือง
ฯลฯ อยากได้สีอื่นๆ ลองค้นหาคำว่า RGB Color For VBA ในGoogleนะครับ

หรือใช้ Vb.... ตามด้วยชื่อสี
ตัวอย่าง

If Len(Me.textboxName) = "10" Then
MsgBox "ครบจำนวน"
Me.textboxName.ForeColor = vbBlack
ElseIf Len(Me.textboxName) < 10 Then
MsgBox "จำนวนน้อยเกินไป"
Me.textboxName.ForeColor = vbRed
ElseIf Len(Me.textboxName) > 10 Then
MsgBox "เกินจำนวนที่กำหนด"
Me.textboxName.ForeColor = RGB(255,0,0)
End If

โพสต์นี้ได้รับคำขอบคุณจาก: Jirawat Kamprow

2
รบกวนสอบถามพี่ๆ ครับ จำตรวจสแบจำนวนข้อมูลตัวอักษรใน textbox แล้วขึ้น msg โชว์ ว่า ครบจำนวน และ ไม่ครบจำนวน รบกวนพี่ๆ แนะนำ code ด้วยน่ะครับ
สมมุติว่าตรวจสอบว่าครบ 10 ตัวอักษรหรือไม่
โดยตรวจสอบถาม textbox ชื่อ textboxName

IF Len(Me.textboxName) = "10" then
msgbox "ครบจำนวน"
elseIF Len(Me.textboxName) <10 then
msgbox "จำนวนน้อยเกินไป"
elseIF Len(Me.textboxName) >10 then
msgbox "เกินจำนวนที่กำหนด"
end if
โพสต์นี้ได้รับคำขอบคุณจาก: Jirawat Kamprow

หน้า: [1]