แสดงกระทู้
1
ห้อง MS Access / : เราสามารถกำหนด Textbox ให้รับเฉพาะภาษาไทยเท่านั้น ได้ไหมคะ
« เมื่อ: 21 พ.ย. 67 , 12:31:07 »
กรณีบ้านเลขที่ 21,22 หรือ 22/1-2 เพื่อให้ใช้ , - / และช่องว่าง(spacebar) ได้แก้ตรงโค้ดใหม่ประมาณนี้ครับ
ปล.ดูจาก ตาราง Ascii ภาษาไทย อังกฤษ แล้วเพื่อใช้พวกวงเล็ป(),เครื่องหมายคำพูด "..." และอื่นๆอีกไม่กี่ตัวก็แก้โค้ดแรกตรง < 48 เดิมมาเป็น < 32 ไปเลยไม่ต้องมาซ้อน if เพิ่มแบบอันใหม่นี้
โค๊ด: [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)) < 44 Then
If Asc(Mid(strText, i, 1)) <> 32 Then
strMessage = "กรุณาพิมพ์เฉพาะภาษาไทยเท่านั้น"
MsgBox strMessage, vbExclamation, "ข้อผิดพลาด"
Me.TextBox1.SetFocus
Exit Sub
End If
ElseIf Asc(Mid(strText, i, 1)) > 57 Then
If Asc(Mid(strText, i, 1)) < 128 Then
strMessage = "กรุณาพิมพ์เฉพาะภาษาไทยเท่านั้น"
MsgBox strMessage, vbExclamation, "ข้อผิดพลาด"
Me.TextBox1.SetFocus
Exit Sub
End If
End If
Next i
End Subปล.ดูจาก ตาราง Ascii ภาษาไทย อังกฤษ แล้วเพื่อใช้พวกวงเล็ป(),เครื่องหมายคำพูด "..." และอื่นๆอีกไม่กี่ตัวก็แก้โค้ดแรกตรง < 48 เดิมมาเป็น < 32 ไปเลยไม่ต้องมาซ้อน if เพิ่มแบบอันใหม่นี้
// ขั้นตอน,วิธีการใช้งาน,ข้อดี-ข้อเสีย หาข้อมูลดูครับ
