[Resolvido]Duplo Clique

Boa tarde, estou com esse código em um formulário que me abre o formulário de cadastro de clientes, gostaria que quando eu clicar sobre o nome que está abrisse o formulário cliente nos dados do cliente que cliquei, eis o código

Private Sub Id_Cliente_Vendas_DblClick(Cancel As Integer)
DoCmd.OpenForm "Frm_Clientes"
End Sub

Muito obrigada

Tenta adaptar

Código:

Dim stDocName As String
Dim stLinkCriteria As String
If (Not IsNull(DLookup("Nome", "Pessoas", _
          "Nome ='" & Me!Texto549 & "'"))) Then
          stDocName = "Pessoas_1"
          stLinkCriteria = "[Nome]='" & Me![Texto549] & "'"
          DoCmd.OpenForm stDocName, , , stLinkCriteria
    Else
          MsgBox "Não há cadastro para exibir.", vbInformation, "::..Atenção"
          Exit Sub
End If

Poderia me explicar como faço para fazer as mudanças

o campo da tabela cliente é Id_Cliente

Tenta, acho que é assim, confunde um pouco porque tens de relacionar no código as tabelas e o formulários.

Dim stDocName As String
Dim stLinkCriteria As String
If (Not IsNull(DLookup("Id_Cliente", "cliente", _
"Id_Cliente='" & Me!CAMPO DO FORMULÁRIO CLIENTE & "'"))) Then
stDocName = "Frm_Clientes"
stLinkCriteria = "[Id_Cliente]='" & Me!]CAMPO DO FORMULÁRIO CLIENTE] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
MsgBox "Não há cadastro para exibir.", vbInformation, "::..Atenção"
Exit Sub
End If

Um exemplo que dei noutro tópico foi:

Dim stDocName As String
Dim stLinkCriteria As String
If (Not IsNull(DLookup("ValorNota", "SUATABELA", _
"ValorNota ='" & Me!ValorNota & "'"))) Then
stDocName = "SEUFORM"
stLinkCriteria = "[ValorNota]='" & Me![ValorNota] & "'"
Me.ValorNota.Enabled = False
Else
End If

bom dia vou testar depois retorno.
Obrigada por enquanto

Boam dia a todos, meu amigo obrigado pelas dicas deu certo.
Grande abraço

O forum agradece o retorno.