Định dạng dữ liệu bằng VBA

[thuyloitienlu]

Tôi có 1 dữ liệu được nhập từ hộp text box trên form mà không biết cách nào kiểm tra nó là chữ hay số .Nếu nhập là số tự nhiên thì đúng còn nhập là các ký tự chữ thì báo sai .Các bạn giúp tôi kiểm tra dữ liệu nhập với ?

 

[cadafi]

Tôi có 1 dữ liệu được nhập từ hộp text box trên form mà không biết cách nào kiểm tra nó là chữ hay số .Nếu nhập là số tự nhiên thì đúng còn nhập là các ký tự chữ thì báo sai .Các bạn giúp tôi kiểm tra dữ liệu nhập với ?

Bạn xử lý sự kiện textbox sau khi updated như sau:

Private Sub TextBox1_AfterUpdate()
If IsNumeric(textbox1.Value) Then
  Exit Sub
Else
 a = MsgBox("Du lieu nhap vao phai la DANG SO, vui long nhap lai!", vbOKOnly, "Thong Bao")
 Exit Sub
End If

End Sub

 

[thuyloitienlu]

Cảm ơn bạn ca_dafi, nhưng Form của tôi có 5 hộp textbox thì tạo thành 5 Sub như trên để kiểm tra các hộp Textbox có được không ?

 

[cadafi]

nhưng Form của tôi có 5 hộp textbox thì tạo thành 5 Sub như trên để kiểm tra các hộp Textbox có được không ?

Đúng vậy bạn à
Sub này là xử lý khi textbox nào đó after update. Nhu vậy bạn phải tạo một thủ tục xử lý khi texbox đó đã được update. Bạn có 10 textbox thì sẽ có 10 thù tục xử lý như vậy nếu bạn muốn kiểm tra ô textbox đó có phải là kiểu số hay không.