MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]Limpar Sub Formulário

    avatar
    Venloz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 119
    Registrado : 20/02/2013

    [Resolvido]Limpar Sub Formulário Empty [Resolvido]Limpar Sub Formulário

    Mensagem  Venloz 3/8/2013, 20:01

    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
    Anexos
    [Resolvido]Limpar Sub Formulário AttachmentSub Formulario_OLD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (34 Kb) Baixado 36 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Limpar Sub Formulário Empty Re: [Resolvido]Limpar Sub Formulário

    Mensagem  JPaulo 5/8/2013, 09:12

    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




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Limpar Sub Formulário Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Limpar Sub Formulário Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Limpar Sub Formulário Folder_announce_new Instruções SQL como utilizar...
    avatar
    Venloz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 119
    Registrado : 20/02/2013

    [Resolvido]Limpar Sub Formulário Empty Re: [Resolvido]Limpar Sub Formulário

    Mensagem  Venloz 5/8/2013, 19:10

    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.
    avatar
    Venloz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 119
    Registrado : 20/02/2013

    [Resolvido]Limpar Sub Formulário Empty Re: [Resolvido]Limpar Sub Formulário

    Mensagem  Venloz 6/8/2013, 14:50

    JPaulo

    Acredito que tenha algo errado com o meu código para “preencher” os campos, pois pelo que estou percebendo ele deve estar preenchendo os campos direto na “Base” e não no Sub formulário


    Pode verificar por favor?


    Grato!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Limpar Sub Formulário Empty Re: [Resolvido]Limpar Sub Formulário

    Mensagem  JPaulo 6/8/2013, 16:35

    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



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Limpar Sub Formulário Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Limpar Sub Formulário Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Limpar Sub Formulário Folder_announce_new Instruções SQL como utilizar...
    avatar
    Venloz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 119
    Registrado : 20/02/2013

    [Resolvido]Limpar Sub Formulário Empty Re: [Resolvido]Limpar Sub Formulário

    Mensagem  Venloz 7/8/2013, 02:01

    JPaulo

    Acho que você não está entendendo o que eu quero dizer,
    vamos fazer assim;

    1° Abra o formulário cadastro, clique na aba preenchimento automático da guia de controle,
    após clique no botão "preencher".

    2° Selecione a opção nome no Sub Formulário e altere para qualquer outro nome.

    3° Agora que vem a dúvida, preciso que após feito esse procedimento eu tenha algum comando
    que ignore tudo que foi feito, e ao fechar o formulário não salve nada na minha tabela base.

    Acho que agora consegui explicar melhor .


    Desde já agradeço pela paciência!
    avatar
    Venloz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 119
    Registrado : 20/02/2013

    [Resolvido]Limpar Sub Formulário Empty Re: [Resolvido]Limpar Sub Formulário

    Mensagem  Venloz 21/8/2013, 02:23

    JPaulo ou alguém por favor pode ajudar??
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    [Resolvido]Limpar Sub Formulário Empty Re: [Resolvido]Limpar Sub Formulário

    Mensagem  Lupércio 21/8/2013, 19:59

    Desculpe J Paulo acho que você está ocupado vou dar uma mãozinha!
    Anexos
    [Resolvido]Limpar Sub Formulário AttachmentSub Formulario_OLD_Teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (57 Kb) Baixado 50 vez(es)
    avatar
    Venloz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 119
    Registrado : 20/02/2013

    [Resolvido]Limpar Sub Formulário Empty Re: [Resolvido]Limpar Sub Formulário

    Mensagem  Venloz 26/8/2013, 03:06

    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.

    Conteúdo patrocinado


    [Resolvido]Limpar Sub Formulário Empty Re: [Resolvido]Limpar Sub Formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 01:37