O EVENTO SETFOCUS NÃO ESTA FUNCIONANDO
Bom dia
estou com um problema neste comando, verifica se o campo esta vazio, se a quantidade de caracteres atende. Mas quando o número de caractere é menor eu quero que o foco volte para ele, mas não funciona. este comendo esta no evento Exit.
Private Sub txt_CpfCnpj1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Resultado As String
With FrmAutorizacao
If .txt_CpfCnpj1.Value <> [Ô][Ô] Then
If Len(.txt_CpfCnpj1.Value) < 18 Then
Resultado = MsgBox([Ô]Número CNPJ incompleto![Ô], vbOKOnly + vbInformation, [Ô]Aviso[Ô])
If Resultado = vbOK Then
.Controls([Ô]txt_CpfCnpj1[Ô]).SetFocus
End If
End If
End If
End With
End Sub
estou com um problema neste comando, verifica se o campo esta vazio, se a quantidade de caracteres atende. Mas quando o número de caractere é menor eu quero que o foco volte para ele, mas não funciona. este comendo esta no evento Exit.
Private Sub txt_CpfCnpj1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Resultado As String
With FrmAutorizacao
If .txt_CpfCnpj1.Value <> [Ô][Ô] Then
If Len(.txt_CpfCnpj1.Value) < 18 Then
Resultado = MsgBox([Ô]Número CNPJ incompleto![Ô], vbOKOnly + vbInformation, [Ô]Aviso[Ô])
If Resultado = vbOK Then
.Controls([Ô]txt_CpfCnpj1[Ô]).SetFocus
End If
End If
End If
End With
End Sub
tentou no lostfocus?
Tópico encerrado , respostas não são mais permitidas