[Resolvido]Bloquear alteração registro

Olá,

estou precisando fazer uma alteração em meu sistema que é a seguinte:

Quando o usuário cadastra um procedimento, este escolhe em uma lista de opções qual o tipo de procedimento que é. Dentre estes, preciso que ao se escolher uma opção especifica, o usuário não consiga posteriormente alterar o tipo.
Isto se faz necessário porque determinados procedimentos quando iniciados, por exemplo, como "Protocolo" não pode mais ser alterado ficando o campo travado, como ocorre em um campo que tenho no qual onde, apos cadastrar um número, o mesmo fica bloqueado impedindo de ser deletado por engano.


Obrigado a todos.

Carlos

P. S - O campo em questão é alimentado por uma combox que busca a lista numa tabela de nome "Tipos"

Olá, para bloquear as caixas de textos, combox e subformulários existentes no formulário principal, é só colar esse código em módulo novo (pode dar um nome ao módulo):

Public Function Desabilita(argFrm As Form)
 Dim ctl As Control
 For Each ctl In argFrm.Controls
   With ctl
     
      Select Case .ControlType
     
         Case acTextBox 'Desabilita as Caixas de Texto
               .Enabled = False
                   
             
         Case acSubform 'Desabilita Subformulário
               .Enabled = False
   End Select
 End With
Next ctl
End Function

e no evento ao clicar de um botão é só chamar a função:
Call Desabilita(Form_NomeDoFormulário)

Beto, boa tarde!

no caso em que eu queira bloquear a combox somente se ela for selecionada uma das Opções, que no caso é a opção "protocolo", e nas demais não quero bloquear. o código ainda é o mesmo?

Grato.

Não ai tens que eliminar as 2 linhas do meio do código, observa novamente o post acima que já eliminei. para bloquear ela sob outra condição, terás que colocar no formulário:

If Me.NomeDaCombox = "protocolo" Then
Me.NomeDaCombox.Enabled = False
End If

Beto, bom dia!

A alteração funciona. mas o problema é que a combox está ficando inativa para todas as outras opções e somente quando escolher "protocolo" é que ela deve ficar inativa.
Detalhe, fiz o código dentro do evento apos atualizar. Está certo ou deve ser feito dentro das propriedades do Formulário?

Grato,

Carlos

Você fez o que disse no post anterior, ou seja, excluiu as 2 linhas do meio do primeiro código? Depois disse tem que fazer o bloqueio da combox pelo formulário, é só colocar no evento após atualizar dessa combo, isso:

If Me.NomeDaCombox = "protocolo" Then
Me.NomeDaCombox.Enabled = False
Else
Me.NomeDaCombox.Enabled = True
End If

Olá,


Fiz exatamente como indicado. O problema é que ele esta deixando toda Combox inativa apos atualizar, mesmo que o valor dela seja diferente de "Protocolo".

Carlos.

amigo, posta os objetos envolvidos na questão, pois sem ver o projeto fica difícil adivinhar o que está ocorrendo de errado.

Amigo,

anexo segue a BD. que esta em Back e Front end.

O usuário que estou fazendo o teste é o "CartorioD" senha 1234567.

Obrigado

Qual é o formulário?

Olá,

O formulário em questão é o Expedientes.

http://maximoaccess.forumeiros.com/t8631-resolvidobloquear-todos-os-campos-do-formulario-e-botao-editar
ola amigo ver se serve

o código está correto, o único problema é que vc esqueceu de mandar o curso para um outro campo antes de desabilitar a combox, logo abaixo do If Me.Tipo = "Prot" Then você coloca: Me.Comando61.SetFocus para direcionar o foco para um dos botões de navegação ou mesmo outro campo do formulário

Olá Beto,

Fiz a alteração mas o problema persiste e quando escolho qualquer valor o campo fica inativo. Tentei adicionar um procedimento e a Combox ficou inativa.

Vamos desde o início, vc mencionou em seu primeiro post que precisava desabilitar/bloquear campos menos a combox no formulário, certo? Então em que situação ocorrerá esse bloqueio, a combox já sei que ela só deverá ser bloqueada quando vc escolher a opção "protocolo".

Preciso que neste campo que é uma combox, assim que o usuário escolher a opção "protocolo", (somente nesta opção) ele não consiga posteriormente alterar o tipo "protocolo" para outro tipo como SA, SI ou outro.

Este tipo protocolo nao pode ser modificado por engano como tem ocorrido, porque preciso que este registro fique armazenado no sistema, mesmo que dele venha ser gerado uma SA ou SI e ai por diante.

Então oque preciso é que ao selecionar "Protocolo" o usuário não consiga alterar mais o tipo ficando de certa forma travado ou inativo. só nesta opção.

então os outros campos não precisam ficar trancados, somente a combox quando a opção escolhida na mesma for "protocolo, certo?

Espero que a resposta seja sim, somente a combox a trancar, teste ai.

Olá,

É exatamente isto. Ficou perfeito.

Desculpe pela trabalheira.

Obrigado.

Sem problemas, saudações do fórum pelo retorno.