[Resolvido]Erro ao posicionar Bookmark

Ola mestres do access,

Estou com um problema muito estranho, a 4 dias uma funcao que realiza a busca de uma determinada PK da erro ao utilizar o bookmark do formulario, ele simplismente posiciona no registro errado.

O código é o seguinte:

Set rs = Me.Recordset.Clone
rs.FindFirst "[CodComp] = " & str(Nz(vCodComp, 0))
If rs.NoMatch Then
Me.Requery
rs.FindFirst "[CodComp] = " & str(Nz(vCodComp, 0))
If rs.NoMatch Then
MsgBox "Codigo: " & vCodComp, vbExclamation, "Não encontrado"
End If
Else
Me.Bookmark = rs.Bookmark
End If


O mais estranho é que utilizo esta mesma estrutura em outro form e funciona normalmente....

O que pode ser?

Talvez com uma pequena melhoria, já funfe;


Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[CodComp] = " & str(Nz(vCodComp, 0))
If rs.NoMatch = False Then
Me.Bookmark = rs.Bookmark
Else
MsgBox "Codigo: " & vCodComp, vbExclamation, "Não encontrado"
Exit Sub
End If

Grande JPaulo, sempre ajudando...
obrigado pela atenção.

Não resolveu simplificar, eu ja havia adicionado o requery por causa da quantidade de registros (possue mais de 100 mil)
e como ele utiliza o .Clone começa a pesquisa do registro que está posicionado o form o requery é para voltar ao registro 1 e tentar posicionar novamente.

Tentei com o absoluteposition mas tambem não resolveu.

Nao posso utilizar o Seek pois são tabelas SQL vinculadas via OBDC.

Já estou perdendo os cabelos q me restam.

Tem alguma ideia do porque estar posicionando no errado?

Ola;

O Requery volta sempre ao inicio, ae não ser muito aconselhável neste caso;

Teste estas duas possibilidades um pouco diferentes;


1ª

Me.Recordset.FindFirst "CodComp = " & Str(Nz(vCodComp, 0))
If Not Me.Recordset.NoMatch Then Me!CodComp.SetFocus

2ª

Dim rs As Object
Set rs = Me.RecordsetClone
rs.Find "CodComp=" & Str(Nz(vCodComp, 0))
If Not rs.EOF Then
Me.Bookmark = rs.Bookmark
Else
MsgBox "Codigo: " & vCodComp, vbExclamation, "Não encontrado"
Exit Sub
End If

Grande JPaulo,
Ele infelizmente continuou com o mesmo erro com as duas opções mas achei outras duas
e gostaria de compartilhar com nossos amigos do forum:

forma 1: Parei de usar o bookmark e usei where no recordset
o form ficou mais rápido mas nao conseguia usar o moveprevious e o movenext (por existir somente 1 registro no source do form)

forma 2: movi o rs que fez o clone (Set rs = Me.Recordset.Clone) para o ultimo e depois para o primeiro
creio que pela complexidade da consulta do source do form ele nao conseguia listar todos os registros antes de fazer o bookmark
isso deixou de 1 a 1,5 segundos mais lento mas nada que incomode o usuario entao ficou assim:

Dim rs As Object
Set rs = Me.Recordset.Clone

rs.MoveLast
rs.MoveFirst

rs.FindFirst "[CodComp] = " & str(Nz(vCodComp, 0))
If rs.NoMatch = False Then
Me.Bookmark = rs.Bookmark
Else
MsgBox "Codigo: " & vCodComp, vbExclamation, "Não encontrado"
Exit Sub
End If


Muito obrigado pela ajuda e espero ter ajudado outros com esta alternativa de solução baseadas nas do JPaulo.

Obrigado pelo retorno o forum agradece.