Điều khiển con trỏ chuột trong text box

[ThaiDieuAnh]

Em có 1 textbox mà khi nhập xong nếu trong textbox đó số ký tự <5 thì nó thông báo lỗi.
Khi tắt thông báo lỗi thì con trỏ sẽ nằm trong textbox đó, nói chung là sẽ không thể thao tác được việc gì khác khi chưa hoàn thành nhiệm vụ trong textbox đó
Em gửi file giả định đăng nhập lên, mong các anh chị giúp đỡ, em xin cảm ơn

 

[BuiQuangThuan]

Hình như muốn con trỏ chuột nằm ở đó thì
Me.textbox1.setfoces thì phải

 

[Thong Hoang Tien 250691]

Em có 1 textbox mà khi nhập xong nếu trong textbox đó số ký tự <5 thì nó thông báo lỗi.
Khi tắt thông báo lỗi thì con trỏ sẽ nằm trong textbox đó, nói chung là sẽ không thể thao tác được việc gì khác khi chưa hoàn thành nhiệm vụ trong textbox đó
Em gửi file giả định đăng nhập lên, mong các anh chị giúp đỡ, em xin cảm ơn

Ý của Anh có phải như thế này không ?

 

[XuanThanh]

Private Sub TextBox2_AfterUpdate()
     If Len(Me.TextBox2)<5 Then
          MsgBox "So ky tu phai tu 5 tro len", , "Thong Bao"
          Me.TextBox2.SetFocus
          Exit Sub
     End If
End Sub

Không nên dùng sự kiện change của textbox vì chỉ càn nhập 1 ký tự thôi đã bị lỗi rồi

 

[HeSanbi]

Chắc bạn muốn sáng tạo Form đăng nhập, có rất nhiều Form đăng nhập đã có trên diễn đàn.
Không nên bỏ công sức quá nhiều vào những cái đã có.
----------------------

Gợi ý code:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If Me.TextBox1.Text <> "" And VBA.Len(Me.TextBox1.Text) < 5 Then
    Cancel = True
  End If
End Sub

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If Me.TextBox1.Text <> "" And VBA.Len(Me.TextBox1.Text) < 5 Then
    Me.TextBox1.ForeColor = vbRed
  Else
    Me.TextBox1.ForeColor = vbBlack
  End If
End Sub

 

[yumyum]

Nhà mình ơi cho e hỏi cái này với (chắc không liên quan đến bài mà do e tìm hoài k biết cách đăng bài ạ).
Em có 1 file excel hiện đang có 1 ô giống textbox, mà e xóa hòa không được. Là bị sao vậy ạ? Giờ phải làm sao để xóa được ạ?
Nhờ nhà mình giúp em với.