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

Início Procurar
Pesquisar
Resultados por: Mensagens Tópicos
Pesquisa avançada
Registar Entrar

Você não está conectado. Conecte-se ou registre-se

4 participantes

[Resolvido]Abrir e fechar formulario

souzadenilson: Avançado; Respeito às regras :

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

Mensagem nº1

[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

Projeto_Teste(Proj01).zip: Você não tem permissão para fazer download dos arquivos anexados.; (335 Kb) Baixado 9 vez(es)

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

Silvio: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 5074
Registrado : 20/04/2011

Mensagem nº2

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

souzadenilson: Avançado; Respeito às regras :

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

Mensagem nº3

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: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 5074
Registrado : 20/04/2011

Mensagem nº4

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

souzadenilson: Avançado; Respeito às regras :

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

Mensagem nº5

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: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 5074
Registrado : 20/04/2011

Mensagem nº6

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

Conectado

Alexandre Fim

Alexandre Fim: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3217
Registrado : 13/12/2016

Mensagem nº7

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

Endereco.zip: Você não tem permissão para fazer download dos arquivos anexados.; (31 Kb) Baixado 17 vez(es)

.................................................................................

Marcar tópico como Resolvido: clique aqui

Postar anexos no fórum: clique aqui

[Resolvido]Abrir e fechar formulario Setinf11

[Resolvido]Abrir e fechar formulario Setinf11

Sistemas e Tecnologia Ltda

souzadenilson: Avançado; Respeito às regras :

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

Mensagem nº8

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

souzadenilson: Avançado; Respeito às regras :

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

Mensagem nº9

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: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1396
Registrado : 07/12/2011

Mensagem nº10

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:

souzadenilson: Avançado; Respeito às regras :

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

Mensagem nº11

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: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1396
Registrado : 07/12/2011

Mensagem nº12

Re: [Resolvido]Abrir e fechar formulario

Mensagem tauron 24/2/2023, 10:48

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

Tauron

souzadenilson: Avançado; Respeito às regras :

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

Mensagem nº13

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

souzadenilson: Avançado; Respeito às regras :

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

Mensagem nº14

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

souzadenilson: Avançado; Respeito às regras :

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

Mensagem nº15

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.

souzadenilson: Avançado; Respeito às regras :

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

Mensagem nº16

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

souzadenilson: Avançado; Respeito às regras :

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

Mensagem nº17

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

Conteúdo patrocinado

Mensagem nº18

Re: [Resolvido]Abrir e fechar formulario

Mensagem Conteúdo patrocinado

Tópicos semelhantes

» [Resolvido]Fechar formulário ao abrir outro formulario
» [Resolvido]VBA - Fechar tabela e abrir formulário
» [Resolvido]Fechar formulário ao abrir o relatório
» [Resolvido]Fechar formulário ao abrir outro
» [Resolvido]erro ao fechar formulario e abrir outro

Data/hora atual: 28/4/2024, 18:40