Como limpar campos Txt no formulário

Olá boa noite a todos. Estou com uma dúvida que para mim parece de outro mundo. Estou precisando que ao clicar no botão novo, ou mesmo ao adicionar novo registro no navegador do ACCESS quatro campos sejam limpos, mas sem apagar os registros anteriores. Eu na minha ingenuidade usei o seguinte código no botão novo:

Código:

Private Sub BtnNovo_Click()
On Error GoTo Err_BtnNovo_Click
DoCmd.GoToRecord , , acNewRec

'Limpa os campos TXT
Me.TxTFunc.Value = Null
Me.TxtLotacao = ""
Me.TxtArea = ""
Me.TxtGrupo = ""

Exit_BtnNovo_Click:
Exit Sub

Err_BtnNovo_Click:
MsgBox err.Description
Resume Exit_BtnNovo_Click
End Sub

Percebam que eu fiz apenas um teste usando duas formas, "" e Null. Eu separei a base de dados espero que consigam visualizar. Gostaria de saber também como faço para após editar o formulário, clique em salvar e "congele" os campos evitando reedição dos mesmos. Antecipo os meus agradecimentos

Boa noite Juan....

Bem, é o seguinte, ao usar o comando:

DoCmd.GoToRecord , , acNewRec

o mesmo vai para um novo registro limpo, aguardando a inserção de dados.

O que se pode fazer é usar o comando ".enabled = true ou .enabled = false" para congelar ou descongelar os campos que você quer.

Esse comando é usado ao carregar o formulário ( load form ) ou ao abrir ( open form)

a sintaxe é assim ( ao abrir ou ao carregar o teu form.):

me.seucampo.enabled =false

Para destravar usa-se um botão com um nome qualquer, no evento ao clicar ( on click) do mesmo.

me.seucampo.enabled = true.

Esse comando pode ser usado também no evento ao salvar os dados do formulário.

do.cmd save
me.seucampo.enabled =false

Agora se você deseja, limpar os campos, devido a algum erro de inserção, usa-se também um botão, no evento ao clicar ( on click )

me.seucampo.value = ""

Espero ter te ajudado um pouco.

Abraços.

Veja assim

Silvio, muito boa tarde.
Primeiro receba meus cumprimentos pela atenção.
Vou tentar explicar melhor:
Na minha tabela ocorrência eu possuo um campo chamado de IdMatricula que busca os dados do funcionário. Já no formulário, além do campo IdMatrícula, existem os campos TxtNmFunc, TxtArea, TxtGrupo e TxtLotacao. Para trazer os dados dos funcionário usei o recurso do seguinte comando: Me.TxtFunc= Me.IdMatricula. Column(1) e assim para os demais campos, na propriedade após atualizar. Lembro que esses campos só estão presentes no formulário e não na tabela ocorrência, e não sei se é aí que está o erro?
Não quis usar a função Dlookup porque eu li algumas críticas com relação à futura lentidão quando usada por vários usuários, também não sei se procede.
Agradeço o apoio

Juan, manda esse banco para que mais colegas possam dar uma olhada nele e terem mais soluções. Zipa e poste aqui.

Abraços

Silvio,

Ele está postado na primeira mensagem, mas segue novamente.

Gilberlanio, boa tarde.
Receba meus cumprimentos...
Agradeço a modificação que você fez, porém o campo matricula está "congelado" e não consigo inserir o número da matrícula, consequentemente em um novo registro não é possível adicionar funcionário.
Grato.

Alguém do Fórum poderia me auxiliar na busca dessa solução. Eu preciso limpar os campos no formulário sempre que o usuário solicitar um novo registro sem contudo apagar o anterior.

Quais campos você quer manter no formulário ?

EU ainda não entendi mesmo......

Boa tarde Silvio.
Os campos txtfunc, txtarea, txtgrupo, eles precisam ser "limpos" para receber o próximo registro, porém o que foi editado gostaria que permanecesse no formulário, se é que é possível.
Agradeço a ajuda e antecipo as desculpas se estiver pedido algo que não pode acontecer.

Vamos pelo simples então...

Crie um botão chamado limpa campo, depois coloque o teu código no evento ao clicar:

Me.TxTFunc = ""
Me.TxtLotacao = ""
Me.TxtArea = ""
Me.TxtGrupo = ""

Agora que eu vi, que esta a trabalhar com campos desacoplados da tabela. Particularmente, prefiro trabalhar com eles acoplados a tabela.

Silvio, boa tarde.
Grato pela sua ajuda e dica para trabalhar com os campos acoplados. Eu acho que vou ter que incorporá-los à tabela ocorrencia para futura busca. Agradeço imensamente a atenção.

Será bem melhor em todo os sentidos !

Abraços e sucesso a ti.

pegando  carona com esse tópico .
não  consigo limpar o campo Anexo, mesmo colocando a tabela

Código:

If Me.ftcartao1.AttachmentCount = 1 Then
  Me.ftcartao1.Undo
 ' me.ftcartao1=""
  Me.Requery
 DoCmd.OpenForm "opcao
 DoCmd.Close
"

e nem deletando

Código:

CurrentDb.Execute "DELETE FROM Cartão de membros WHERE ftcartao1= ""

Boa tarde.

Experimente...

If ISNOT NULL (Me.ftcartao1.AttachmentCount) OR Me.ftcartao1.AttachmentCount => 1 Then
Me.ftcartao1.Undo
Me.ftcartao1=""
Me.Requery
DoCmd.OpenForm "opcao
DoCmd.Close

Obs....não testei...apenas me veio a mente fazer de tal forma. Teste e me informe.

Abraços.

Código:

If ISNOT NULL (Me.ftcartao1.AttachmentCount) OR Me.ftcartao1.AttachmentCount => 1 Then


essa linha dando erro

Opss....

IS NOT é separado.

Juan Pablo bom dia,

Só complementando a ajuda do Silvio e do Crysostomo.

Você pode criar uma função genérica em um módulo, que limpa todos os controles (combobox, listbox, checkbox, textbox e etc.) de qualquer formulário.

1 - Crie um módulo (ex.: "mdlFuncoes")
2 - Neste módulo, copie e cole o código abaixo:

Código:



Public Function FN_LimpaCampos(nForm As Form)
Dim ctl As Control 'varialvel que assume o controle(textbox,combobox,listbox e etc) do form

    For Each ctl In nForm.Controls 'Para cada controle no formulário
        'Se o tipo do controle for Caixa de Texto então
        If TypeOf ctl Is TextBox Then
            ctl = Empty
        End If
        
        'Se o tipo do controle for Caixa de Combinação então
        If TypeOf ctl Is ComboBox Then
            ctl = Empty
        End If
        
        'Se o tipo do controle for Caixa de Listagem então
        If TypeOf ctl Is ListBox Then
            ctl = Empty
        End If
        
        'Se o tipo do controle for Caixa de Seleção então
        If TypeOf ctl Is CheckBox Then
            ctl = Empty
        End If
        
    Next

End Function



E no botão "Novo" do formulário, inclua a seguinte instrução:

   Call FN_LimpaCampos(Me)


Fiz uma pequena alteração, como exemplo,no seu formulário incluindo o botão "Limpar", que faz a chamada desta função.


Espero ter ajudado.

Boa sorte.

[]'s

valeu Alexandre, apagou os campo de anexos

Valeu Crysostomo!!!

revendo aqui , ele limpa o campo , mas tem um alteração na tabela

Os campos do teu form são acoplados à tabela?

ele limpou todos e o anexo de foto também, só que ele fez uma alteração na tabela ou seja :
ele limpou o campo de ft1, mas faz um novo registro e guardou a foto , ou eu estou fazendo de jeito errado.
repare na tabela tem 4 cadastro, quando coloca a foto no cartão  vai na tabela de novo que ele vai limpar o campo anexo do cadastro e criar um campo vazio para ele guardar

drive.google.com/open?id=1IiG87xuCjqdS0X8Bfz-uHPKxveW-sgdm

Crysostomo,
Mandei no privado.

Alexandre não consigo limpar os controle . Caixa de combinação

Crysostomo?

É a mesma versão do sistema que mandei ou vc fez alterações?

É o mesmo. Eu só coloquei pra chamar a call ao abrir o from.
Mexo com 2007

Só um pitaco.....

Alexandre escreveu:E no botão "Novo" do formulário, inclua a seguinte instrução:

  Call FN_LimpaCampos(Me)

É para ser em um botão....

no botão limpa , mas se eu não colocar em um registro novo a caixa vem com ele preenchido quando salva os dados na tabela sempre vai colocar os dados que salvei mas também vai colocar um campo vazio com os dados que ja vem são preenchidos automaticamente quando se abre a frm

Evento...Ao carregar !

Nao da certo já tinha colocado

Bom dia.

Faz assim então......vamos usar um pouco a " imaginação " .

Evento ao abrir do teu formulário, coloque a seguinte sintaxe de rotina:

Call FN_LimpaCampos(Me)