Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Sign in to follow this  
jmaocubo

[RESOLVIDO] Userform - Textbox sem valor dá erro

Recommended Posts

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

Share this post


Link to post
Share on other sites
paulosemblano

Private Sub Calendar1_Click()

If TextBox1.Value = "" Then

  MsgBox "Vazio!"

Else

  Calendar5.Value = Calendar1.Value + TextBox1.Value

End If

End Sub

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.