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

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á.

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

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