[Resolvido]Erro Se não estiver na lista não atualiza

Boa tarde a todos!

Já vi outros fóruns com informações relacionadas, porém nestes, eu não consegui solucionar o problema.
Sou novo na área de VBA e SQL. Tenho um formulário de controle de documentos onde há uma caixa de combinação "CmbEmitente" e quando o emitente não está registrado, executa o código abaixo:

Código:


Private Sub CmbEmitente_NotInList(NewData As String, Response As Integer)
On Error GoTo Erro
    
Dim Dialogo As Variant
    
Response = acDataErrContinue

Dialogo = MsgBox("Fornecedor não cadastrado." & vbCrLf _
        & "Você deseja cadastrar agora?", vbYesNo, "Fornecedor não cadastrado")

If Dialogo = vbNo Then
    MsgBox "Para continuar, você precisa cadastrar o fornecedor", _
        vbExclamation + vbOKOnly, "Atenção!"
    Response = acDataErrContinue

Else
    DoCmd.OpenForm "FrmFornecedor", , , , acFormAdd
        [Forms]![FrmFornecedor]![CmbTipo].Enabled = True
        [Forms]![FrmFornecedor]![CmbTipo].SetFocus
        [Forms]![FrmFornecedor]![TxtCPFCNPJ].Enabled = True
        [Forms]![FrmFornecedor]![TxtNome].Enabled = True
        [Forms]![FrmFornecedor]![CmbCidade].Enabled = True
        [Forms]![FrmFornecedor]![CxSelInativo].Enabled = True
        [Forms]![FrmFornecedor]![TxtContato].Enabled = -True
        [Forms]![FrmFornecedor]![TxtTel].Enabled = True
        [Forms]![FrmFornecedor]![Txtcel].Enabled = True
        [Forms]![FrmFornecedor]![TxtEmail].Enabled = True
        [Forms]![FrmFornecedor]![btnSalvar].Enabled = True
        [Forms]![FrmFornecedor]![btnExcluir].Enabled = False
        [Forms]![FrmFornecedor]![BtnNovo].Enabled = False
        [Forms]![FrmFornecedor]![Btn_Alterar].Enabled = False
        [Forms]![FrmFornecedor]![BtnBuscar].Enabled = False
    Response = acDataErrContinue
End If

Erro:
    Exit Sub

End Sub


O código funciona, eu consigo realizar o registro do Emitente normalmente, porém, quando volto para o Formulário de controle de Documentos, a lista não atualiza.

Gostaria de saber se preciso informar algo a mais na linguagem para que a lista seja atualizada e seja possível eu selecionar o emitente que acabou de ser cadastrado no banco de dados.

Segue modelo base para conhecimento.

Após realizar o cadastro, pressionando o Botão Salvar, em seguida pressionando o botão Fechar do Formulário de Cadastro de Fornecedor, aparece o seguinte erro:

Fiz conforme solicitado, porém, o erro continua.

Alexandre, segue print conforme solicitado:

Não fiz nenhuma alteração no arquivo. Apenas abri e fiz os testes.

Acrescente a linha destacada em vermelho ao exemplo colocado pelo mestre Alexandre.

Private Sub CmbEmitente_NotInList(NewData As String, Response As Integer)
...

If Dialogo = vbNo Then
...

Else
   DoCmd.OpenForm...
      ...
       Me!CmbEmitente.Undo
   Response = acDataErrContinue
End If

...

Olá Damasceno!


Fiz conforme você sugeriu e deu certo! O erro não continuou a aparecer.

Agradeço imensamente ao Alexandre e a você pela ajuda nesta situação.