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
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