TRAVAR TEXTBOX
Ola estou usando enter como tab para percorrer os controles,
só que tem um campo textbox que eu preciso o seguinte:
Só passe para o seguinte se for pressionado enter e que esteja diferente de [Ô][Ô] ou em branco.
To quebrando a cabeça , se eu digito tab ele passa se não digito nada ele passa estou usando o seguinte:
Private Sub Tquantidade_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn And Tquantidade.Text <> [Ô][Ô] Then
Carrega_grade
Else
Tquantidade.SetFocus
End If
End Sub
só que tem um campo textbox que eu preciso o seguinte:
Só passe para o seguinte se for pressionado enter e que esteja diferente de [Ô][Ô] ou em branco.
To quebrando a cabeça , se eu digito tab ele passa se não digito nada ele passa estou usando o seguinte:
Private Sub Tquantidade_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn And Tquantidade.Text <> [Ô][Ô] Then
Carrega_grade
Else
Tquantidade.SetFocus
End If
End Sub
coloca este codigo que funfa
Private Sub tquantidade_LostFocus()
If tquantidade.Text = [Ô][Ô] Then
tquantidade.SetFocus
End If
End Sub
Private Sub tquantidade_LostFocus()
If tquantidade.Text = [Ô][Ô] Then
tquantidade.SetFocus
End If
End Sub
Tópico encerrado , respostas não são mais permitidas