textbox ตรวจสอบจำนวนค่าที่กรอก แล้วขึ้น msg show

[Jirawat Kamprow]

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

[PNR]

รบกวนสอบถามพี่ๆ ครับ จำตรวจสแบจำนวนข้อมูลตัวอักษรใน 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]

ขอบคุณมากครับ  ถ้าเราจะ เปลี่ยนสีตัวอักษรด้วยต้องเพิ่มยังไงบ้างครับ

[PNR]

ขอบคุณมากครับ  ถ้าเราจะ เปลี่ยนสีตัวอักษรด้วยต้องเพิ่มยังไงบ้างครับ

ใช้ .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]

PNR
Programer สาย DIY 

>>> ขอสอบถามเพิ่มเติมน่ะครับ ถ้าตำแหน่งผมไม่ครบจะไม่ให้ผ่าน เราต้องเขียน  code เพิ่มเติมยังไงครับผม มือใหม่ครับ

[PNR]

PNR
Programer สาย DIY 

>>> ขอสอบถามเพิ่มเติมน่ะครับ ถ้าตำแหน่งผมไม่ครบจะไม่ให้ผ่าน เราต้องเขียน  code เพิ่มเติมยังไงครับผม มือใหม่ครับ

สมมุติเรามี textbox หลักชื่อ textboxName
เวลาแสดง msgbox แล้ว มันจะไป Focus ที่ textbox อื่น
เราจะใช้การสั่งFocus textbox อื่นๆ
เพื่อให้ Cursor กลับมายัง textbox เดิมอีกครั้ง
เพื่อไม่ให้สามารถผ่านไป textbox อื่นได้
ใช้ Event Exit ตัวอย่างโค้ด


Private Sub textboxName_Exit(Cancel As Integer)
If Len(Me.textboxName) = "10" Then
MsgBox "ครบจำนวน"
Me.textboxName.ForeColor = vbBlack

ElseIf Len(Me.textboxName) < 10 Then
MsgBox "เกินจำนวนที่กำหนด"
Me.textboxName.ForeColor = vbRed
Me.textboxETC.SetFocus  'สั่งให้ Cursor ไปโฟกัสที่ textbox อื่น
Me.textboxName.SetFocus 'สั่งให้ Cursor กลับมาที่เดิม
ElseIf Len(Me.textboxName) > 10 Then
MsgBox "เกินจำนวนที่กำหนด"
Me.textboxName.ForeColor = RGB(255, 0, 0)
Me.textboxETC.SetFocus  'สั่งให้ Cursor ไปโฟกัสที่ textbox อื่น
Me.textboxName.SetFocus 'สั่งให้ Cursor กลับมาที่เดิม
End If
End Sub

[Jirawat Kamprow]

test run show error

Me.textboxETC.SetFocus

[Jirawat Kamprow]

ถ้าผมอยากจะพิมพ์ Msgbox เป็นภาษาไทยต้องทำอย่างไรเพิ่มบ้างครับ

[PNR]

ถ้าผมอยากจะพิมพ์ Msgbox เป็นภาษาไทยต้องทำอย่างไรเพิ่มบ้างครับ

ที่หน้าเขียนโค้ด ที่แถบด้านบน หาคำว่า Tool > Options... > กดที่ Tab Editor Format ที่ Font กำหนด ชื่อFont ที่มี วงเล็บข้างหลังเป็น Thai
เช่น Arial Unicode MS (Thai) เป็นต้น