[Resolvido]Limpar campos

Bom dia!!

Estou em busca de uma forma de limpar os campos de um formulário, após preencher dados em outro formulário que ficará em pop-up.

Não sei se fui claro. Pois então, tentarei explicar brevemente!

Tenho um formulário para os usuários do trabalho preencherem, ao salvar o formulário ele aparece uma MsgBox perguntando se eles querem inserir um comentário, sendo "sim", abre esse novo formulário em pop-up com a caixa de texto e um botão abaixo para salvar as informações do formulário anterior e deste novo que se abriu e usei o comando para fechar o pop-up em seguida.
Dessa forma o usuario volta para o formulário anterior e aí sim gostaria de limpar todos os campos, pois ainda não consegui uma forma de fazer isso!

Código:

If MsgBox("Deseja inserir um comentário?", vbQuestion + vbYesNo, "Comentário") = vbYes Then
DoCmd.OpenForm "FrmComentario"
Else
stDocName = "Acres100s"
DoCmd.OpenQuery stDocName, acNormal, acEdit
MsgBox "Avaliação registrada sem comentário com sucesso!", vbInformation, "Sucesso"
End If

Desse código, vai para o outro formulário com o seguinte código no botão

Código:

Private Sub BotaoConfirmar100_Click()
stDocName = "Acres100"
DoCmd.OpenQuery stDocName, acNormal, acEdit
MsgBox "Avaliação com comentário registrados com sucesso!", vbInformation, "Sucesso"
DoCmd.Close
End Sub

Antes do DoCmd.Close gostaria de limpar os campos do FrmLancamento

Acho que o que vc precisa na verdade e abrir o Formulario anterior em Novo Registro... Pois se ele estiver vinculado a tabela e vc limpar os campos, ira limpar na tabela... E nao e isso que precisa certo?

Faça assim:
Apague o Comando Docmd.Close que tem no final do codigo e coloque:

DoCmd.OpenForm "frmVenda", acNormal
DoCmd.GoToRecord , , acNewRec
DoCmd.Close , "nomeFormulario"

nomeFormulario, coloque o formulario que esta aberto e que era fechado pelo Dcmd.Close do seu codigo antigo.

frmVenda Substitua pelo Nome do Formulario que vc queria Limpar os Campos, assim ele ira abrir, e ficar em Novo Registro com os campos Limpos...

Devera ficar assim: Claro deve alterar os Nomes dos Formulários.

Código:


Private Sub BotaoConfirmar100_Click()
stDocName = "Acres100"
DoCmd.OpenQuery stDocName, acNormal, acEdit
MsgBox "Avaliação com comentário registrados com sucesso!", vbInformation, "Sucesso"
DoCmd.OpenForm "frmVenda", acNormal
DoCmd.GoToRecord , , acNewRec
DoCmd.Close , "NomeFormulario"

End Sub


Agora caso vc queira realmente Limpar um campo de um formulário que vai ser aberto faça assim:

Deve ser colocado a baixo do comando que abre o Formulario, nesse caso o frmVenda

[Forms]![frmVenda]![Cliente] = Null

Limpa o Campo Cliente do formulario frmVenda

Código:

Agora caso vc queira realmente Limpar um campo de um formulário que vai ser aberto faça assim:

Deve ser colocado a baixo do comando que abre o Formulario, nesse caso o frmVenda

[Forms]![frmVenda]![Cliente] = Null

Limpa o Campo Cliente do formulario frmVenda

Perfeito!!

Que bom que deu Certo. Ate a proxima...