ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Habilitar / Desabilitar Componentes

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
daniellsfirefox
Acabou de chegar
Acabou de chegar
Mensagens: 7
Registrado em: Ter Nov 13, 2018 11:18 am

Habilitar / Desabilitar Componentes

Mensagem por daniellsfirefox » Ter Nov 13, 2018 12:58 pm

Boa tarde Pessoal, sou novo no fórum e mais novo ainda em desenvolvimento vba...
Gostaria de uma ajuda se possível para simplificar o código:

Código: Selecionar todos

Private Sub cboEquipamento_Change()
    If cboEquipamento.Text <> "" Then
    Me.cboAuto.Enabled = False
    Me.cboKm.Enabled = False
    Else
    Me.cboAuto.Enabled = True
    Me.cboKm.Enabled = True

End If
End Sub

Private Sub cboHs_Change()
    If cboHs.Text <> "" Then
    Me.cboAuto.Enabled = False
    Me.cboKm.Enabled = False
    Else
    Me.cboAuto.Enabled = True
    Me.cboKm.Enabled = True

End If
End Sub


Private Sub cboAuto_Change()
    If cboAuto.Text <> "" Then
    Me.cboEquipamento.Enabled = False
    Me.cboHs.Enabled = False
    Else
    Me.cboEquipamento.Enabled = True
    Me.cboHs.Enabled = True

End If
End Sub

Private Sub cboKm_Change()
    If cboKm.Text <> "" Then
    Me.cboEquipamento.Enabled = False
    Me.cboHs.Enabled = False
    Else
    Me.cboEquipamento.Enabled = True
    Me.cboHs.Enabled = True

End If
End Sub

Tenho um controle de equipamento e horas outro automóvel e km, quando selecionar equipamento ou horas tem que desabilitar automóvel e km e vice versa. Obrigado!



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 2796
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Habilitar / Desabilitar Componentes

Mensagem por webmaster » Ter Nov 13, 2018 1:05 pm

Para um iniciante, o código até que está muito bom. Ele está funcionando?


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

daniellsfirefox
Acabou de chegar
Acabou de chegar
Mensagens: 7
Registrado em: Ter Nov 13, 2018 11:18 am

Re: Habilitar / Desabilitar Componentes

Mensagem por daniellsfirefox » Ter Nov 13, 2018 1:13 pm

Rsrsrs, está funcionando sim... Porém acredito que deve ter algum jeito de simplificá-lo.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder