[Resolvido]Desabilitar todos os campos em conjunto

Amigos.. existe algum código ou maneira de desabilitar/habilitar todos os campos de um form..
de uma só vez.. sem precisar digitar campo por campo no módulo do Form??

Grato

Tente assim:

Dim TControle As Control
For Each TControle In Me.Controls
If TControle.Tag = "A" Then
If TControle.Enabled = False Then
TControle.Enabled = True
Else
TControle.Enabled = False
End If
End If
Next TControle

Coloque A na linha Marca(Tag) da aba Outras, nas propriedades dos campos que for entrar na condição

mas em um botão tem como voltar ao normal?

Estás a colocar esse código no evento ao carregar? Se for colocas um botão no form e mudas o Enable=True

O botão Abilitar/Desabilitar tem que permanecer ativo. Se os controles estiver em um estado, assume o outro. Na Marca desse botão você não coloca o A, a não ser que uses um atalho de teclado para não ficar preso a um botão.

Então tem que ter um botão Sim/Não. Só para clarificar. Ou colocar o código no evento ao carregar.

Podes fazer isso com2 botões e comando passando de visível a invisível. Para mim, no evento ao carregar e depois com um botão de comando a desabilitar resolvias

Eu coloquei de forma a precisar de apenas um botão, de modo que se estiver habilitado, desabilita e se tiver desabilitado, habilita

Eu percebi Criquio, mas pode colocar no evento ao carregar e se precisar de inverter utiliza um só botão. Das duas formas está certo.

Ah, se der um erro, faça o devido tratamento através do número do erro

EM realidade isso não é extremamente necessário...
Eu queria apenas poupar-me tempo pois meu form (aquele da SQL Gigante) quando abrir, colocarei as caixas todas desabilitadas, habilitando no click do botão alterar...

Se tiverem alguma ideia.. postem...
Darei por resovido este..

Grato

As ideias já foram dadas. Tenho a certeza que resolves...rsrsrs

É isso mesmo então. Basta colocar as Marcas com um A e colocar a função no clique do botão. Nem mais nem menos

Colocaria esse código no ao carrgar do form?
ma e o botão.. ele não iria desabilitar tambem??

Não. Observe a dica sobra a Marca. Todo controle tem, na aba Outros das suas propriedades, a linha Marca. Coloque um A nelas. Ou, se apenas o botão for ficar fora da regra, coloque o A apenas na Marca dele e troque a linha em vermelho pela versão dela em azul, logo abaixo:

If TControle.Tag = "A" Then

If TControle.Tag <> "A" Then

A marca A sera no tag do form correto?

Não, no dos controles que você quiser desabilitar. Ou se o número de controles a desabilitar for maior do que o dos controles que não serão alterados, coloque na Marca dos controles que não serão alterados e use conforme a linha azul acima.

é assim...
Vou desabilitar todos no abrir do form
E habilitar todos no clicar do botão

penas os botoes do cabeçalho do form que nao serao desabilitados...

que faço?

Deixe eles já desabilitados pelas propriedades de cada um. Na linha Marca dos controles que não serão desabilitados, coloque a letra A. Use a função que passei acima, trocando a linha que está em vermelho pela que está em azul, ou seja, troque o = por <>. Essa função fica no clique do botão.

Ok Grato Amigão

Ops!!

O objeto nao aceita essa propriedade ou metodo

If TControle.Tag <> "A" Then

É disso que eu falei para fazer o tratamento do erro. Pegue o número dele e bota em um TrataErro conforme o outro tópico.

O problema agora é achar o outro tópico
kkkkkkkkkkkkkkk

Serve este aqui??

On Error GoTo Err_CboDetento




Exit_CboDetento:
Exit Sub

Err_CboDetento:

MsgBox "Erro número: " & err.Number & vbLf & vbLf & err.Description, vbCritical, "Syspen!"

Resume Exit_CboDetento
End Sub

Amigão.....
Se o form tem cabeçalho.. ele so desabilita do cabeçalho se o botão ali estiver...

Nao desabilita do detalhe

e o A não funcionou...

Como eu faço para excluir alguns da desabilitacao?

Algo está mal então. Acabei de fazer um teste aqui com todo tipo de controle no cabeçalho, detalhe e rodapé e funcionou para todos.

e tem uma Label que não desabilita nem com reza de muité veia kkkkkkkkkkk

Dim TControle As Control
For Each TControle In Me.Controls
If TControle.Tag <> "A" Then

If TControle.Enabled = False Then
TControle.Enabled = True
Else
TControle.Enabled = False
End If
End If
Next TControle

Labels não desabilitam mesmo, pois não são controles de entrada de dados, apenas de exibição. Só assumem o aspecto de desabilitado quando são acoplados a um campo de entrada de dados, como textbox, listbox, combos...

Quanto ao código, é isso mesmo.Deve estar faltando alguma coisa na formatação dos campos.

Ótimo. Sabia que conseguirias