[Resolvido]ListBox abre cadastro no Form mas não no registro escolhido

Bom dia.
No anexo tenho uma listBox no form Frm_Dash_Processos que busca os dados da Cons_List_declinado.
Quando dou um clique abre o form Frm_Cadastro_Processo.
Entretanto não no registro escolhido.

Tentei esses códigos abaixo:
Private Sub List_Declinado_Click()
   Dim Id_Processos As Integer
   Dim Processo As String
   
   ' Verifica se algum item está selecionado no ListBox
   If List_Declinado.ListIndex <> -1 Then
       ' Obtém o ID e o número do processo selecionado
       Id_Processos = List_Declinado.Column(0)
       Numero = List_Declinado.Column(1)
       
       ' Abre o formulário usando o ID do processo
       DoCmd.OpenForm "Frm_Cadastro_Processo", , , "Id_Processos = " & Id_Processos
       
       ' Ou você pode usar o número do processo se preferir
       ' DoCmd.OpenForm "NomeDoSeuForm", , , "Numero = '" & numeroProcesso & "'"
   End If
End Sub

e esse

Private Sub List_Declinado_Click()
Dim intrecord As Integer
intrecord = Me!List_Declinado.Column(0) 'coluna zero, é a chave primária
DoCmd.OpenForm "Frm_Cadastro_Processo"
Forms![Frm_Cadastro_Processo].SetFocus
'Forms!Frm_Cadastro_Processo!Id_Processos.Enabled = True
'DoCmd.GoToControl "Txt_Id_Processos"
'DoCmd.FindRecord intrecord
End Sub


O primeiro não mostra nada.
O segundo mostra, mas com registro equivocado.
Algúem poderia dizer onde errei?
Obrigado.

Boa noite,

O primeiro campo da sua consulta é o campo Numero, então, você tem que filtrar por ele.

DoCmd.OpenForm "Frm_Cadastro_Processo", , , "Numero='" & intrecord & "'"

Abs.

Bom dia,

1 - Mude o campo da consulta conforme abaixo:



2 - Ajuste o código da linha em azul:

Private Sub List_Declinado_Click()
Dim intrecord As Integer
intrecord = Me!List_Declinado.Column(0) 'coluna zero, é a chave primária
DoCmd.OpenForm "Frm_Cadastro_Processo", , , "Id_Processos = " & intrecord
Forms![Frm_Cadastro_Processo].SetFocus
End Sub


É isso

Boa sorte

Att,

Alexandre Fim

Bom dia
Alexandre e Jungli
Obrigado
Assim q chegar em casa testo e aviso.

Funcionou. Obrigado Alexandre e Jungli.

Valeu Mylton !!
O fórum agradece.
Sucesso !!!