Jump to content
Leandro.Athlos

Combobox branco erro em VBA

Recommended Posts

Leandro.Athlos

Boa Tarde

Gostaria de resolver um problema

Tenho um codigo mas gostaria de tirar um erro e não consigo descobrir como, quando eu deixo em branco qualquer combobox da erro

Private Sub bt_calcular_Click()


    Dim data1 As Date
    Dim data2 As Date
    Dim total_dias As String

    cb_data_Acident.SetFocus
    data1 = cb_data_Acident.Text

    cb_data_retorn.SetFocus
    data2 = cb_data_retorn.Text

    total_dias = (data2 - data1)

    cb_n_dias.SetFocus
    cb_n_dias.Text = total_dias
End Sub

Gostaria de que o cb_data_Acident desse uma mensagem q não poderia ficar em branco e o cb_data_retorn quando estivesse em branco ficasse com a data do dia

ah sendo que já tentei fazer um com if que está no outro topico mas da erro de foco :thumbsup:

Share this post


Link to post
Share on other sites
Leandro.Athlos

já resolvi o problema, criei uma expressão no evento Before Update das proprias caixas de texto

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

×
×
  • Create New...

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.