[Resolvido]Abrir e fechar formulario

Boa tarde.
Prosseguindo com o programa utilizei o seguinte comando abaixo.
No formulario "Frm_Endereco" no botão pesquisar ao clicar abre o formulario "pesquisa_Endereco" e fecha o formulario "Frm_Endereco"

Agora quando eu digito o nome desejado no formulario "Pesquisa_Endereco" e na caixa de listagem eu clico no registro desejado, os dados tem que ser transcritos para o formulario "Frm_Endereco", somente consigo fazer se o formulario "Frm_Endereco" estiver aberto.
Se ele estiver fechado não é possivel os dados serem preenchidos

Código:



Private Sub Btn_Pesquisar_Click()
    iCmd = 0
    DoCmd.Close
    DoCmd.OpenForm "Pesquisa_Endereco"
End Sub



Private Sub Lst_Logradouro_Click()
    If CurrentProject.AllForms("Frm_Endereco").IsLoaded = True Then
       On Error Resume Next
        DoCmd.Close acForm, "Pesquisa_Endereco"
        DoCmd.OpenForm "Frm_Endereco", acNormal, "", "[Id_codlog]=[Forms]![Pesquisa_Endereco]![Lst_logradouro]", , acNormal
        DoCmd.Close acForm, "Pesquisa_Endereco"
        'Forms!Frm_Endereco!Id_Endereco = Me.Lista_Endereco.Column(0)
        'Forms!Frm_Endereco!Id_Bairro = Me.Lista_Endereco.Column(1)
        'Forms!Frm_Endereco!Id_Cidade = Me.Lista_Endereco.Column(2)
        'Forms!Frm_Endereco!Id_Cep = Me.Lista_Endereco.Column(3)
        'Forms!Frm_Endereco!Id_Observa = Me.Lista_Endereco.Column(4)
 End If
End Sub




Boas....

Veja se é isso que precisa.

Bom dia.
Nesta resolução, o registro que será alterado ao salvar ele é duplicado.
O que estou tentado fazer é que no "Frm_Endereco" botão pesquisar, ao clicar feche o formulario atual(Frm_Endereco) e abra o formulario(Pesquisa_Endereco), e quando localizar o registro desejado para realizar alteração , clicar no registro em encontra-se na listbox, feche o formulario (Pesquisa_endereco), abra novamente o formulario (Frm_Endereco) com os dados que foi escolhido na "Pesquisa_Endereco"

Experimente desse modo.

Sem precisar de abrir outro formulário.

Boa tarde. Nesta versão apresentada, quando temos que realizar alteração no registro desejado, ele está sendo duplicado

Desculpe meu amigo, então eu sou incapaz de lhe ajudar.

Esperemos alguém do fórum com mais capacidade e entendimento.

Abraços.

Denilson,

Verifiquei no seu projeto que vc cadastra os logradouros. É isso mesmo? Qual a finalidade deste cadastro?
Este tipo de cadastro era utilizado no passado.

É possível obter endereços através do uso de API disponíveis no webservice dos Correios, sem a necessidade de cadastrá-los na sua base, evitando margem de erro também.

Este assunto já foi abordado várias vezes no fórum.

Veja o exemplo abaixo:


Ao informar o CEP no campo específico, o sistema busca o CEP no webservice dos Correios e carrega na tela.

Segue modelo caso queira implementar no seu projeto.

É necessário marcar a referencia "Microsoft XML, v3.0" no projeto, conforme abaixo:



Espero ter ajudado.

Att,

Alexandre Fim

Tenho necessidade sim. Pois estarei futuramente implementado a emissão de etiquetas.
Em alguns casos já aconteceu de aparecer vários cadastro no mesmo endereço e este endereço está escrito de formas diferente.
Para quando tiver cadastrando ao puxar o endereço ele fica uniforme

Boa noite.
Após algumas busca em algumas postagens mais antigas, encontrei este código abaixo, que funcionou perfeitamente, porém ainda eu não achei ideal, pois o projeto ficará provavelmente pesado.

Se alguém mais experiente tiver sugestões, mas no possivel trabalhar neste formato que está o programa.
Desta maneira quando no formulário "Frm_Endereco" clicar em pesquisar o formulário fecha, e quando realizar a pesquisa e clicar no registro desejado, fecha o formulario de pesquisa "pesquisa_Endereco" e reabre o formulário "Frm_Endereco" com os dados selecionados.

Código:



Private Sub Lst_Logradouro_Click()
    'If CurrentProject.AllForms("Frm_Endereco").IsLoaded = True Then
      'On Error Resume Next' ****
        DoCmd.OpenForm "Frm_Endereco", acNormal, "", "[Id_codlog]=[Forms]![Pesquisa_Endereco]![Lst_logradouro]", , acNormal '***
        Forms!Frm_Endereco!Id_CodLog = Me.Lst_Logradouro.Column(0)
        Forms!Frm_Endereco!Id_CodInt = Me.Lst_Logradouro.Column(1)
        Forms!Frm_Endereco!Id_DescLog = Me.Lst_Logradouro.Column(2)
        Forms!Frm_Endereco!Id_CepLog = Me.Lst_Logradouro.Column(3)
        Forms!Frm_Endereco!Id_BaiLog = Me.Lst_Logradouro.Column(4)
        Forms!Frm_Endereco!Id_CidLog = Me.Lst_Logradouro.Column(5)
        Forms!Frm_Endereco!Id_ObsLog = Me.Lst_Logradouro.Column(6)
        Forms!Frm_Endereco!Cbo_Status = Me.Lst_Logradouro.Column(7)
        DoCmd.Close acForm, "Pesquisa_Endereco" '***
        'DoCmd.Close "Pesquisa_Endereco"
 'End If
End Sub



Em relação ao fato de fechar o primeiro formulário meu pitaco seria utilizar o código abaixo no segundo formulário:

Código:



DoCmd.SetWarnings False

If CurrentProject.AllForms("frm_Endereco").IsLoaded = True Then 'Verifica se o frm_endereco está aberto. Caso esteja então
Forms!frm_Endereco.Visible = False 'aqui determina que o frm_endereco fique oculto mas, aberto
End If
End Sub



Já no seu código acrescente uma linha tornando o formulário Frm_Endereco visível novamente:

Realizei o procedimento em que fui orientado, porém não deu o resultado desejado qdo clico no endereço
Por acaso este código ficaria assim. Caso esteja algo errado favor me corrigir
A maioria das linha eu inativei na tentativa de testar a linha de código passada

Código:



Private Sub Lst_Logradouro_Click()
    'If CurrentProject.AllForms("Frm_Endereco").IsLoaded = True Then
      'On Error Resume Next' ****
        'DoCmd.Close acForm, "Pesquisa_Endereco", acNormal
        'DoCmd.OpenForm "Frm_Endereco", acNormal, "", "[Id_codlog]=[Forms]![Pesquisa_Endereco]![Lst_logradouro]", , acNormal '***
        'Forms!Frm_Endereco!Id_CodLog = Me.Lst_Logradouro.Column(0)'*
        'Forms!Frm_Endereco!Id_CodInt = Me.Lst_Logradouro.Column(1)'*
        'Forms!Frm_Endereco!Id_DescLog = Me.Lst_Logradouro.Column(2)'*
        'Forms!Frm_Endereco!Id_CepLog = Me.Lst_Logradouro.Column(3)'*
        'Forms!Frm_Endereco!Id_BaiLog = Me.Lst_Logradouro.Column(4)'*
        'Forms!Frm_Endereco!Id_CidLog = Me.Lst_Logradouro.Column(5)'*
        'Forms!Frm_Endereco!Id_ObsLog = Me.Lst_Logradouro.Column(6)'*
        'Forms!Frm_Endereco!Cbo_Status = Me.Lst_Logradouro.Column(7)'*
        'DoCmd.Close acForm, "Pesquisa_Endereco" '***
        'DoCmd.Close "Pesquisa_Endereco"
 'End If
 
    DoCmd.SetWarnings False
   
    If CurrentProject.AllForms("frm_Endereco").IsLoaded = True Then 'Verifica se o frm_endereco está aberto. Caso esteja então
        Forms!frm_Endereco.Visible = False 'aqui determina que o frm_endereco fique oculto mas, aberto
        DoCmd.OpenForm "Frm_Endereco", acNormal, "", "[Id_codlog]=[Forms]![Pesquisa_Endereco]![Lst_logradouro]", , acNormal '***
        DoCmd.Close 'acForm, "Pesquisa_Endereco"
        Forms!frm_Endereco.Visible = True
        'DoCmd.Close 'acForm, "Pesquisa_Endereco"
    End If

End Sub
Private Sub Lst_Logradouro_DblClick(Cancel As Integer)
  'DoCmd.SetWarnings False
  'If CurrentProject.AllForms("frm_Endereco").IsLoaded = True Then 'Verifica se o frm_endereco está aberto. Caso esteja então
        'Forms!frm_Endereco.Visible = False 'aqui determina que o frm_endereco fique oculto mas, aberto
      ' With Form_Frm_Endereco '****
            '--Executa função do formulário para carregar dados conforme o ID do Leituras
          'Call .CarregaDados(Lst_Logradouro.Column(0)) '*****
          ' DoCmd.Close acForm, "Pesquisa_Endereco"
          'Forms!frm_Endereco.Visible = True 'aqui determina que o frm_endereco fique oculto mas, aberto
        'End With
        '-- Fecha formulário ativo
        'DoCmd.Close acForm, Me.Name '****
        'DoCmd.Close 'acForm, "Pesquisa_Endereco"
    'End If
End Sub




Dê uma olhada no link abaixo e veja como resolvemos:


Tauron

Dei uma olhada na indicação, porém ainda não atendeu o que desejo.
Irei continuando a pesquisar como proceder.
Na mensagem 9 funcionou, porém implementando nas telas futuras o programa vai ficar pesado, e as linhas do programas ficarão muito extensa

Boa noite, desculpem pela demora.
Mas realizei algumas alterações e o único código que quase atendeu as minhas necessidades no programa foi esta, porém para ele funcionar o "Frm_Endereco" tem que ficar aberto, se ao clicar em pesquisar ele estiver fechado, quando selecionar o registro desejado no "pesquisa_Endereco" o "Frm_Endereco" não é preenchido.

Código:



Botão pesquisar no "Frm_Endereco"

Private Sub Btn_Pesquisar_Click()
    iCmd = 0
    'DoCmd.Close
    'frm_Endereco.Visible = False
    DoCmd.OpenForm "Pesquisa_Endereco"
   
End Sub


Private Sub Lst_Logradouro_DblClick(Cancel As Integer)
  'DoCmd.SetWarnings False
  If CurrentProject.AllForms("frm_Endereco").IsLoaded = True Then 'Verifica se o frm_endereco está aberto. Caso esteja então
        'Forms!frm_Endereco.Visible = False 'aqui determina que o frm_endereco fique oculto mas, aberto
        With Form_Frm_Endereco '****
            '--Executa função do formulário para carregar dados conforme o ID do Leituras
          Call .CarregaDados(Lst_Logradouro.Column(0)) '*****
          DoCmd.Close acForm, "Pesquisa_Endereco"
          'DoCmd.OpenForm "Frm_Endereco", acNormal, "", "[Id_codlog]=[Forms]![Pesquisa_Endereco]![Lst_logradouro]", , acNormal '***
          'Forms!frm_Endereco.Visible = True 'aqui determina que o frm_endereco fique oculto mas, aberto
        End With
        '-- Fecha formulário ativo
        'DoCmd.Close acForm, Me.Name '****
        'DoCmd.Close 'acForm, "Pesquisa_Endereco"
    End If
End Sub





A principio olhando criteriosamente o programa, inclui uma linha de comando e funcionou como esperado.

Obrigado a todos, em principal aos mais experiente nas sugestões, para resolução do tópico

Os código abaixo utilizados que a principio atendeu as minhas necessidades

No formulário "Frm_Endereco"

Código:



Private Sub Btn_Pesquisar_Click()
    iCmd = 0
     
    DoCmd.OpenForm "Pesquisa_Endereco"
   
End Sub



No Formulário "Pesquisa_Endereco"

Código:



Private Sub Form_Load()
    Me.Txt_Titulo = "Sistema Geral Comunitário"
    Me.Txt_Localiza.SetFocus
    DoCmd.SetWarnings False

If CurrentProject.AllForms("frm_Endereco").IsLoaded = True Then 'Verifica se o frm_endereco está aberto. Caso esteja então
Forms!frm_Endereco.Visible = False 'aqui determina que o frm_endereco fique oculto mas, aberto
End If
End Sub



Private Sub Lst_Logradouro_DblClick(Cancel As Integer)
  DoCmd.SetWarnings False
  If CurrentProject.AllForms("frm_Endereco").IsLoaded = True Then 'Verifica se o frm_endereco está aberto. Caso esteja então
       
        With Form_Frm_Endereco '****
            '--Executa função do formulário para carregar dados conforme o ID do Leituras
          Call .CarregaDados(Lst_Logradouro.Column(0)) '*****
          DoCmd.Close acForm, "Pesquisa_Endereco"
            Forms!frm_Endereco.Visible = True 'aqui determina que o frm_endereco fique oculto mas, aberto
        End With
     
    End If
End Sub