Início
![[Resolvido]Botão Novo, Botão Editar Empty](https://2img.net/i/empty.gif)
DEISON 8/6/2016, 03:19Boa Noite Pessoal
Eu vi um exemplo aqui no fórum de um código muito bacana, mais estou precisando de uma ajuda para usa-lo.
É o seguinte.
Em um formulário, tenho dois botões o de EDITAR e o NOVO.
No exemplo que peguei aqui no fórum explica como usar o código no Botão EDITAR.
Ao clicar no Botão EDITAR, ele Habilita todas as funções sem tem que ficar colocando uma a uma.
Eu gostaria de saber se tem como fazer o mesmo com o Botão NOVO, que ao clicar, ele fosse para um NOVO registro e habilitasse todos os campos.
Segue abaixo o Código.
Eu vi um exemplo aqui no fórum de um código muito bacana, mais estou precisando de uma ajuda para usa-lo.
É o seguinte.
Em um formulário, tenho dois botões o de EDITAR e o NOVO.
No exemplo que peguei aqui no fórum explica como usar o código no Botão EDITAR.
Ao clicar no Botão EDITAR, ele Habilita todas as funções sem tem que ficar colocando uma a uma.
Eu gostaria de saber se tem como fazer o mesmo com o Botão NOVO, que ao clicar, ele fosse para um NOVO registro e habilitasse todos os campos.
Segue abaixo o Código.
- Código:
Private Sub BtnEditarCadastro_Click()
Desde já agradeço pela ajuda e compreensão.
Dim Ctl As control
Dim StrName As String
For Each Ctl In Me.Controls
Select Case Ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
StrName = Ctl.Name
Me(StrName).enabled = True
End Select
Next Ctl
End Sub
