MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


4 participantes

    [Resolvido]Abrir e fechar formulario

    avatar
    souzadenilson
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/05/2012

    [Resolvido]Abrir e fechar formulario Empty [Resolvido]Abrir e fechar formulario

    Mensagem  souzadenilson 20/2/2023, 20:04

    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


    Anexos
    [Resolvido]Abrir e fechar formulario AttachmentProjeto_Teste(Proj01).zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (335 Kb) Baixado 10 vez(es)


    Última edição por souzadenilson em 27/2/2023, 00:48, editado 1 vez(es)
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5121
    Registrado : 20/04/2011

    [Resolvido]Abrir e fechar formulario Empty Re: [Resolvido]Abrir e fechar formulario

    Mensagem  Silvio 21/2/2023, 11:59

    Boas....

    Veja se é isso que precisa.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    souzadenilson
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/05/2012

    [Resolvido]Abrir e fechar formulario Empty Re: [Resolvido]Abrir e fechar formulario

    Mensagem  souzadenilson 21/2/2023, 14:55

    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"
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5121
    Registrado : 20/04/2011

    [Resolvido]Abrir e fechar formulario Empty Re: [Resolvido]Abrir e fechar formulario

    Mensagem  Silvio 22/2/2023, 11:26

    Experimente desse modo.

    Sem precisar de abrir outro formulário.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    souzadenilson
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/05/2012

    [Resolvido]Abrir e fechar formulario Empty Re: [Resolvido]Abrir e fechar formulario

    Mensagem  souzadenilson 22/2/2023, 18:31

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5121
    Registrado : 20/04/2011

    [Resolvido]Abrir e fechar formulario Empty Re: [Resolvido]Abrir e fechar formulario

    Mensagem  Silvio 22/2/2023, 18:38

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

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

    Abraços.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3501
    Registrado : 13/12/2016

    [Resolvido]Abrir e fechar formulario Empty Re: [Resolvido]Abrir e fechar formulario

    Mensagem  Alexandre Fim 22/2/2023, 19:49

    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:
    [Resolvido]Abrir e fechar formulario Endere10

    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:
    [Resolvido]Abrir e fechar formulario Xml10


    Espero ter ajudado.

    Att,

    Alexandre Fim
    Anexos
    [Resolvido]Abrir e fechar formulario AttachmentEndereco.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (31 Kb) Baixado 21 vez(es)


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Abrir e fechar formulario Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    souzadenilson
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/05/2012

    [Resolvido]Abrir e fechar formulario Empty Re: [Resolvido]Abrir e fechar formulario

    Mensagem  souzadenilson 22/2/2023, 20:31

    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
    avatar
    souzadenilson
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/05/2012

    [Resolvido]Abrir e fechar formulario Empty Re: [Resolvido]Abrir e fechar formulario

    Mensagem  souzadenilson 22/2/2023, 23:59

    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

    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011

    [Resolvido]Abrir e fechar formulario Empty Re: [Resolvido]Abrir e fechar formulario

    Mensagem  tauron 23/2/2023, 11:31

    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:
    avatar
    souzadenilson
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/05/2012

    [Resolvido]Abrir e fechar formulario Empty Re: [Resolvido]Abrir e fechar formulario

    Mensagem  souzadenilson 24/2/2023, 00:59

    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


    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011

    [Resolvido]Abrir e fechar formulario Empty Re: [Resolvido]Abrir e fechar formulario

    Mensagem  tauron 24/2/2023, 10:48

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


    Tauron
    avatar
    souzadenilson
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/05/2012

    [Resolvido]Abrir e fechar formulario Empty Re: [Resolvido]Abrir e fechar formulario

    Mensagem  souzadenilson 24/2/2023, 17:45

    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
    avatar
    souzadenilson
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/05/2012

    [Resolvido]Abrir e fechar formulario Empty Re: [Resolvido]Abrir e fechar formulario

    Mensagem  souzadenilson 27/2/2023, 00:37

    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



    avatar
    souzadenilson
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/05/2012

    [Resolvido]Abrir e fechar formulario Empty Re: [Resolvido]Abrir e fechar formulario

    Mensagem  souzadenilson 27/2/2023, 00:44

    A principio olhando criteriosamente o programa, inclui uma linha de comando e funcionou como esperado.
    avatar
    souzadenilson
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/05/2012

    [Resolvido]Abrir e fechar formulario Empty Re: [Resolvido]Abrir e fechar formulario

    Mensagem  souzadenilson 27/2/2023, 00:50

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

    avatar
    souzadenilson
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/05/2012

    [Resolvido]Abrir e fechar formulario Empty Re: [Resolvido]Abrir e fechar formulario

    Mensagem  souzadenilson 27/2/2023, 01:01

    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


    Conteúdo patrocinado


    [Resolvido]Abrir e fechar formulario Empty Re: [Resolvido]Abrir e fechar formulario

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/12/2024, 15:42