[Resolvido]Alterar a côr do sombreado dos campos desativados.

Olá amigos;

Queria pedir-vos ajuda no seguinte:

Estou a construir um sistema e desativei os campos em todos os formulários, para evitar alterações acidentais dos dados.

Depois clicando no botão alterar, os campos ficam visíveis. Ao salvar, ficam de novo desativados, como podem ver na imagem.

Acontece que quando mse abre o formulário para ver os campos de um formulário, a visualização não é boa.

Pergunto:

Posso alterar a côr do sombreado ou mesmo, retirá-la sem ativar os campos?

Agradeço se me puderem ajudar.

um abraço
Joaquim

Olá Joaquim,

Será necessário partilhar o código que tem no botão "Guardar"
Aproveito para perguntar, quer alterar a cor mas manter os registos protegidos na mesma?

Abraço

Bom dia Álvaro;

Antes demais obrigado pela ajuda.

Eu desativei nas propriedades dos campos, para ficarem desativados.

Desta forma não se alteram od dados por acidente. depois com os códigos dos botões, os campos ativam-se e desativam-se sempre que necessário.

Se houver outra forma, eu implemento-a.

O formulário está a funcionar bem e conforme as instruções dadas nos respetivos códigos.

O que eu gostava de mudar, era eliminar o sombreado(Quando ativados) ou então que o sombreado fosse o mais transparente possível.

Eu tenho os campos e os rótulos em negrito, e mesmo assim, não está bem defenido.

Se houver outra forma de proteger os campos, para mim não tem problema-

Envio o código abaixo do botão guardar, mas não é só quando gravo o formulário. Sempre que se chama o formulário para visualizar os registos, eles já estão desativados.

Um abraço e obrigado.

Joaquim

Código:

Private Sub btGuardar_Click()
       If IsNull(TxtNomeCliente) Then
        MsgBox ("Não preencheu o campo cliente.")
       TxtNomeCliente.SetFocus
       TxtNomeCliente.BackColor = 7852
       DoCmd.CancelEvent
       End
   End If

   btNovo.Enabled = True
   btDuplicar.Enabled = True
   btGuardar.Enabled = False
   btEliminar.Enabled = True
   btAtualizar.Enabled = False
   btAlterar.Enabled = True
   TxtNomeCliente.Enabled = False
   TxtTipoCliente.Enabled = False
   TxtFinanceiro.Enabled = False
   TxtEstadoCliente.Enabled = False
   TxtMorada.Enabled = False
   TxtCodigoPostal.Enabled = False
   TxtLocalidade.Enabled = False
   TxtConcelho.Enabled = False
   TxtDistrito.Enabled = False
   TxtPais.Enabled = False
   TxtTelefone.Enabled = False
   TxtWatsapp.Enabled = False
   TxtTelemovel.Enabled = False
   TxtEmail.Enabled = False
   TxtContribuinte.Enabled = False
   TxtCampoExtra.Enabled = False
   TxtObservacoes.Enabled = False
   Me.Refresh

   End Sub

Olá Joaquim,

Em vez da propriedade .Enabled use antes .Locked e teste.

Por exemplo onde tem:

Código:

TxtNomeCliente.Enabled = False

altere para:

Código:

TxtNomeCliente.Locked = true

Depois será ajustar.

Nota:
Creio que da forma que sugeri faz o que pretende, mas se quiser pode usar ambas as propriedades no código, mantendo o código como tem e adicionando a .Locked.
É só testar e como disse ajustar.

Abraço

Olá de novo Álvaro.

Eu tenho todos os campos desativados na Folha de Propriedades, na Aba Dados.

Tenho que os habilitar?

Olá Joaquim,

Se os tem desativados é porque pretende que não quer que altere os dados, mas fica mais cinzento.
Altere apenas no campo que indiquei (TxtNomeCliente) para teste e aproveite coloque o campo protegido como "Sim" efetue a alteração que sugeri é você vai tirar a conclusão.
É só testar.

Abraço

Olá de novo.

Quando retirei a proteção na folha de propriedades, e alterei os campos de “TxtNomeCliente.Enabled = False” para “TxtNomeCliente.Locked = true” no botão salvar, funcionou e os campos ficaram visíveis, mas sem edição, que era o que eu queria.

O problema á que quando se chama o formulário de novo, os campos ficam de novo editáveis e sem proteção.

Se eu protejo os campos na folha de propriedades, então não tenho como depois os editar, a não ser que haja um código para desproteger os campos através do botão alterar ou quando se cria um novo.

Mas eu volto à minha pergunta inicial que é, se existe a possibilidade de alterar ou excluir o sombreamento dos campos desativados na folha de propriedades?

Essa seria a solução ideal, para os campos ficarem protegidos e com boa visibilidade.

Este sistema que estou a construir vai ter vários utilizadores e seria uma forma de evitar acidentes.

Se não for possível editar as propriedades dos campos desativados, fica então assim.

Obrigado na mesma.

Um abraço
Joaquim

Olá Joaquim,

Estou no telemóvel, mas será colocar os campos com a propriedade "protegido" sim.

Abraço

Olá amigo.

Já resolvi com o código: TxtNomeCliente.Locked = false.

Protegi os campos na folha de propriedades e depois no botão “Alterar”, inseri em todos os campos o código e os campos ficaram habilitados para edição.

Desta forma, os campos ficam protegidos, mas sem o sombreado.

Obrigado pela dica

Um abraço
Joaquim

Olá Joaquim,

Fico feliz por ter conseguido.
Era só testar o .Locked em determinada situação deveria ser Sim (true) e em outras Não (false).
Já sabe com o MaximoAccess é sempre aprender.

Abraço