Habilitar todos os controles de um form

Olá Pessoal!

Tenho um formulário que ao ser carregado os controles aparecem desabilitados. Gostaria que todos os controles fossem habilitados ao clicar em no botão novo e ao clicar no botão salvar os mesmos controles fosse novamente desabilitados. Como faço via VBA?

grato...

poste parte do bd para vermos o que se pode fazer

Boa tarde,

com a permissão do Fernando faça o seguinte:

a-ao carregar ou ao abrir o teu formulário ( onde estão desabilitados os controles) insira o código:

seucampo.enabled = true
seucampo1.enabled = true


b- No botão onde esta o comando para salvar, insira no final após o código de salvamento:

seucampo.enabled = false
seucampo1.enabled = false

Sucesso.

Deixa eu complementar.

Gostaria que isso fosse feito com um único código para não precisar digitar tanto código.

A maneira mais facil é como nosso amigo Silvio lhe orientou, de qualquer jeito precisa

digitar codigos.

Com licença dos amigos que já
deram suas contribuições.

Entendo a necessidade do Ronaldo, que por sinal
é uma necessidade constante minha, pois tenho formulários
com enumero controles e codificar cada um é um tanto trabalhoso...

Bem, aí vai uma função que criei para bloquear e desbloquear todos
os controles.

Crie um novo módulo e nomeie como quiser e ponha o seguinte:

Código:

Option Compare Database
Enum eAcao
    Bloquear
    Desbloquear
End Enum


Public Function BloDesCon(Formulario As Form, Ação As eAcao)

    Dim ctl As Control
    Dim Ic As Integer

  For Ic = 0 To Formulario.Controls.Count - 1

      Set ctl = Formulario.Controls(Ic)

      Select Case ctl.ControlType
            Case acTextBox, acComboBox, acCheckBox
              ctl.Locked = IIf(Ação = Bloquear, True, False)
    End Select
 Next Ic


End Function


Para chamar a função para bloquear todos os controles

BloDesCon Me, Bloquear

Para chamar a função para desbloquear todos os controles:

BloDesCon Me, Desbloquear

Olá Ronaldo,

Outra forma de fazer isso seria através de uma função que habilitasse/desabilitasse os controles de seu formulário. Use esta função abaixo caso você deixe todos os seus controle desabilitados, isto é, com as propriedades Ativado = Não.

Public Sub Habilitar()
Dim ctl As Control
Const conVinculado = -1 'Na propriedade Marca pela aba Outra, digite -1 (Faça isso em cada controle do tipo caixa de texto, combobox, listbox e checkbox

For Each ctl In Me.Controls
If ctl.Tag = conVinculado Then
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acCheckBox 'é opcional as listboxes, checkboxes
ctl.Enabled = True
End Select
End If
Next
End Sub

Chame esta função através de um botão ou pelo evento Form_Open.

Call Habilitar

Temos aqui, um leque de opções para travar campos que desejamos.

Basta ver qual desejamos e efetivamos o mesmo.

Abraços Good Guy, estou chegando esse fim de semana por ai, vou estar no Recreio dos bandeirantes.

Abraços Marcelo.

Abraços Fernando.

Obs. Todos os códigos, já foram para a minha biblioteca !

Sucesso a todos.