[Resolvido]Caixa de Combinação com Erro de Atualização

Bom dia, tenho um formulário que possui um link com outro formulário através de um botão para incluir novos Cadastros. O formulário nota fiscal (frm_notafiscal) possui um botão que direciona para o formulario Cadastro de Colaboradores (frm_colaboradores) quando trata-se de um novo fornecedor para a nota fiscal que esta sendo cadastrada. No formulário frm_colaboradores utilizei o código abaixo:

Código:

 
Private Sub Form_Close()
Forms!frm_notafiscal!txt_fornecedor.Requery

End Sub


No momento em que o usuário esta inserindo novos dados no formulario "frm_notafiscal" e não encontra o fornecedor na caixa de combinação "txt_fornecedor" ele clica no botão e é direcionado para o formulário "frm_colaboradores". No frm_colaboradores o usuário consegue inserir as novas informação e fechar o formulário sem problemas e o novo fornecedor esta contido na caixa de combinação do frm_notafiscal. Contudo quando o usuário acessa o formulário frm_colaborador pelo menu do programa, sem acessar o link do frm_nota fiscal, apresenta o "Erro de Tempo de Execução "2450" Informando que não pode localizar o formulário "frm_notafiscal. Abaixo consta link com um vídeo demonstrando o problema. Agradeço desde já qualquer ajuda.

https://1drv.ms/f/s!AgHCWa12NNUWvSAiFwYI4Vpch5E8

Qual a diferença da execução 1 (a que apresentou erro) para a execução 2 ( a que n apresentou erro)?

Simples, o Formulario frm_notafiscal Não esta aberto! No botao fechar vc manda recarregar um Campo deste formulario, porem ele nao estava aberto! logo apresenta esse erro mesmo amigo...

Sugestão, Coloque uma verificação If que verificara se o Formulario frm_notafiscal esta aberto, se tiver ele roda o Requery no campo la... Se nao estiver ele apenas fecha o Cadastro!

Olá Fabio,

Obrigado pela dica. As vezes a resposta esta embaixo do nariz e não conseguimos vê-la. Abaixo coloco o código que resolveu o problema. Grato mais uma vez.

Código:


    If CurrentProject.AllForms("frm_notafiscal").IsLoaded = True Then
          Forms!frm_notafiscal!txt_fornecedor.Requery
    ElseIf CurrentProject.AllForms("frm_fretesobrevendas").IsLoaded = True Then
          Forms!frm_fretesobrevendas!condutor.Requery
          Forms!frm_fretesobrevendas!ajudante.Requery
          Forms!frm_fretesobrevendas!txt_nomecliente.Requery
          Forms!frm_fretesobrevendas!txt_nomevendedor.Requery
    ElseIf CurrentProject.AllForms("frm_vendedor_nivel1").IsLoaded = True Then
          Forms!frm_vendedor_nivel1!txtgrupoNome.Requery
    Exit Sub
          DoCmd.Close
    End If


Verdade amigao, as vezes nao conseguimos ver mesmo...
Ate a proxima!!!