- 24 Abr 2023 às 18:08
#73214
Senhores tentei e continuo tentando formatar uma caixa de Textbox para que após digitar 7 números surja "-" para depois digitar mais números (ex: 000100-23), sendo que eu digitaria somente os números (ex: 000010023), segue abaixo uma da minhas tentativas, eu errei tudo ou o que deve ser corrigido?
Private Sub Txt_NºProcesso_Cob_Change()
On Error GoTo Erro
On Error Resume Next
If tecla = 8 Then
Exit Sub
End If
Format (Me.Txt_NºProcesso_Cob.Value = "0000000-00")
If Len(Txt_NºProcesso_Cob.Value) = 7 Then
Me.Txt_NºProcesso_Cob.Value = Txt_NºProcesso_Cob.Value & "-"
Me.Txt_NºProcesso_Cob.Value.SelStart = 4
ElseIf Len(Txt_NºProcesso_Cob.Value) = 5 Then
Me.Txt_Cliente_Cob.SetFocus
End If
Exit Sub
Erro:
MsgBox "Erro!", vbCritical, "FORMATAR"
End Sub
Private Sub Txt_NºProcesso_Cob_Change()
On Error GoTo Erro
On Error Resume Next
If tecla = 8 Then
Exit Sub
End If
Format (Me.Txt_NºProcesso_Cob.Value = "0000000-00")
If Len(Txt_NºProcesso_Cob.Value) = 7 Then
Me.Txt_NºProcesso_Cob.Value = Txt_NºProcesso_Cob.Value & "-"
Me.Txt_NºProcesso_Cob.Value.SelStart = 4
ElseIf Len(Txt_NºProcesso_Cob.Value) = 5 Then
Me.Txt_Cliente_Cob.SetFocus
End If
Exit Sub
Erro:
MsgBox "Erro!", vbCritical, "FORMATAR"
End Sub