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] Como atualizar um formulário após edição de registro feita em um subformulário??

    Compartilhe

    krek
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 28/12/2015

    [Resolvido] Como atualizar um formulário após edição de registro feita em um subformulário??

    Mensagem  krek em Dom 3 Jan - 13:34

    Boa tarde pessoal.

    Essa é minha primeira dúvida no fórum, então peço desculpas se fizer algo fora do padrão.

    Bom, eu estou desenvolvendo um sistema de controle para uma loja, e estou com um problema para atualizar uma lista no formulário.

    Uso o Access 2010 com Windows 10

    Descritivo do sistema:
    Eu tenho um formulário onde em um listbox aparecem todas as categorias já cadastradas, e quando é dado 2 cliques sobre um item da lista, é aberto um subformulário para a edição deste registro. Para o cadastro de uma nova categoria, há um botão no formulário, que chama este mesmo subformulário já em um novo registro, apenas para que o usuário digite o nome e clique no botão "salvar". Até aí, tudo funciona perfeitamente.

    Meu problema:
    Ao clicar no botão "salvar" eu quero que os dados sejam inseridos no banco de dados, exiba uma mensagem de confirmação ao usuário e feche o formul (essa parte está funcionando).

    A parte que não funciona é que quando o subformulário é fechado, a lista que está no listbox não aparece a atualização ou edição feita no subformulário.

    O código que estou usando é este:
    Private Sub Comando7_Click()
       'Salva novo cadastro ou edição de categoria
       Dim msg
       DoCmd.RunCommand acCmdSaveRecord
       msg = MsgBox("Registro salvo com Sucesso!", vbExclamation + vbOKOnly + vbDefaultButton2, "Confirmação")
       
       Cons_Categoria_Pr.Requery 'O nome do formulário que desejo atualizar a lista é Cons_Categoria_Pr
       
       DoCmd.Close
    End Sub

    Por favor, alguém pode me ajudar?

    Obrigado desde já.
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3568
    Registrado : 20/04/2011

    Re: [Resolvido] Como atualizar um formulário após edição de registro feita em um subformulário??

    Mensagem  Silvio em Dom 3 Jan - 15:55

    Olá, seja bem vindo ao fórum

    Algo parecido com isso..
    Private Sub Comando7_Click()
    'Salva novo cadastro ou edição de categoria
    Dim msg
    DoCmd.RunCommand acCmdSaveRecord
    msg = MsgBox("Registro salvo com Sucesso!", vbExclamation + vbOKOnly + vbDefaultButton2, "Confirmação")
    Forms!Cons_Categoria_Pr!nomedalistabox.requery

    DoCmd.Close
    End Sub











    Obs. teste e nos informe

    krek
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 28/12/2015

    Re: [Resolvido] Como atualizar um formulário após edição de registro feita em um subformulário??

    Mensagem  krek em Dom 3 Jan - 19:58

    Obrigado, mas antes de ler a resposta eu consegui o que eu queria.

    O código que usei ficou desta maneira:

    Private Sub Comando7_Click()
    'Salva novo cadastro ou edição de categoria
    Dim msg
    DoCmd.RunCommand acCmdSaveRecord
    msg = MsgBox("Registro salvo com Sucesso!", vbExclamation + vbOKOnly + vbDefaultButton2, "Confirmação")

    Forms!Cons_Categoria_Pr.Refresh

    DoCmd.Close 'Fecha o subformulário
    End Sub

    Muito obrigado pela prestatividade!!

      Data/hora atual: Qui 17 Ago - 7:42