[Resolvido]Clicar 2 vezes e chamar outro formulario

https://dl.dropboxusercontent.com90217826/ACSagente.rar

Amigos neste bd coloquei um form que se chama "Fm_CalculaRiscoCV"bem eu gostaria que quando clicasse duas vezes na listagem de paciente do menu deste bd,abrisse o "Fm_CalculaRiscoCV"com o nome do paciente clicado,sexo e idade.Teria geito?olha que ja tentei sem sucesso.

Abçs.

Poste em 2007 Kaynan.

Cumprimentos.

Olá Kaynan,

Aqui no fórum. Espero que atenda.

http://maximoaccess.forumeiros.com/t5385-resolvidoabrir-um-form-filtrado-atraves-de-um-listbox-pegando-o-valor-do-mesmo

Boa Dica Good Guy, aguardaremos o colega tentar aplicar a solução.

Abraços.

https://dl.dropboxusercontent.com/u/90217826/ACS_2007.rar

Esse nao é o riginal em que estou a trabalhar,mas conseguindo neste,depois eu faço no outro que é em 2010.

Grato amigo.

Teste antes a solução do colega.

Cumprimentos.

Eu ja tinha testado uma semelhante mas não deu.
E agora nem com essa

.

Agora consegui com a dica do Good guy.

Obrigado amigo.

Resolvido.

Parabéns por ter solucionado.

Poste a solução que utilizou.

Cumprimentos.

Com esse código,e transferi da tabela Cod_SedDet para o form CalculaRiscoCV os campos Paciente,Sexo,DataNasc e o código Cod_SedDet onde esse deixei oculto.


Private Sub Lista13_DblClick(Cancel As Integer)
On Error GoTo Err_Lista13_Click

If IsNull(Me.Lista13) Then

MsgBox "Selecione um nome válido na lista", vbCritical, "Atenção"

Else

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Fm_CalculaRiscoCV"

stLinkCriteria = "[Cod_SedDet]=" & Me![Lista13]
DoCmd.OpenForm stDocName, , , stLinkCriteria

End If

Exit_Lista13_Click:
Exit Sub

Err_Lista13_Click:
MsgBox Err.Description
End Sub

To aprendendo.

O Fórum agradece o Retorno.

Olá Kainan,

Por favor, posta aí o bd com a solução encontrada, porque testei aqui e não deu certo.

https://dl.dropboxusercontent.com/u/90217826/Familia2007.rar

Veja ai amigo.só modifiquei um pouquinho a listagem.

O Fórum agradece o Retorno.