[Resolvidos]Proteção do formulário e de seu subformulário usando função que interage com a tag dos controles

Pessoal eu tehho um formulário e vinculado a ele tenho um subformulário (formulário contínuo).

Eu quero que os dados digitados no formulário, bem como no subformulário fiquem protegidos tão logo terminar de cadastrar o registro no bd.

Porém, se eu proteger o formulário, o subformulário não aparece (fica como se fosse bloqueado ou inativo).

Outra coisa, queria criar um botão de edição que, uma vez acionado, desprotegesse o registro que foi protegido, permitindo, com isso, a edição do registro. Funcionaria assim: o usuário acessa o formulário e subformulário em branco e cadastra as informações; ao sair do formulário/subformulário os dados do registro ficam protegidos; caso ele localize o registro salvo, a edição dos dados será permitida somente após ele clicar no botão de edição. Ou seja, se o formulário estiver em branco, a inclusão de dados é livre; se o formulário for um registro já realizado em momento anterior, o formulário fica protegido e somente após clicar no botão o usuário poderá alterar os seus dados.

Nota: no subformulário, que é contínuo, eu quero que somente o subformulário preenchido fique protegido. O outro subformulário que se abre, por estar em branco, deve ficar desprotegido. Uma vez ele for preenchido, fica protegido como os demais e assim sucessivamente.

Acho que é isso.

No aguardo daquela ajuda...

Amigão bom dia!

Coloque em site publico um exemplo do que está a tentar fazer, é mais facil para lhe ajudar-mos.

E pelo que estou a pensar que você quer é o simples.

Pode colocar aqui: http://www.speedyshare.com/ ou outro.

Qual é o formulario em questão ?

Uma vez que tenho aqui o seu projeto e você pode confiar, eu vou recolher toda a informação dos tópicos que você abriu e vou resolver ainda esta noite.

Seja especifico, indicando os nomes reais dos formulários, consultas e relatórios que deseja as alterações.

1. Proteção do formulário e subformulário:

Quando o usuário abrir o formulário (CADASTRO_CAUÇÕES) para preencher um NOVO registro, eu quero que o formulário e o subform (ALTERAÇÃO_CAUÇÃO) que consta nele fiquem com os campos desprotegidos (liberados para digitação);

Quando o usuário abrir o formulário (CADASTRO_CAUÇÕES) e localizar um registro existente, eu quero que apenas o subformulário (contínuo) que está em branco (sem dados preenchidos) fique desprotegido. Os demais campos (do formulário e do subformulário já preenchidos anteriormente) devem ficar protegidos.

Eu quero que para o usuário alterar os dados do formulário ou do subformulário que estão protegidos deva clicar num botão chamado “Editar” (esse botão ainda não existe no formulário).


2. Botão de localizar registro constante em subformulário:

Atualmente eu consigo apenas localizar, através do binóculo, o número de registro do formulário (CADASTRO_CAUÇÕES). Eu deixo o cursor no campo Nº DE CONTROLE e clico no binóculo. Em seguida digito o número do registro a ser localizado. O sistema traz para mim o registro do formulário e todos os registros dos subformulários vinculados ao registro do formulário principal. (o subformulário é contínuo)

Contudo, eu quero criar um botão que, ao ser clicado, procure um registro no subformulário ALTERAÇÃO_CAUÇÃO (no campo GUIA). Ao localizar este registro, eu quero que o sistema traga, na tela do formulário, o registro localizado.

Foi inserido um botão no seu form para PESQUISA, quando pesquisa bloqueia todos os controles com a função:

Private Sub BotaoPesquisa_Click()
'By JPaulo ® Maximo Access
codigo....bla bla bla e chama a função
Call BloqueiaControles(Me)
End Sub

Public Function BloqueiaControles(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 = True 'se desejar bloquear o campo
ctl.Enabled = False 'se desejar ativar o campo
End If
Next ctl
End Function


Foi inserido um botão no seu form para EDITAR, quando pressionar desbloqueia todos os controles com a função:


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