ตรวจสอบใน textbox มีอักษรไทย



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

18 มี.ค. 62 , 18:28:10
อ่าน 397 ครั้ง

kitisak

ตรวจสอบใน textbox มีอักษรไทย
« เมื่อ: 18 มี.ค. 62 , 18:28:10 »
จะตรวจสอบว่าใน textbox มีอักษรไทยปนหรือไม่
ถ้ามีให้มี msgbox แจ้งเตือน ต้องทำอย่างไรครับ

 

19 มี.ค. 62 , 09:19:36
ตอบกลับ #1

สันติสุข

  • แฟนพันธุ์แท้ไท.Access
  • *
  • กระทู้: 466
  • พลังขอบคุณ: 417

  • ขึ้น 15 ค่ำเดือน 8 แสดงปฐมเทศนา

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

: ตรวจสอบใน textbox มีอักษรไทย
« ตอบกลับ #1 เมื่อ: 19 มี.ค. 62 , 09:19:36 »
ถ้าจะป้องกันการกดคีย์ภาษาไทยลงเท็กซ์บ็อกซ์ ก็ใส่โค้ดนี้ไว้ใน KeyPress event procedure
โค๊ด: [Select]
Private Sub xxx_KeyPress(KeyAscii As Integer)
    If KeyAscii >= 3585 And KeyAscii <= 3675 Then KeyAscii = 0
End Sub

ถ้าต้องการตรวจสอบว่ามีภาษาไทยอยู่ในเท็กซ์บ็อกซ์หรือไม่ ก็ใช้โค้ดนี้ครับ
โค๊ด: [Select]
    Dim i As Integer
    Dim c As String
   
    For i = 1 To Len(Me.Text2)
        c = Mid$(Me.Text2, i, 1)
        If AscW(c) >= 3585 And AscW(c) <= 3675 Then
            MsgBox "Found"
            Exit Sub
        End If
    Next i
ช่วยพกถุงผ้า/ถุงพลาสติกใช้แล้วไปซื้อของเพื่อลดการใช้พลาสติก ขยะ รักษาสิ่งแวดล้อม และไม่ให้ภาวะโลกร้อนวิกฤติเร็วขึ้นกว่านี้
ช่วยคลิกโฆษณาข้างล่างนี้ เพื่อสนับสนุนเวปบอร์ดด้วยครับ
:nice day:
 
โพสต์นี้ได้รับคำขอบคุณจาก: sjs, kitisak, TIM_cb


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