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

André,

Por gentileza, nos envie o seu banco de dados, somente objetos pertinentes à sua dúvida (tabelas/formulários/consultas/modulos), para análise e solução.

[]'s

FIM

Segue modelo base para conhecimento.

Bom dia André,

Inclui a seguinte rotina após salvar os dados no cadastro de Fornecedor:

Código:



Public Sub AtualizaComboFornec()

    If CurrentProject.AllForms("FrmDFsReceb_Eletronico").IsLoaded = True Then
        With Form_FrmDFsReceb_Eletronico
            .CmbEmitente.Requery
        End With
    End If

End Sub




Esta rotina irá atualizar o combobox quando o "Form_FrmDFsReceb_Eletronico" estiver carregado (IsLoaded) em 2º plano.

É isso

Espero ter ajudado.

Boa sorte

[]'s


FIM

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:

André,

Execute o procedimento "Compactar e Reparar" e testa novamente.

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

Estranho...
Clique em depurar...o Access irá posicionar uma linha amarela na linha com o erro. Manda o print da tela, por favor

Alexandre, segue print conforme solicitado:

André,

Você fez alguma alteração depois que te mandei o exemplo?
Existe alguma consulta ou macro chamada "RepetirConsulta" que você utiliza em algum evento?

Fiz os teste aqui e não gerou erro.

Verifique

[]'s

FIM

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.

Ok André...
Valeu..o fórum agradece !!!

Como sempre, o mestre DamascenoJr sempre ajudando..valeu brother !!!