[Resolvido]Botão Novo Registro, Mas Vai como Desabilitado os campos

Olá meus Caros, como vão ?

Pois é, eu estou com um Formulário que tem os campos desativados até que eu clicK em Editar pra que sejam desabilitados e editado o Registro, belezinha, inclusive tenho também um botão salvar, que verifica a saida repentina. Só que estou com um problema, na hora de um novo registro, o formulário vem desabilitado, ate que o botão Editar seja ativado. Código ao Entrar do frm :

Código:

Private Sub Form_Current()
Me.btnCadastroClientesEditar.Enabled = True
Me.btnCadastroClientesSalvar.Enabled = False

' Ao entrar no formulário, á o Bloqueio de todas as caixas de texto do registro atual
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 = False
End Select
Next ctl
End Sub


Eu não sei implementar um código pra liberar o registro nessa rotina

Bom dia Jonas,

Tenta o seguinte:

Ao clicar para inserir novo registro coloca o teu código alterando a seguinte linha:

De: Me(StrName).Enabled = False Para: Me(StrName).Enabled = True


Deve resolver.

Nivaldo.

Um pitaco;

Private Sub Form_Current()
Me.btnCadastroClientesEditar.Enabled = True
Me.btnCadastroClientesSalvar.Enabled = False

' Ao entrar no formulário, á o Bloqueio de todas as caixas de texto do registro atual
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
            'se for um novo registro, habilita todos os controles
                 If Me.NewRecord Then
                 Me(StrName).Enabled = True
                 Else
            'se não for um novo registro, desabilita todos os controles
                 Me(StrName).Enabled = False
                End If
            End Select
        Next ctl
End Sub

Nivaldo, meu amigo, testei mas não funfo.

Mas deu certinho O Código do JPAULO. Ohh meu amigo valeu.

Obrigado pelo retorno o forum agradece.