MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Limpar campos

    Compartilhe

    xoxe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 230
    Registrado : 27/03/2016

    [Resolvido]Limpar campos

    Mensagem  xoxe em Dom 27 Mar 2016, 13:52

    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

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2307
    Registrado : 14/08/2013

    Re: [Resolvido]Limpar campos

    Mensagem  FabioPaes em Dom 27 Mar 2016, 16:01

    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

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2307
    Registrado : 14/08/2013

    Re: [Resolvido]Limpar campos

    Mensagem  FabioPaes em Dom 27 Mar 2016, 16:17

    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

    xoxe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 230
    Registrado : 27/03/2016

    Re: [Resolvido]Limpar campos

    Mensagem  xoxe em Dom 27 Mar 2016, 16:58

    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!!

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2307
    Registrado : 14/08/2013

    Re: [Resolvido]Limpar campos

    Mensagem  FabioPaes em Dom 27 Mar 2016, 18:47

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

      Data/hora atual: Seg 05 Dez 2016, 16:30