[Resolvido]Erro em Caixa de lista

Bom dia a todos.


Estou tentando iniciar um projeto de controle de estudos técnicos preliminares referente a licitações.
O que consiste:
Determinada necessidade de material ou serviço por força de lei deve ser licitado.
Antes a área que necessita deste material/serviço efetua um estudo.
E ai o processo inicia-se nesta 01 etapa.
Disponibilizei alguns campos dentro do que preciso.
Ao efetuar o cadastro td bem.
Ao criar a consulta tbm.
Contudo, Não sei o porque, ao navegar pelo seletor de registro mostra os campos de forma certa.
Ao utilizar a Caixa de listagem dá erro na linha comentada abaixo.


Option Compare Database

Private Sub Lista1_AfterUpdate()
'Referente ao cadastro geral
'Linha que dá erro
'        Me.ID_Processo = Me.Lista1.Column(0)
       Me.Numero_Processo = Me.Lista1.Column(1)
       Me.Cadastro_Data_ETP = Me.Lista1.Column(2)
       Me.Assunto_ETP = Me.Lista1.Column(3)
       Me.ETP_Data_Determinacao = Me.Lista1.Column(4)
       Me.Prazo_ETP = Me.Lista1.Column(5)
'Referente aos oficiais nomeados - 01
       Me.Posto_Profissional_Nomeado_01 = Me.Lista1.Column(6)
       Me.Quadro_Profissional_Nomeado_01 = Me.Lista1.Column(7)
'Linha que dá erro
'        Me.Ano_Profissional_Nomeado_01 = Me.Lista1.Column(
       Me.Profissional_Nomeado_01 = Me.Lista1.Column(9)
       Me.RG_Profissional_Nomeado_01 = Me.Lista1.Column(10)
'Referente aos oficiais nomeados - 02
       Me.Posto_Profissional_Nomeado_02 = Me.Lista1.Column(11)
       Me.Quadro_Profissional_Nomeado_02 = Me.Lista1.Column(12)
       Me.Ano_Profissional_Nomeado_02 = Me.Lista1.Column(13)
       Me.Profissional_Nomeado_02 = Me.Lista1.Column(14)
       Me.RG_Profissional_Nomeado_02 = Me.Lista1.Column(15)
'Referente aos oficiais nomeados - 03
       Me.Posto_Profissional_Nomeado_03 = Me.Lista1.Column(16)
       Me.Quadro_Profissional_Nomeado_03 = Me.Lista1.Column(17)
       Me.Ano_Profissional_Nomeado_03 = Me.Lista1.Column(18)
       Me.Profissional_Nomeado_03 = Me.Lista1.Column(19)
       Me.RG_Profissional_Nomeado_03 = Me.Lista1.Column(20)
End Sub

Private Sub Form_Current()
' This statement synchronises the Go To record combo box with the form
   Me.Lista1.Value = Me.ID_Processo.Value
End Sub

Private Sub Lista1_LostFocus()
'    DoCmd.RunCommand acCmdSaveRecord
   DoCmd.Requery "Lista1"
End Sub


Onde estou errando?
Já fiz e refiz e tô deixando algo passar.


Alguma dica?

Obrigado.

Olá Mylton.

Pelo que eu entendi, você quer selecionar um registro com base nos valores da lista, certo?

Caso seja, este não é o melhor método a ser utilizado.

Apague a instrução "Após alterar" da lista, e crie uma instrução no "Ao clicar" com o seguinte código:

Código:


    strSql = "SELECT * FROM [Cns_Cadastro_ETP] WHERE [ID_Processo] = " & Me.Lista1.Column(0)
    Me.Form.RecordSource = strSql


Segue arquivo em anexo para verificação.

Oi
Cris
Tô no trabalho. Qdo chegar vejo e informo.
Obrigado pela ajuda.

Cristian não esqueci. Meu plantão no trabalho terminou a pouco. Vou ver respondo.
Obrigado

Bom dia.

Não rodou.
Vou tentar mais .
Obrigado.

Mylton, você baixou o arquivo que enviei em anexo para verificar se é isso mesmo que você deseja?

Cristian
Baixei
Vinque vc incluiu inclusive um registro denominado como teste.
Ao clicar na lista, não funcionou e modificou um registro da tabela.
Mantendo funcionamento nos seletores de registro.
Fato este que tbm e dúvida P mim nas dúvidas da tabela.
Não sei se bug, erro meu, vírus ou ….. sei lá o que.
Compactei. Reparei. Uso 365 V 32 bits, com Windows 11 e o Norton.
Atualizei antivírus e deixei a máquina atualizando os programas.
Qdo chegar do consultório logo mais, vou ver.

E retorno
Obrigado pela ajuda.

Resolvido com a seguinte instrucao

Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[NomeSeuChavePrimaria] = " & Str(Nz(Me![NomeSuaListBox], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark


Obrigado a todos