Página 1 de 1

MsgBbox ao digitar qualquer nº

Enviado: 10 Abr 2023 às 10:44
por Albino10
Bom dia senhores,
A resposta parece ser bem simples, mas até o momento não conseguí desenvolver.
Abrir uma caixa de msg sempre que digitar qualquer Nº no TextBox, quando for Letra não.
Eu só consegui até agora parcialmente somente com o nº 1, conforme abaixo, quando altero o comando para ">=1" aí até digitando Letra aparece a msg:
Private Sub Cbo_Status_Aud_Change()

If Cbo_Status_Aud.Value = 1 Then
MsgBox "Atenção! Você não pode ESQUECER de alterar a nova data da Audiência.", _
vbInformation, "PROCESSO ADIADO!"
Cancel = True
Me.Txt_Celular1_Aud.SetFocus

End If
End Sub

Re: MsgBbox ao digitar qualquer nº

Enviado: 10 Abr 2023 às 11:23
por Foxtri
Bom dia
Veja se era isso:
Private Sub TextBox1_Change()
If TextBox1.Value <> "" Then
If IsNumeric(TextBox1.Value) Then
MsgBox "Somente Letras"
TextBox1.Value = ""
Cancel = True
End If
End If
End Sub

Até
Foxtri

Re: MsgBbox ao digitar qualquer nº

Enviado: 10 Abr 2023 às 12:25
por Albino10
Valeu Foxtri pelo retorno, é quase isso, nesse Textbox é para digitar Letra (quando resolvido) ou Nº (quando adiado). sendo que quando for Nº apareça a MsgBox para lembrar que deve ser alterado a data da audiência.

Re: MsgBbox ao digitar qualquer nº

Enviado: 10 Abr 2023 às 13:09
por Albino10
Aproveitando sua iniciativa, fiz uma série de teste aqui e consegui a solução. MUITO OBRIGADO!
If Cbo_Status_Aud.Value = IsNumeric(Cbo_Status_Aud.Value) Then
MsgBox "Atenção! Você não pode ESQUECER de alterar a nova data da Audiência.", _
vbInformation, "PROCESSO ADIADO!"
Cancel = True
End If
End Sub