แสดงกระทู้
1
ห้อง MS Access / : เราสามารถกำหนด Textbox ให้รับเฉพาะภาษาไทยเท่านั้น ได้ไหมคะ
« เมื่อ: 15 พ.ย. 67 , 11:12:28 »โค๊ด: [Select]
Private Sub TextBox1_AfterUpdate()
Dim i As Integer
Dim strText As String
Dim strMessage As String
strText = Me.TextBox1.Value
For i = 1 To Len(strText)
If Asc(Mid(strText, i, 1)) < 128 Then
strMessage = "กรุณาพิมพ์เฉพาะภาษาไทยเท่านั้น"
MsgBox strMessage, vbExclamation, "ข้อผิดพลาด"
Me.TextBox1.SetFocus
Exit Sub
End If
Next i
End Subตัวอักษรที่ไม่ใช่ภาษาไทย (ที่มี ASCII code น้อยกว่า 128)
ลองอีกแบบนึงครับ
