[Resolvido]Bloquear/Habilitar campo apartir de seleção e/ou preenchimento de outro

Prezados Colegas,

Tentei buscar soluções no fórum para o problema que me deparei, no entanto não logrei êxito.
Aparentemente é algo simples, desta forma recorro aos colegas mais experientes para me orientar como proceder.

Observação: Encaminho em anexo o BD para que manipulem, caso necessário, para adequação a proposta.

Trata-se de um formulário, que possui um campo selecionável (sim/não) referente a "Taxa_Emissao". Desejo que se o mesmo for selecionado o campo "Valor_Pago" fique inabilitado, do contrário permaneça para preenchimento normal.

Em semelhança, gostaria que dois campos, a saber:"Nome_Completo" e "Carteira_Identidade" ficassem sempre desabilitados para edição, devendo habilitar apenas quando na  combobox "Country" fosse selecionado a opção "Não Arrecadável".

Tentei de todos os jeitos resolver esse problema, mas não consegui.
Tanto por códigos VBA postados no fórum, como orientações dos demais membros.

Assim peço ajuda dos colegas, para resolução desse problema.

Aguardo apoio e de pronto agradeço as que colaborarem.

Atenciosamente

Olá

Não vi seu bd, mas trata-se de usar a propriedade Enabled.
Seria algo assim...

No evento No atual do formulário:

Private Sub Form_Current()
On Error GoTo trato
Me.Nome_Completo.Enabled = False
Me.Carteira_Identidade.Enabled = False
If Me.Taxa_Emissao = True Then
 Me.Valor_Pago.Enabled = False
Else
 Me.Valor_Pago.Enabled = True
End If
Exit Sub
trato: MsgBox "sua mensagem", vbOKOnly + vbInformation, "título da msgbox"
End Sub


No evento Após atualizar da Caixa de seleção "Taxa_Emissao":

Private Sub Taxa_Emissao_AfterUpdate()
On Error GoTo trato
If Me.Taxa_Emissao = True Then
 Me.Valor_Pago.Enabled = False
Else
 Me.Valor_Pago.Enabled = True
End If
Exit Sub
trato: MsgBox "sua mensagem", vbOKOnly + vbInformation, "título da msgbox"
End Sub


No evento Após atualizar da combo "Country"

Private Sub Country_AfterUpdate()
On Error GoTo trato
If Me.Country = "Não Arrecadável" Then
Me.Nome_Completo.Enabled = True
Me.Carteira_Identidade.Enabled = True
End If
Exit Sub
trato: MsgBox "sua mensagem", vbOKOnly + vbInformation, "título da msgbox"
End Sub

Prezados Colegas,

Observação: Modifiquei alguns títulos para  adequar o BD ao padrão de boas normas, passando o "nome_completo" para "txtNomeCompleto" e "Carteira_Identidade" para "txtCarteiraIdentidade".

Gostaria de agradecer pelos códigos que forneceu "Merito", os dois primeiros funcionaram perfeitamente, acontece que o último código não funcionou, a saber o:


"No evento Após atualizar da combo "Country"

Private Sub cboState_AfterUpdate()
On Error GoTo trato
If Me.State = "1ª VIA (Não Arrecadável)" Then
Me.txtNomeCompleto.Enabled = True
Me.txtCarteiraIdentidade.Enabled = True
End If
Exit Sub
trato: MsgBox "sua mensagem", vbOKOnly + vbInformation, "título da msgbox"
End Sub"

No caso, fiz tudo como falou mais quando seleciono na combobox "1ª VIA (Não Arrecadável)" os campos "txtNomeCompleto" e "txtCarteiraIdentidade" não habilitam para edição.

Peço que que me ajudem, pois tentei de todos os jeitos mas não consegui. Solicito que se possível inclusive olhem o banco de dados que editei e coloquei novamente em anexo.

Aproveitando da oportunidade,  gostaria de perguntar se é possível após trecho "if me.State =" indicar mais de um campo/resultado, por exemplo "Opção A" e "Opção B".

Outra dúvida é quanto ao código Enabled que me enviou, abaixo copiado:

"No evento Após atualizar da Caixa de seleção "Taxa_Emissao":

Private Sub txtTaxaEmissao_AfterUpdate()
On Error GoTo trato
If Me.txtTaxaEmissao = True Then
Me.Valor_Pago.Enabled = False
Else
Me.Valor_Pago.Enabled = True
End If
Exit Sub
trato: MsgBox "sua mensagem", vbOKOnly + vbInformation, "título da msgbox"
End Sub"


Como fazer pra quando a "txtTaxaEmissao" for true no código Enabled, além de bloquear o acesso a outro campo, forçar que apague um valor nele contido (valor padrão), deixando o campo em branco????

Peço desculpa por trazer mais dúvidas, mais é porque é muito importante para fechar esse BD.

Atenciosamente

Alguém poderia me ajudar???

Apliquei apenas os seguintes códigos.


Inicio do Form

"Private Sub Form_Current()
Me.txtNomeCompleto.Enabled = False
Me.txtCarteiraIdentidade.Enabled = False
End Sub"

Ícone Selecionável

"Private Sub txtTaxaEmissao_AfterUpdate()
If Me.txtTaxaEmissao = True Then
Me.txtValorPago.Enabled = False
Me.txtNomeCompleto.Enabled = True
Me.txtCarteiraIdentidade.Enabled = True
Else
Me.txtValorPago.Enabled = True
Me.txtNomeCompleto.Enabled = False
Me.txtCarteiraIdentidade.Enabled = False
End If
End Sub"

Já para questão que questionei sobre apagar um valor ao selecionar outro, também resolvi assim:

"Private Sub txtTaxaEmissao_Click()
Me.txtValorPago = ""
End Sub"

OBRIGADO A TODOS PELA AJUDA