[Resolvido]Abrir na opção selecionada

Ola pessoal,gostaria que neste exemplo,no form "frmClienteLocaliza_1" eu clicasse 2vzs no cliente e abrisse o form "frmOrdServico" no cliente escolhido.
Ja tentei alguns códigos mas quando abre abre vazios.
Alguém poderia dar uma olhadinha pra mim.
Abçs.

Fala Kaynan!
No caso, um cliente só tem uma ordem de serviço?

Opaa,Marcelo o cliente pode ter varias ordem de serviço.
hoje ele pode trazer uma aparelho pra conserto,como da li 3 ou 4 dias trazer outro.

Código:

Private Sub NomeFantasia_DblClick(Cancel As Integer)
    DoCmd.OpenForm "frmOrdServico"
    Forms("frmOrdServico").Form.DataEntry = False
    Forms("frmOrdServico").Form.Filter = "[id_cli]=" & Me.[id_cli].value
    Forms("frmOrdServico").Form.FilterOn = True
End Sub

O que não entendi é que você tem o formulário e ordem e serviço que apresenta uma OS. Então, estando em um cliente, qual OS das que o cliente tem deve ser aberta?

No entanto, veja a solução do JPaulo.

Boa tarde JPaulo com esse código eu clico 2vzs o cliente aparece e apaga no mesmo instante,não fica preenchido os campos do cliente.

Ola Marcelo,no bd original tenho outros formularios que fazem dar certo,o que quero é só isso mesmo.
O código do JPaulo,só da uma piscadinha mas não mantém o cadastro.

Amigão repare bem no titulo do tópico que você abriu:
Abrir form na opção selecionada

Ora a instrução que passei faz isso mesmo, usando o form.filter

Agora se você quer abrir o form OS num novo registro e já preenchido na opção selecionada, é outra coisa.

Em que ficamos ?

Opa JPaulo eu quero é como vc disse mesmo, ao clicar no cliente abrir uma nova OS com o cliente ja preenchido

Código:

Private Sub NomeFantasia_DblClick(Cancel As Integer)
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String

On Error Resume Next

        strSQL = "SELECT * FROM cnsLocalizaRegistro_1 WHERE id_cli = " & Me.id_cli.value
        
DoCmd.OpenForm "frmOrdServico", acNormal, , , acFormAdd
Forms("frmOrdServico").Form.DataEntry = False
Forms!frmOrdServico.Form.Recordset.AddNew

        Set db = CurrentDb
        Set rs = db.OpenRecordset(strSQL)
        If Not rs.BOF Then
            Forms!frmOrdServico.Form!id_cli = rs("id_cli")
        End If
        rs.Close
        Set rs = Nothing
        db.Close
        Set db = Nothing
End Sub

Grande JPaulo,muito obrigado por mais essa,valeu mesmo, do jeito que precisava.

Obrigado pelo retorno o forum agradece.