-
RE: Làm thế nào để tạo inputbox trên form ms access có thông báo unicode tiếng việt
domfootwear > 23-07-11, 02:41 PM
(23-07-11, 01:58 PM)quanghoasla Đã viết: Vẫn bị bạn ơi. bạn test thử xem sao. cái đó hiện thông báo lỗi như sau: Run-time error : 13 type mistmach
Lỗi trên là do bạn nhập chuổi vào InputBox, thôi thì khai báo cho nhập chuổi lẫn số.
Mã PHP:Private Sub cmdInputBox_Click()
Dim strName 'As Integer
strName = InputBox("Tui lµ InputBox TiÕng ViÖt ®©y nÌ b¹n ¬i ", "InputBox TiÕng ViÖt ®©y nÌ")
If Len(strName) = 0 Then Exit Sub
MsgBox strName, vbInformation, "Xin chµo tÊt c¶ c¸c b¹n"
End Sub -
RE: Làm thế nào để tạo inputbox trên form ms access có thông báo unicode tiếng việt
quanghoasla > 23-07-11, 03:32 PM
vẫn chưa đúng ý mình bạn à. ý mình muốn nếu nhập kiểu số thì ok, còn nếu nhập kiểu text " dang ký tự chữ" thì không cho nhập bắt nhập đúng kiểu số. bạn có cách nào? -
RE: Làm thế nào để tạo inputbox trên form ms access có thông báo unicode tiếng việt
domfootwear > 23-07-11, 04:39 PM
(23-07-11, 03:32 PM)quanghoasla Đã viết: vẫn chưa đúng ý mình bạn à. ý mình muốn nếu nhập kiểu số thì ok, còn nếu nhập kiểu text " dang ký tự chữ" thì không cho nhập bắt nhập đúng kiểu số. bạn có cách nào?
Cho nó vào cái xử lý lỗi là xong, bạn thử nhé.
Mã PHP:Private Sub cmdInputBox_Click()
Dim strName 'As Integer
strName = InputBox("Tui lµ InputBox TiÕng ViÖt ®©y nÌ b¹n ¬i ", "InputBox TiÕng ViÖt ®©y nÌ")
If Len(strName) = 0 Or Not IsNumeric(strName) Then
MsgBox "Ph¶i nhËp vµo InputBox lµ sè hoÆc kh«ng ®îc ®Ó trèng b¹n ¬i !"
Exit Sub
End If
MsgBox strName, vbInformation, "Xin chµo tÊt c¶ c¸c b¹n"
End Sub -
RE: Làm thế nào để tạo inputbox trên form ms access có thông báo unicode tiếng việt
quanghoasla > 23-07-11, 05:16 PM
cảm ơn bạn rất nhiều. mình làm được rồi bạn ạ. chúc bạn vui vẻ. -
RE: Làm thế nào để tạo inputbox trên form ms access có thông báo unicode tiếng việt
hmanhha > 15-03-13, 11:45 AM
Em cũng đang gặp problem tương tự.Bực quá.