[Resolvido]Limpar Sub Formulário

Pessoal, Boa Tarde !

Primeiramente gostaria de agradecer a todos, pois vocês não imaginam o quanto estão me ajudando e o quanto estou sendo reconhecido no meu trabalho devido trabalho que vocês fazem aqui. Parabéns para todos !!

Bom minha dúvida é a seguinte

Estou enviando em anexo um arquivo que possui um formulário chamado "Cadastro" com um subformulário chamado "Formulário Principal" na qual possui um botão "Sair" com o comando (Me.undo para limpar o que foi preenchido e docmd.close para fechar o formulário), só que esse botão esta dentro do sub formulário e pelo que eu percebi ele só funciona se eu preencher o formulário manual (Clicando nos campos), porém fora do sub formulário eu tenho uma guia de controle que possui uma aba "Resposta Automática", que preenche o sub formulário de forma automática, porém quando eu clico nesse botão e resolvo clicar em sair sem gravar, ele não apaga o que foi preenchido e salva os dados.

Eu preciso de um comando que ao clicar no botão Sair ele apague tudo que esta preenchido no formulário e o feche sem salvar, independe de eu ter preenchido manual ou clicado no botão "Preencher"


*Outra questão, quando eu clico nesse botão "Preencher" ele preenche os campos mas o registro não me da opção de ir para o próximo, sera que tem algo errado no meu código?? ele só vai para o próximo porque eu fiz um comando "Gravar" com o código (DoCmd.GoToRecord , , acNewRec).

Desde já agradeço

Ola;

Tem sempre de se referenciar aos subforms;

Private Sub Comando10_Click()
 'salva
 DoCmd.RunCommand acCmdSaveRecord
 'envia para novo registro
 DoCmd.GoToRecord , , acNewRec
 'refresca forms
 Forms!Cadastro![Consulta Nome subformulário].Form.Requery
 Forms!Cadastro![Consulta idade subformulário].Form.Requery
 Forms!Cadastro![Consulta cidade subformulário].Form.Requery
 
 
End Sub

Private Sub Comando9_Click()
    Forms!Cadastro![Formulário Principal].Form.Undo
    Forms!Cadastro![Consulta Nome subformulário].Form.Undo
    Forms!Cadastro![Consulta idade subformulário].Form.Undo
    Forms!Cadastro![Consulta cidade subformulário].Form.Undo
    DoCmd.Close
End Sub

Aproveite e dê uma estudada;

http://dl.dropboxusercontent.com/u/771097/Referenciar_aos_Subforms.doc

JPaulo

Não funcionou o comando9_click()

Como eu havia falado, ele esta limpando apenas quando eu preencho o subformulário de forma manual, porém quando eu clico no botão "Preencher" que esta na guia de controle fora do subformulário, ele não apaga.

Por favor pode verificar o arquivo ? Se possível você pode inserir o código no arquivo para eu entender melhor?

Preciso apenas que o botão limpe o que foi feito tanto no sub quanto eu preencho manual ou quando eu preencho clicando no botão “Preencher”.


Grato.

Você refere-se ao pressionar o botão "Preencher" ???

Private Sub Comando16_Click()
        Forms!Cadastro![Formulário Principal].Form!NOME = "Lucas"
        Forms!Cadastro![Formulário Principal].Form!IDADE = "25"
        Forms!Cadastro![Formulário Principal].Form!CIDADE.SetFocus
        Forms!Cadastro![Formulário Principal].Form!CIDADE.Dropdown
        Forms!Cadastro![Formulário Principal].Form!CIDADE = "São Paulo"
        Forms!Cadastro![Formulário Principal].Form!CIDADE.SelText = "São Paulo"
    
         Forms!Cadastro![Consulta Nome subformulário].Form.Requery
         Forms!Cadastro![Consulta idade subformulário].Form.Requery
         Forms!Cadastro![Consulta cidade subformulário].Form.Requery
End Sub

JPaulo ou alguém por favor pode ajudar??

Desculpe J Paulo acho que você está ocupado vou dar uma mãozinha!

Lupércio, obrigado pelo retorno

Na verdade não era isso que eu queria, esse comando é para "Excluir" o registro, eu queria apenas que ele ignorasse o que foi feito igual o comando me.undo, só que pelo visto não da pra usar isso quando envolve sub formulário...

De qualquer forma muito obrigado.