[Resolvido]Como fazer com item do Combobox desabilite alguns campos

Olá Amigos, estou começando a usar  vba e não estou conseguindo fazer meu combobox funcionar, deve ser algo simples mas não estou conseguindo. Gostaria de ao selecionar um item do cbo ele desabilitasse alguns campos.

O que eu fiz foi:

Private Sub cbo_Tipo_AfterUpdate()
If cbo_Tipo = "Cartório" Then
Me.Txt_DtEnvio.Enabled = True
Me.Txt_Qtde.Enabled = True
Me.Cbo_Mes.Enabled = True
Else
Me.Txt_DtLote.Enabled = False
End If

If cbo_Tipo = "Lote Diário" Then
Me.Txt_DtEnvio.Enabled = True
Me.Txt_Qtde.Enabled = True
Me.Txt_DtLote.Enabled = True
Else
Me.Cbo_Mes.Enabled = False
End If

If cbo_Tipo = "Antecipadas" Then
Me.Txt_DtEnvio.Enabled = True
Me.Txt_Qtde.Enabled = True
Else
Me.Txt_DtLote.Enabled = False
Me.Cbo_Mes.Enabled = False
End If
End Sub

Obrigado

Bom dia Daniela....

Aparentemente o código está correto. Apenas uma ressalva a ser feita em :

de: If cbo_Tipo = "Cartório" Then
para: if!cbo_Tipo.text = "Cartório" then

explicando: se for texto deve ser=text , mas se for número = value


Caso não seja isso, queria por gentileza nos dar mais explicações de quais itens a serem desabilitados.

Boa Tarde Silvio, fiz o que vc falou, mas não deu certo. Meu cbo tem só três opções e independentemente de qual eu escolha os campos Dt_Envio e cbo_Mes são os únicos que ficam desabilitados. Muito obrigado por me ajudar.



Private Sub cbo_Tipo_Change()
If cbo_Tipo.Text = "Cartório" Then
Me.Txt_DtEnvio.Value = True
Me.Txt_Qtde.Value = True
Me.Cbo_Mes.Enabled = True
Else
Me.Txt_DtLote.Enabled = False
End If

If cbo_Tipo.Text = "Lote Diário" Then
Me.Txt_DtEnvio.Enabled = True
Me.Txt_Qtde.Value = True
Me.Txt_DtLote.Enabled = True
Else
Me.Cbo_Mes.Enabled = False
End If

If cbo_Tipo.Text = "Antecipadas" Then
Me.Txt_DtEnvio.Enabled = True
Me.Txt_Qtde.Value = True
Else
Me.Txt_DtLote.Enabled = False
Me.Cbo_Mes.Enabled = False
End If
End Sub

Boas....

Coloque o mesmo código no evento após atualizar (After Update) dessa combobox

Não funcionou Silvio

Somente vendo mesmo o teu projeto.

Coloque ele, em um servidor externo ( 4shared, onedrive, google, mega etc...etc.. ) e coloca o link dele aqui para fazer donwload.

https://onedrive.live.com/redir?resid=81A086C72D902730!27862&authkey=!AANm6lHyxKlk-dE&ithint=file%2caccdb

Bom dia....

Seja detalhista....qual item na combobox, ao ser selecionado, deve desabilitar quais itens ?
Exemplo..

Se eu selecionar tal item.....esses itens devem ficar desabilitados.

Se eu selecionar esse outro itens.....esses ficam também.

Te pergunto para poder criar a rotina correta, baseado no que você vai nos dizer.

Enfatizo seja detalhista.

Quando clicar em "Antecipadas"
quero que fique habilitado txt_DtEnvio e txt_Qtde
Desabilitado: txt_DtLote, cbo_Mes

Quando clicar em "Cartório"
quero que fique habilitado txt_DtEnvio e txt_Qtde e cbo_Mes
Desabilitado: txt_DtLote

Quando clicar em "Lote Diario"
quero que fique habilitado txt_DtEnvio, txt_Qtde e txt_DtLote
Desabilitado: cbo_Mes

Bom dia...

Teste...

Código:


Private Sub cbo_Tipo_AfterUpdate()

If cbo_Tipo.Text = "Cartório" Then
Me.Txt_DtEnvio.Value = True
Me.Txt_Qtde.Value = True
Me.Cbo_Mes.Enabled = True
Me.Txt_DtLote.Enabled = False
    ElseIf cbo_Tipo.Text = "Lote Diário" Then
    Me.Txt_DtEnvio.Enabled = True
    Me.Txt_Qtde.Value = True
    Me.Txt_DtLote.Enabled = True
    Me.Cbo_Mes.Enabled = False
        ElseIf cbo_Tipo.Text = "Antecipadas" Then
        Me.Txt_DtEnvio.Enabled = True
        Me.Txt_Qtde.Value = True
        Me.Txt_DtLote.Enabled = False
        Me.Cbo_Mes.Enabled = False
End If

End Sub

Silvio!!! Funcionou perfeitamente.
Muito Obrigado