[Resolvido]Campo em Controle Guia x bloqueio de controle

Boa tarde

Estou com uma situação em um formulário que possui um controle guia, no controle guia, tenho sub formulário(s) e neste(s) sub formulário(s), demais controles. Ocorre que, preciso bloquear a edição dos controles do sub formulário que está no controle guia. Testei várias alternativas mas não consegui fazê-lo, apenas consegui ocultar a guia, porém, acaba não resolvendo o problema...., testei no evento "atual" do formulário.... então no evento, no atual, testei, se o controle do formulário principal está vazio, bloqueio o controle que está no sub formulário dentro do controle guia (e é esta a minha dificuldade)....

Alguma amigo tem alguma dica de como possa fazê-lo?


Em anexo disponibilizo pequeno exemplo da situação.


Obrigado

Att.

Vinicius

Olá vinicius,

Faça assim. Você vai precisar de duas funções uma para bloquear controles e outra para desbloqueá-los. Na propriedade Marca do formulário, do subformulário e do controle-guia digite -1. Sem o ponto(.), é claro.

Código:

Public Function BloquearControle()
#Função de Eduardo Machado (Good Guy) para o Vinicius
On Error Resume Next
Dim ctl As Control

For Each ctl In Me.Controls
   If ctl.Tag = -1 Then
      ctl.Locked = True
   End If

Next
End Function

Public Function DesbloquearControle()
#Função de Eduardo Machado (Good Guy) para o Vinicius
On Error Resume Next
Dim ctl As Control

For Each ctl In Me.Controls
   If ctl.Tag = -1 Then
      ctl.Locked = False
   End If

Next
End Function


Private Sub campo1form1_AfterUpdate()
 If Not IsNull(campo1form1) Then
  Call DesbloquearControle
  Else
  Call BloquearControle
  End If
  
End Sub

Bom dia

Good Guy

Muito obrigado pela atenção, problema resolvido.


Tenha um bom dia!


Att.

Vinicius

Olá Vinicius,

O fórum todo agradece seu retorno.

Adquira os livros:

Para iniciante:
https://www.maximoaccess.com/t32310-segundo-livro-publicado-do-good-guy-domine-o-access-vba-para-iniciantes-na-programacao

Para usuário avançado:
https://www.maximoaccess.com/t29536-livro-publicado-tecnicas-especiais-de-access-vba-da-autoria-de-good-guy


"O temor do Senhor(respeito pela Palavra de Deus, leitura e obediência) é o princípio do conhecimento" (Prov. 1.7)
Disse Jesus: "E conhecereis a Verdade e a Verdade vos libertará". (Jo 8.32)
Disse Jesus: “Eu sou a luz do mundo; aquele que me segue, não andará em trevas, mas terá a luz da vida.” (Jo. 8.12)