MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido] Abrir formulário a partir consulta prévia.

    Compartilhe

    alencarti
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 21/09/2016

    [Resolvido] Abrir formulário a partir consulta prévia.

    Mensagem  alencarti em Qua 21 Set 2016, 16:38

    Boa tarde, pessoal!

    Vou tentar me expressar da melhor maneira possível para que vocês possam entender o problema. Seguinte... Eu gostaria de abrir um formulário em um determinado registro a partir do click em um resultado de uma consulta. Tipo... eu criei uma consulta para mostrar todos os exames de um determinado paciente. É exibida somente as datas das consultas e quando eu quiser ver uma consulta específica, eu clico na data e automaticamente ele abre o formulário no registro específico. Eu consegui fazer para abrir o formulário de exames. Mas independente da data q eu clique, ele sempre abre no primeiro registro do formulário exames. Eu não sei como fazer um código para capturar informações de onde estou clicando. Alguém pode ajudar?

    Desde já agradeço.


    Abraço.


    Última edição por alencarti em Sex 23 Set 2016, 14:39, editado 1 vez(es)

    Ney Santos
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    Registrado : 23/05/2011

    Abrir Form,ulario apartir de consulta previa.

    Mensagem  Ney Santos em Qua 21 Set 2016, 16:51

    Boa tarde!

    Faça o o seguinte, voce deve rira um form baseado nessa consulta Para abrir o form. no registro expecificado
    informando a ele o ID dessa consulta. Vou mostrar um exemplo parecido disso
    Private Sub Comando253_Click()
    On Error GoTo Err_Comando253_Click
    DoCmd.OpenForm "PedCli", acNormal, , , acFormEdit
    Forms!PedCli.Cliente = Forms![Orcamento].[Selecionar Nome].Column(1)
    Forms!PedCli.Requery

    Exit_Comando253_Click:
    Exit Sub

    Err_Comando253_Click:
    MsgBox Err.Description
    Resume Exit_Comando253_Click

    End Sub
    Explicando: O botão Comando253 abre O Form"PedCli", porem ao abrir eu informo ao access que o codigo do Cliente que quero visualizar
    é o mesmo que está selecionado no form que esta aberto.
    No seucaso voce pode criar um form continuo e colocar o codigo no evendo ao clicar 2 vezes.
    qualquer duvida masnda uma parte do bd que mostropara voce.

    Att
    Ney Santos

    alencarti
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 21/09/2016

    Re: [Resolvido] Abrir formulário a partir consulta prévia.

    Mensagem  alencarti em Qua 21 Set 2016, 18:49

    Agradeço muito! Vou analisar o código que você mandou e depois dou um feedback.

    Abraço.

    Edit: Como você pode ver na imagem, criei um formulário que mostra as consultas realizadas pelo paciente que eu escolher através da caixa de combinação. Os resultados aparecem abaixo em um subformulário. Aparece somente código do atendimento e a data. O que quero é que quando eu clicasse, por exemplo, na data 21/09/2016, ele abrisse o formulário da consulta com ID 7, que é a consulta do paciente selecionado na data selecionada, entendeu?

    Agradeço mais uma vez pela atenção.
    Anexos
    print.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (11 Kb) Baixado 6 vez(es)


    Última edição por alencarti em Qua 21 Set 2016, 20:09, editado 1 vez(es)

    Ney Santos
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    Registrado : 23/05/2011

    Re: [Resolvido] Abrir formulário a partir consulta prévia.

    Mensagem  Ney Santos em Qua 21 Set 2016, 19:04

    FICO NO AGUARDO

    alencarti
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 21/09/2016

    Re: [Resolvido] Abrir formulário a partir consulta prévia.

    Mensagem  alencarti em Qua 21 Set 2016, 20:26

    Mandei a resposta no meu segundo post.

    Ney Santos
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    Registrado : 23/05/2011

    Re: [Resolvido] Abrir formulário a partir consulta prévia.

    Mensagem  Ney Santos em Qui 22 Set 2016, 13:00

    Bom pelo print vejo que seu campo chave é o Cod_Atendimento certo?
    Pelo que voce falou voce ja abre o formulário desejado. oque está falatando e voce indicar qual registro
    voce quer abrir. altere seu código para a seguinte forma:

    DoCmd.OpenForm "Nome do form que quer abrir", acNormal, , , acFormEdit
    Forms!Nome do form que quer abrir.Nome do Campo Chave = Forms![Nome do form desse print].[Cod_Atendimento]
    Forms!Nome do form que quer abrir.Requery

    Att

    Ney

    alencarti
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 21/09/2016

    Re: [Resolvido] Abrir formulário a partir consulta prévia.

    Mensagem  alencarti em Qui 22 Set 2016, 13:41

    Bom dia!

    Fiz o seguinte comando a partir do que me passou:

    Private Sub Cod_Atendimento_Click()
    DoCmd.OpenForm "Anamnese", acNormal, , , acFormEdit
    Forms!Anamnese.Cod_Atendimento = Forms![CadPaciente1].[Cod_Atendimento]
    Forms!Anamnese.Requery
    End Sub

    Porém ao clicar no cod_atendimento que quero abrir ele retorna o seguinte erro e abre o formulário anamnese no primeiro registro feito na tabela.

    Erro em tempo de execução '2465':

    O microsoft access não pôde localizar o campo '|1' referido em sua expressão.

    Ney Santos
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    Registrado : 23/05/2011

    Re: [Resolvido] Abrir formulário a partir consulta prévia.

    Mensagem  Ney Santos em Qui 22 Set 2016, 14:17

    vc pode postar um exemplo do seu bd pra verificar,
    pela mensagem um dos campo pode ter nome diferente..

    alencarti
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 21/09/2016

    Re: [Resolvido] Abrir formulário a partir consulta prévia.

    Mensagem  alencarti em Qui 22 Set 2016, 14:41

    Muito obrigado, Ney!

    Vou quebrar a cabeça um pouco aqui.

    Vc quer que eu poste minhas tabelas aqui?

    Ney Santos
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    Registrado : 23/05/2011

    Re: [Resolvido] Abrir formulário a partir consulta prévia.

    Mensagem  Ney Santos em Qui 22 Set 2016, 14:50

    poste apenas parte do bd
    que tenha seus forms em questão e as tabelas que utilizam eles

    alencarti
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 21/09/2016

    Re: [Resolvido] Abrir formulário a partir consulta prévia.

    Mensagem  alencarti em Qui 22 Set 2016, 15:20

    Anexei meu arquivo. Se você puder dar uma olhada, agradeço. Acho que assim é a forma mais fácil de você entender a situação geral.


    Grato.
    Anexos
    Clínica.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (130 Kb) Baixado 5 vez(es)

    Ney Santos
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    Registrado : 23/05/2011

    Re: [Resolvido] Abrir formulário a partir consulta prévia.

    Mensagem  Ney Santos em Qui 22 Set 2016, 15:58

    Boa Tarde!
    Segue seu bd atualizado.
    Anexos
    Clínica.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (42 Kb) Baixado 9 vez(es)

    alencarti
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 21/09/2016

    Re: [Resolvido] Abrir formulário a partir consulta prévia.

    Mensagem  alencarti em Qui 22 Set 2016, 16:11

    Muito obrigado! Como faço pra te pagar uma cerveja? rsrsrs..

    Somente para fins didáticos. Você inseriu um botão e nele uma macro, certo?


    Abraço.

    Ney Santos
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    Registrado : 23/05/2011

    Re: [Resolvido] Abrir formulário a partir consulta prévia.

    Mensagem  Ney Santos em Qui 22 Set 2016, 20:38

    sim
    Era a manenira mais facil

    Nao esqueça de dar comoresolvido paar encerrar o post

      Data/hora atual: Sex 09 Dez 2016, 03:48