[Resolvido]Caixa de combinação

Boa tarde a todos, com a vossa ajuda vou conseguir

1) Tenho um formulário com um a caixa de combinação essa caixa faz a mudança para A;B;C sendo que "C" está predefinido na abertura do formulário

2) Pretendia que em outra caixa de texto no mesmo formulário, quando a caixa de combinação estiver com a letra "A" esta caixa de texto aparece-se automaticamente muito urgente se tivesse com a letra "B" aparece-se Urgente e letra "C" pouco urgente

Obrigado

Boa tarde,

Vou supor que sua caixa de combinação tenha o nome de cbxCodigo e seu textbox tenha o nome de txtEstado.

Para resolver o seu problema é simples: crie uma função de nome atualizaEstado da seguinte forma:

Código:

Public Function atualizaEstado()
    Select Case cbxCodigo
        Case "A"
            txtEstado = "Muito Urgente"
        Case "B"
            txtEstado = "Urgente"
        Case "C"
            txtEstado = "Pouco Urgente"
        Case Else
            'O que deve aparecer caso não seja nenhuma das anteriores
    End Select
End Function

Agora no evento Após Atualizar da cbxCodigo insira:

Código:

If not isnull(cbxCodigo) = true then
    call atualizaEstado
Else
    msgbox "Informe o código!", vbCritical, "Erro"
end if

E no evento Ao Abrir do formulário coloque:

Código:

cbxCodigo = "A"
call atualizaEstado

Retorne por favor.

Abraço.

Não estou conseguindo implementar estas funções, segue um anexo com as funções colocadas

Obrigado

Houve um Problema ao copiar e colar o Código passado pelo amigo...
Estava indo algum caractere especial que dava erro em todas as linhas...


Copie novamente o Código fornecido pelo amigo e apena cole la... sem dar Espaço nem nada...



Apenas uma Coreção na Instrução do Amigo CassioFabres:

CassioFabres escreveu:E no evento Ao Abrir do formulário coloque:

CÓDIGO:

Código:

cbxCodigo = "A"
call atualizaEstado

Recomendo nao colocar dessa forma, e sim colocar esse Valor na propriedade Valor Padrão da ComboBox.

Pois se nao a cada vez que abrir o forulario ele ira colocar esse Valor "A" no registro que abrir, independente de ja ter sido lançado a anos... e nao seria essa sua intenção certo?

Agradeço ao amigo CassioFabre pela passagem da escrita, e ao amigo FabioPaes pela dica, realmente a escrita deve ter algo ao copiar e colar dá erro. copiei Escrevendo todo código de novo já funcionou.
Muito Obrigado ao dois.

Boa tarde,

O fórum agradece o retorno.

Abraço.