Mudar a ortografia de acordo com o sexo

Senhores do forum, boa tarde.

Em um formulário existe os seguintes campos

grupo de opção "CargoDoParlamentar" com os valores 2(senador), 3(Dep. Fed), 4(Dep. Est.), 5(prefeito) e 6(vereador)

caixa de combinação "Sexo", com os valores Masculino e Feminino

e caixa de texto "PronomeDeTratamento", onde deverá aparecer a grafia correta (Exmo. Sr. ou Exmª Srª) conforme o sexo

caixa de texto "TratamentoDoCargo", onde deverá(ou deveria)aparecer a o cargo do parlamentar com a grafia correta (senadora, vereadora, etc)conforme o sexo.

Até aí beleza! Consegui fazer funcionar o código na caixa de texto "PronomeDeTratamento", usando a sintaxe

If Me.Sexo = "MASCULINO" Then
Me.PronomeDeTratamento = "EXMO. SR."
Else
Me.PronomeDeTratamento = "EXMA. SRª"
End If
funcionou legal.

Mas na caixa de texto "TratamentoDoCargo", eu não consegui fazer funcionar. Usei a sintaxe

If Me.Sexo = "MASCULINO" And Me.CargoDoParlamentar = 3 Then
Me.TratamentoDoCargo = "DEPUTADO FEDERAL"
Else
Me.TratamentoDoCargo = "DEPUTADA FEDERAL"
End If

If Me.Sexo = "MASCULINO" And Me.CargoDoParlamentar = 4 Then
Me.TratamentoDoCargo = "DEPUTADO ESTADUAL"
Else
Me.TratamentoDoCargo = "DEPUTADA ESTADUAL"
End If

If Me.Sexo = "MASCULINO" And Me.CargoDoParlamentar = 5 Then
Me.TratamentoDoCargo = "PREFEITO"
Else
Me.TratamentoDoCargo = "PREFEITA"
End If

If Me.Sexo = "MASCULINO" And Me.CargoDoParlamentar = 6 Then
Me.TratamentoDoCargo = "VEREADOR"
Else
Me.TratamentoDoCargo = "VEREADORA"
End If

mas só aparece na caixa de texto "TratamentoDoCargo" o último nome da sintaxe, ou seja, no caso VEREADORA e não muda. Na caixa de texto "PronomeDeTratamento" muda legal.

Então, solicito aos senhores uma ajuda no sentido fazer funcionar(caso possível) na caixa de texto "TratamentoDoCargo" como funciona na caixa pronome. Ao mudar de Masculino para Feminino, muda-se a grafia.

O objetivo é criar uma consulta para gerar etiquetas de endereçamento corretamente.

No aguardo de sugestões, agradeço

Sempre utilize ! para se referenciar a um campo de um formulário. Use . para propriedades e métodos do objeto
Tente dessa maneira:

Código:


If Me!Sexo = "MASCULINO" Then
    Select Case Me!CargoDoParlamentar
        Case 3: Me!TratamentoDoCargo = "DEPUTADO FEDERAL"
        Case 4: Me!TratamentoDoCargo = "DEPUTADO ESTADUAL"
        Case 5: Me!TratamentoDoCargo = "PREFEITO"
        Case 6: Me!TratamentoDoCargo = "VEREADOR"
    End Select
Else
    Select Case Me!CargoDoParlamentar
        Case 3: Me!TratamentoDoCargo = "DEPUTADA FEDERAL"
        Case 4: Me!TratamentoDoCargo = "DEPUTADA ESTADUAL"
        Case 5: Me!TratamentoDoCargo = "PREFEITA"
        Case 6: Me!TratamentoDoCargo = "VEREADORA"
    End Select
End If


Olá rclenzi, boa tarde.
Agradeço a sua atenção.

Irei tentar a sua sugestão, mas, como já saí do trabalho e o BD se encontra lá, somente na próxima semana estarei testando.
Postarei aqui o resultado.
Obrigado



Caro rclenzi, sua sugestão funcionou legal.
Estou apenas com uma dúvida: eu implementei o código em dois campos(Sexo e CargoDoParlamentar) para que funcionasse a contento. Há agum risco de erro no BD fazendo desta forma?
Obrigado