[Resolvido]docmd.searchforrecord não funciona com botão comando

Ola a todos,

depois de imensas horas a tentar resolver o problema, venho soliictar a vossa ajuda.
Tenho um botão de comando que tem no evento click
DoCmd.SearchForRecord acDataForm, "frm1", acFirst, "Solucao = ""nome1"""

O problema é que o comando funciona alternadamente, ou seja uma vez vai para o registo correto e a vez seguinte permanece no primeiro registo, incorretamente.

Alguem sabe como ultrapassar esta situação?


Obrigado

Bom dia, Jolo
Se a tabela estiver ordenada pelo campo Solucao, ele funcionará correctamente

Caro Alexandre,
o problema não está na ordenação do campo.
O que acontece é que quando eu clico a segunda vez no botão comando ( localizado no cabeçalho do formulario) o registo corrente passa a ser o primeiro, independentemente do seu conteudo. Depois clico a 3 vez no botao comando e funciona. Se clico a 4 vez, volta para o primeiro registo e assim sucesivamente. Dá ideia que se tenha de fazer um reset qualquer depois de se fazer o docmd.searchforrecord.

Esse comando apenas mantém no campo actual quando não existe nenhum registo que satisfaça o critério
Tente
DoCmd.SearchForRecord acDataForm, "frm1", acFirst, "Solucao ='nome1'"

O problema manté-se.
Definitivamente o que verifico é que quando clico a 2,4,6,8....vez no botao de comando, que tem o metodo docmd.searchforrecord, o registo ativo passa a ser sempre o primeiro independentemente do que se procura.
Em anexo coloquei um ficheiro muito simples que se verifica o meu problema.

Jolo,
Acontece também que este comando não funciona normal quando chega ao fim dos registos.
Assim, coloque
DoCmd.GoToRecord acDataForm, "frm1", acFirst
DoCmd.SearchForRecord acDataForm, "frm1", acFirst, "Nome='joao'"

Caro Alexandre,
na minha opinião e depois da tua ajuda, vejo que o dcm.searchforrecord funciona apenas uma vez mesmo sem chegar ao fim dos registos.
Em todo o caso a tua solução resolveu o meu problema.


Muito obrigado,
João

Para localizar um registro num subformulário, você poderá usar também um recordset de formulário. No caso abaixo foi criada uma text box "text4" que será o valor a ser procurado num campo de um subformulário.

Esta ação abaixo pode ser colocada num click de mouse num botão, por exemplo.

  Dim rstSuppliers As Recordset
  Dim vLgNumID As Long
 
  DoCmd.Echo False 'Para congelar a tela do access
   
   Set rstSuppliers = [SeuSubFormulário].Recordset
       rstSuppliers.MoveFirst 'mover para o primeiro registro do subformulário
       vLgNumID = Me.Text4.Value
       Do Until rstSuppliers.EOF
           On Error Resume Next
           'O loop percorrerá todos os registros do subformulário até encontrar o valor
           'vLgNumID no campo NomeDoCampo.
           If rstSuppliers.Fields("NomeDoCampo") = vLgNumID Then Exit Do
           rstSuppliers.MoveNext
       Loop
   DoCmd.Echo True 'descongela a tela do access

  Se você tiver vários registros de mesmo valor, ele encontrará o primeiro. Para tal, é interessante deixar em ordem crescente os registros no NomeDoCampo.