Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

jmaocubo

[RESOLVIDO] Userform - Textbox sem valor dá erro

Mensagens Recomendadas

jmaocubo

Olá a todos

Tenho uma userform com 2 calendários e uma textbox.

Quando coloco um determinado numero na textbox e depois clico num dia no calendário 1, no calendário 2 avança o numero colocado na textbox, ou seja, se eu colocar 5 na textbox e no calendário 1 colocar no dia 1 de Março, no calendário 2 o dia seleccinado é o 5 respectivamente.

Acontece que se eu não colocar nenhum numero na textbox dá-me erro de acordo com o código!!!

Como fazer que quando clico num dia do calendário 1 e não tiver nenhum numero na textbox ele avise com uma mensagem e não execute o código que envi abaixo até ter um numero na textbox.

Private Sub Calendar1_Click()

With Calendar1
Calendar5.Value = Calendar1.Value + TextBox1.Value
End With
End Sub

Desde já agradeço

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
paulosemblano

Private Sub Calendar1_Click()

If TextBox1.Value = "" Then

  MsgBox "Vazio!"

Else

  Calendar5.Value = Calendar1.Value + TextBox1.Value

End If

End Sub

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
joseA

😲

Private Sub Calendar1_Click()
If Me.TextBox1 <> "" Then
With Calendar1
Calendar5.Value = Calendar1.Value + TextBox1.Value
End With
Exit Sub
End If
End Sub

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.