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


3 participantes

    [Resolvido]Voltar ao form anterior no mesmo registo

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Voltar ao form anterior no mesmo registo Empty [Resolvido]Voltar ao form anterior no mesmo registo

    Mensagem  Assis 27/1/2015, 13:10

    Bom dia amigos

    Tenho 2 formulários " simples "
    - Produtos
    - ProdutosAlterar

    O formulário "produtos" tem as teclas de navegação. E tem também um botão para abrir o formulario "produtos alterar" para edição.

    Só que quando abre o formulario "produtos alterar" e altero qualquer dado, queria que ao fechar o formulario "produtos alterar" regressar ao formulario "produtos" exatamente no mesmo registo que foi editado.

    Encontrei esta dica do Criquio: Só que os botões de navegação param de funcionar.

    DoCmd.GoToRecord , , acGoTo, Me.ID

    Obrigado



    .................................................................................
    *** Só sei que nada sei ***
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010

    [Resolvido]Voltar ao form anterior no mesmo registo Empty Re: [Resolvido]Voltar ao form anterior no mesmo registo

    Mensagem  Avelino Sampaio 27/1/2015, 13:56

    Olá!

    Experimente o FindRecord

    Exemplo:

    Forms!frmProdutos!Id.SetFocus
    DoCmd.FindRecord me!id


    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Voltar ao form anterior no mesmo registo Empty Re: [Resolvido]Voltar ao form anterior no mesmo registo

    Mensagem  Assis 27/1/2015, 14:36

    Obrigado Avelino pela atenção

    O botão tem este comando ao fazer click

    On Error Resume Next
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "ProdutosAlterar"
    stLinkCriteria = "[Ref]=" & "'" & Me![txtRef] & "'"
    FEchar
    DoCmd.openForm stDocName, , , stLinkCriteria


    Mas ao fechar o form "ProdutosAlterar" reabre o formulário "Produtos" mas os botões de navegação não funcionam.


    .................................................................................
    *** Só sei que nada sei ***
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010

    [Resolvido]Voltar ao form anterior no mesmo registo Empty Re: [Resolvido]Voltar ao form anterior no mesmo registo

    Mensagem  Avelino Sampaio 27/1/2015, 15:06

    Experimente:

    Docmd.OpenForm "produtosAlterar"
    forms!produtosAlterar!ref.setfocus
    docmd.FindRecord Me![txtRef]


    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Voltar ao form anterior no mesmo registo Empty Re: [Resolvido]Voltar ao form anterior no mesmo registo

    Mensagem  Assis 27/1/2015, 15:44

    Avelino
    Não abre no registo requerido.


    .................................................................................
    *** Só sei que nada sei ***
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Voltar ao form anterior no mesmo registo Empty Re: [Resolvido]Voltar ao form anterior no mesmo registo

    Mensagem  Noobezinho 27/1/2015, 16:23

    Assis

    Mais uma tentativa:

    Se [Ref] for texto:


    DoCmd.OpenForm "ProdutosAlterar", , , "[Ref]= '" & Me!txtRef & "'"

    Se for número:

    DoCmd.OpenForm "ProdutosAlterar", , , "[Ref]= " & Me!txtRef

    Caso nenhuma das linhas acima resultarem, teste esse comando numa outra aplicação
    usando o mesmo Access.
    Se ainda não aconteceu, verifique as referências desse aplicativo.

    []'s

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010

    [Resolvido]Voltar ao form anterior no mesmo registo Empty Re: [Resolvido]Voltar ao form anterior no mesmo registo

    Mensagem  Avelino Sampaio 27/1/2015, 16:41

    Olá!

    Fiz aqui o seguinte teste:

    - Abri um formulário continuo
    - com dois cliques no como ID abri um formulário para edição do registro.  Este foi o código:

    DoCmd.OpenForm "frmContinuo2", , , "id=" & Me!id
    DoCmd.Close acForm, "frmContinuo"


    - Editei o registro e usei o evento "ao fechar" o seguinte código

    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.OpenForm "frmContinuo"
    Forms!frmContinuo!id.SetFocus
    DoCmd.FindRecord Me!id


    E funcionou sem problemas com os botões.

    Uma pergunta: por que tem que fechar o formulário produtos ?  Vc pode mantê-lo aberto.  Quando chamar o formulário produtosAlterar, use na chamada o acDialog (popUp).  Exemplo:

    DoCmd.OpenForm "ProdutosAlterar", , , "[Ref]= '" & Me!txtRef & "'", , acDialog

    E ao fechar o formulário produtosAlterar, utilize:

    Forms!Produtos.Recalc


    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Voltar ao form anterior no mesmo registo Empty Re: [Resolvido]Voltar ao form anterior no mesmo registo

    Mensagem  Assis 27/1/2015, 16:47

    Avelino

    Peço desculpa mas na mensagem Nº 1 eu digo que são 2 formulários simples.



    .................................................................................
    *** Só sei que nada sei ***
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010

    [Resolvido]Voltar ao form anterior no mesmo registo Empty Re: [Resolvido]Voltar ao form anterior no mesmo registo

    Mensagem  Avelino Sampaio 27/1/2015, 16:50

    Ok, passei para simples e funcionou normal. Talvez anexar um exemplo seu seja necessário

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010

    [Resolvido]Voltar ao form anterior no mesmo registo Empty Re: [Resolvido]Voltar ao form anterior no mesmo registo

    Mensagem  Avelino Sampaio 28/1/2015, 08:39

    Teve algum avanço ?

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Voltar ao form anterior no mesmo registo Empty Re: [Resolvido]Voltar ao form anterior no mesmo registo

    Mensagem  Assis 28/1/2015, 11:35

    Bom dia Avelino

    Eis o meu exemplo

    Abrir o formulário "Produtos"

    1º Clikar na lupa, em baixo á direita..

    2º Selecionar um produto a escolha na listBox com duplo click, por exemplo a ref "A L 013" .  Abre um formulario amarelo.

    3º Fechar o formulario amarelo no botão superior direito que diz "Sair" e ir para a mesma Ref. "A L 013" que estava selecionada.


    Obrigado pela atenção


    .................................................................................
    *** Só sei que nada sei ***
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Voltar ao form anterior no mesmo registo Empty Re: [Resolvido]Voltar ao form anterior no mesmo registo

    Mensagem  Noobezinho 28/1/2015, 14:23

    Assis

    Essa linha está correta:

    DoCmd.openForm "Produtos", , , "[Ref] = '" & Me.Ref & "'"

    É preciso mudar somente essa linha:

    de DoCmd.Close que é generalizado para:

    DoCmd.Close acForm, Me.Name

    Explicando:

    Quando na primeira linha comanda para abrir o formulário
    na segunda linha manda fechar esse formulário.
    Então temos que definir qual formulário fechar.

    [ ]'s

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Voltar ao form anterior no mesmo registo Empty Re: [Resolvido]Voltar ao form anterior no mesmo registo

    Mensagem  Assis 28/1/2015, 15:14

    Boas Noob

    Não testou no exemplo que postei na Msg. Nº 11 ?

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Voltar ao form anterior no mesmo registo Empty Re: [Resolvido]Voltar ao form anterior no mesmo registo

    Mensagem  Noobezinho 28/1/2015, 15:22

    Assis

    Procuro sempre informar algo que tenho certeza.

    Sim, fiz o teste no teu exemplo e funcionou como expliquei na mensagem anterior.

    Agora, eu pergunto;Fez o teste com que te enviei?


    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Voltar ao form anterior no mesmo registo Empty Re: [Resolvido]Voltar ao form anterior no mesmo registo

    Mensagem  Assis 28/1/2015, 15:37

    Amigo Noob

    Fiz o teste mas por aquilo que vi no seu exemplo " fiz errado ".

    Só tem um senão....

    Quando volta para o form Produtos os botões de navegação estão bloqueados com só existisse um produto.

    Pode analisar amigo Noob

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Voltar ao form anterior no mesmo registo Empty Re: [Resolvido]Voltar ao form anterior no mesmo registo

    Mensagem  Noobezinho 28/1/2015, 16:17

    Assis

    Quando mandamos abrir um formulário com um filtro, como o próprio nome diz,
    filtra somente aquele nome, impossibilitando mover-se entre outros registros.

    Então modifiquei o código

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Voltar ao form anterior no mesmo registo Empty Re: [Resolvido]Voltar ao form anterior no mesmo registo

    Mensagem  Assis 28/1/2015, 17:06

    Obrigado Noob

    Ficou perfeito


    .................................................................................
    *** Só sei que nada sei ***
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Voltar ao form anterior no mesmo registo Empty Re: [Resolvido]Voltar ao form anterior no mesmo registo

    Mensagem  Noobezinho 28/1/2015, 17:07

    Ótimo Assis

    Boa sorte!

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Conteúdo patrocinado


    [Resolvido]Voltar ao form anterior no mesmo registo Empty Re: [Resolvido]Voltar ao form anterior no mesmo registo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/4/2024, 10:39