[Resolvido]Abrir um formulário de cliente com duplo clique no nome do cliente agendado na agenda (subformulário) em anexo

Boa tarde pessoal,
Baixei uma agenda desenvolvida por Balem e melhorada por Haryshon. Parabéns pelo trabalho!
Gostaria que ao clicar duas vezes no nome do cliente agendado no subformulário abrisse outro formulário "Prontuário" de clientes com mesmo nome.
Preciso relacionar as tabelas?Com quais itens já que o cliente é agendado em horrários diferentes.
Banco de dados já esta em rede, quando a secretária agenda gostaria que eu clicasse no nome do cliente da agenda e já abrisse o formulário do cliente, a secretária preenche  a agenda e quando o cliente chega preenche o cadastro. No momento estou abrindo o formulario do cliente com "localizar" no formulário ""Prontuário". Se abrir clicando na agenda fica mais Show.
OBS.: sou noob em access.
Sobre a agenda:
Isso nos foi apresentado pelo usuário Kadhu, no tópico:
https://www.maximoaccess.com/t10212-duvida-agenda-de-clientes-respositorio

Obrigado

Helden escreveu:Gostaria que ao clicar duas vezes no nome do cliente agendado no subformulário abrisse outro formulário "Prontuário" de clientes com mesmo nome.

Só criar um evento na caixa de texto do subform "Ao clicar duas vezes" e chamar o formulário com a linha de comando
Docmd.OpenForm "NOME DO FORMULÁRIO"

Xoxe , desculpa a demora no retorno, o que eu quero é quase isso, o comando abre o formulário mas no primeiro registro de paciente e não no registro agendado no subformulario, tentei fazer com as macros e com a condição where, mas não consegui, tens alguma idéia.

Ex: esta agendado o paciente Paulo no subformulario da agenda e esse Paulo ja tem um cadastro em outro formulario prontuário, gostaria que ao clicar duas vezes no Paulo da agenda ele abrisse o formulário específico de Paulo no formulario prontuário .
com DmdOpen que coloco ao clicar duas vezes ele abre o formulario prontuario mas no primeiro registro e não no especifico Paulo.
Desde já muito obrigado pelas orientações.

Para quem tiver interesse nesse tópico repostei em :
"abrir registro em formulário"

boa noite pessoal,



Gostaria que ao clicar duas vezes na caixa de texto ""tblAgendaCliente_07_00"" com um registro em "" frmAgenda"" abrisse ""frmPrescricaoQt"" com o nmesmo registro, da caixa de texto ""tblAgendaCliente_07_00"".
Com o código abaixo abre o ""frmPrescricaoQt"" mas sem os registros. O registro seria o nome do paciente e teria que abrir o frmPrescriçaoQt com o mesmo registro na caixa de nome ""NomePaciente""


Private Sub tblAgendaCliente_07_00_DblClick(Cancel As Integer)
Dim stDocNomePaciente As String
Dim stLinkCriteria As String

stDocNomePaciente = "frmPrescricaoQt"
stLinkCriteria = "[NomePaciente]=" & "'" & Me![tblAgendaCliente.07:00] & "'"
DoCmd.OpenForm stDocNomePaciente, , , stLinkCriteria

End Sub

Tem erro no código ou Teria que aplicar algum comando de filtro?
Obrigado!

Bom dia,
Altere essa linha:

Código:

stLinkCriteria = "[NomePaciente]=" & "'" & Me![tblAgendaCliente.07:00] & "'"

para essa abaixo:

Código:

stLinkCriteria = "NomePaciente='" & Me![tblAgendaCliente.07:00] & "'"

Aguardamos.

bom dia Marcelo , obrigado pelo retorno, o frmPrescricaoQt abriu sem os registros com a alteração, será que é pelo código ao abrir que esta no frmPrecriçaoQT?


Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acNewRec
Me.CboConsulta.SetFocus
End Sub

Antes de abrir o formulário, salve as alterações.
Alfo do tipo:
DoCmd.RunCommand acCmdSaveRecord

se necessário, acrescente abaixo da linha acima:
Me.Refresh

Apenas um pitaco.


Acho que houve um pequeno equivoco na nomenclatura do campo:

Está assim:

stLinkCriteria = "NomePaciente='" & Me![tblAgendaCliente.07:00] & "'"

Acredito que deveria estar assim:

stLinkCriteria = "NomePaciente='" & Me![tblAgendaCliente_07_00] & "'"



[]'s

FIM

https://www.dropbox.com/s/ex6qd1ehbssvrao/Prescri%C3%A7%C3%A1o%20QT%20teste%20-%20C%C3%B3pia.accdb?dl=0


Alexandre obrigado pela contribuiçao mas  nome da caixa de texto é com ponto mesmo, mudei como vc colocou e solicita depurar.
Marcelo , com a colocaao dos comandos que vc sugeriu pede para depurar. posto aqui o BD para verem, obrigado,

a agenda é o frmAgendaStudio , o codigo coloco na caixa de texto "" tblAgendaCliente.07:00"" ao clicar duas vezes
e o formulario a ser aberto é frmPrescricaoQt

Código:

stLinkCriteria = "NomePaciente='" & Forms!frmAgendaStudio!SubfrmAgendaStudio.Form![tblAgendaCliente.07:00] & "'"

bom dia JP, coloquei a correção mas o frmPrescriaoQt ainda abre sem registros.

Abrir já é um bom sinal, é porque a instrução está correta.

Agora tem de retirar o DoCmd.GoToRecord , , acNewRec ao abrir do segundo form.

Teste e retorne.

show
deixei so o Me.CboConsulta.SetFocus , no ao abrir, funcionou certinho, obrigado!!

Fico feliz.

Obrigado pelo retorno o forum agradece.

bom dia JPaulo
Percebi que o subformulário do frmPrescriaoQT abre em branco, só abre quando carrego a cboConsulta do frmPrescriaoQt

Boa tarde pessoal, ja coloquei aqui um tópico semelhante, é o mesmo BD que postei no link
https://www.maximoaccess.com/t27380-resolvidoabrir-um-formulario-de-cliente-com-duplo-clique-no-nome-do-cliente-agendado-na-agenda-subformulario-em-anexo

como quase tudo que fiz foi com ajuda deste forum , deixo disponivel todo BD.

Coloquei resolvido , na euforia, com grande ajuda do mestre JPaulo, na verdade foi parcialmente resolvido
Depois percebi que o suformulario "tblPrescrição_subformulário1" nao abria com os registros relacionados ao frmPrescricaoQt.
Depois disso fiquei tentando com varios códigos para abrir o subformulario tblPrescrição_subformulário1 relacionado ao frmPrescricaoQT ao clicar duas vezes na caixa de texto da agenda frmAgendaStudio " SubfrmAgendaStudio" caixa de texto de nome "tblAgendaCliente.07:00"

Resumindo
Preciso que ao clicar duas vezes na caixa de texto "tblAgendaCliente.07:00" do " SubfrmAgendaStudio" (preenchida com nome do cliente agendado) abra o frmPrescricaoQt com mesmo nome do cliente (até aqui resolvido) e abra também o "tblPrescrição_subformulário1" relacionado.

Grato!

vou testar mais antes de colocar resolvido

coloquei no select do subformulario

Como "*" & [formulários]![frmPrescricaoQt]![NomePaciente].[Text] & "*"

e no ao abrir do formulario

DoCmd.Requery "tblPrescrição_subformulário1"

veja video com titulo
""Filtrar Sub formulário de forma simples e rápida ao digitar""

Tópicos fundidos. Mesmo autor, mesma dúvida.