MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Limpar campos

    Compartilhe
    avatar
    xoxe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    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
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3336
    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
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3336
    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
    avatar
    xoxe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    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!!
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3336
    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: Sab 21 Out 2017, 18:22