PROTEGER FORMULÁRIO - Como proteger formulários para que o usuário só possa alterar clicando em botão EDITAR

Bom dia pessoal,

Necessito de uma ajudinha, seguinte:

Tenho um pequeno BD. Tenho a tabela (CADASTRO DE ALUNOS) e um Formulário onde, adiciono salvo excluo e consulto os registros (os botões mais simples que já tem no access pré-definos). Porém, quando eu faço uma consulta no BD ele me traz os dados, digamos assim já editados, possibilitando alterações imediatas no registro e eu queria que a consulta não permitisse isso, ou seja, chamei o registro e para alterá-lo é necessário clicar no botão editar.

Realizei Pesquisas no Fórum e localizei uma função que serve para isso, porém com subformulário, acho que é coisa simples de alterar, mas como nao tenho tanto conhecimento assim, nao entendo algumas linhas da função, trago ela para exemplo:

Isso é bem o que eu quero, mas sem subformulário ( o exemplo está em: http://maximoaccess.forumeiros.com/t573-resolvidosprotecao-do-formulario-e-de-seu-subformulario-usando-funcao-que-interage-com-a-tag-dos-controles


Public Function BloqueiaControles(strFrm As Form) As String
'By JPaulo ® Maximo Access
Dim ctl As Control
For Each ctl In strFrm.Controls -------------------------------------------------------------> isso seria o nome do meu Form?
If InStr(1, ctl.Tag, "A") Then 'Só os controles que tiverem na linha Marca (Tag) a letra "A" ----> Não entendi nada dessa linha o que fazer?
ctl.Visible = True 'se desejar que fique visivel o campo --------------------------------------> ok
ctl.Locked = True 'se desejar bloquear o campo--------------------------------------------->ok
ctl.Enabled = False 'se desejar ativar o campo---------------------------------------------->ok
End If
Next ctl
End Function


botão para EDITAR, quando pressionar desbloqueia todos os controles com a função: ------->ok


Private Sub BotaoEditar_Click()
Call DesBloqueiaControles(Me)
End Sub


Public Function DesBloqueiaControles(strFrm As Form) As String
'By JPaulo ® Maximo Access
Dim ctl As Control
For Each ctl In strFrm.Controls----------------------------------------------------------->???
If InStr(1, ctl.Tag, "A") Then 'Só os controles que tiverem na linha Marca (Tag) a letra "A" -->???
ctl.Visible = True 'se desejar que fique visivel o campo
ctl.Locked = False 'se desejar bloquear o campo
ctl.Enabled = True 'se desejar ativar o campo
End If
Next ctl
End Function



Desde já obrigado.

Lamcarter

Você quer proteger edição de dados, é isso? Você pode tentar algo assim no clicar de um botão no formulário principal:

Me.NomeDoControleSubForm.Form.AllowEdits = True

Isso habilita para edição. Se mudar para False, desabilita.

Entendi seu comando, acredito que seja isso mesmo, mas não estou sabendo onde colocar tal linha de comando.

Realmente tenho um botão que chama o formulário, ele foi feito com o assistente do próprio access, assim não sei onde inserir o comando!

segue a tela da configuração do botão para melhor compreendimento.

Obrigado e se puder me ajudar a explicar onde insiro a linha de comando fico agradecido.

Lamcarter

Não é no botão que abre o formulário. Nesse caso, você criaria um novo botão no formulário e colocaria o código que passei no evento "Ao clicar" desse botão. Como você quer que ele abra bloqueado para edição, pelo que entendi, pode configurar esse subformulário para abrir bloqueado. Para isso, abrir o formulário em modo estrutura, ir na aba "Dados" das propriedades dele e localizar a linha de permitir edição e colocar "Não". E no botão a ser criado dentro do formulário principal, você coloca a linha que passei.

Entendi deu certinho a função, porém tem um detalhe, dentro do formulário eu tenho uma lista que me traz uma consulta e essa lista não pode ficar bloqueada, ou seja, deu certo o formulário (bloqueou a inserção dos dados) porém também bloqueou a consulta, tem como contornar isso, para que a consulta fique disponibilizada, pois quando clico no nome do aluno ele manda pro formulário os dados deles. Segue tela para melhor compreensão.

Obrigado pelo auxílio.

Tenho um outro formulário, que esse não tem consulta e ele abre bloqueado certinho, porém adicionei a linha de comando no botão no Evento "Ao Clicar" e quando clico aparece a seguinte mensagem:
O Microsoft Access não pode localizar o objeto "ME".

e aparece apenas OK

Talvez você possa passar essa combo para o formulário principal, fazendo algumas alterações no source dela, dependendo da situação. Ou, então, podemos esquecer essa parte de bloquear o formulário e voltar ao código que tentou antes, colocando uma condição para bloquear todos os campos, menos a combo:

Código:

For Each ctl In Me.Controls 'Me.Controls porque a função está dentro do formulário
        If ctl.Name <> "NomeDaCombo" Then 'Se o nome do controle for diferente do nome da combo...
                ctl.Locked = True 'True bloqueia o controle e False desbloqueia
                ctl.Enabled = False 'False desativa o controle e True ativa
        End If
Next ctl