[Resolvido]Executar pesquisa em RecordSet

Amigos, é possível algo assim:

rs.FindFirst (IDDetento Where "Dedo = " & Me.txtDedo)

Não sei se o é.. se for preciso de ajuda para reescrever..

Grato

Consegui o seguinte código

Private Sub Multi_Find(ByRef oRs As DAO.Recordset, sCriteria As String)
On Error Resume Next

Dim clone_rs As DAO.Recordset
Set clone_rs = oRs.Clone

clone_rs.Filter = sCriteria

If clone_rs.EOF Or clone_rs.BOF Then
oRs.MoveLast
oRs.MoveNext
Else
oRs.Bookmark = clone_rs.Bookmark
End If

clone_rs.Close
Set clone_rs = Nothing

End Sub


E utilizo esta função da seguinte maneira:


Multi_Find rs, "ID_Detento = & me.txtID AND Dedo = & Me.txtDedo"

If rs.EOF Then
rs.AddNew ' ... abre a edição de registro...
rs![ID_Detento] = Me.txtID
rs!Digital = Serialize(template.tpt)
rs!dedo = Me.txtDedo
EscreveLog ("Dedo " & Me.txtDedo & " " & Me.txtMao & " Gravado com sucesso")
rs.Update ' ... adiciona em novo registro...
Me("" & Me.txtBotao & "").Caption = "INSERIDO"
Me("" & Me.txtBotao & "").Enabled = False
Else
MsgBox "Já existe este dedo cadastrado!", vbInformation, "Atenção"


End If
End If

'No entanto se ja tem a ID_Detento cadastrada da a mensagem "Já existe este dedo...."

O que pretendo é a junção da ID_Detento e Campo Dedo...

Multi_Find rs, "ID_Detento = & me.txtID AND Dedo = & Me.txtDedo"

Como resolver isto amigos?

Encerrarei este tópico pois a certa altura se assemelhou com outro que tenho...

Esta questão passa a ser resolvida neste tópico

http://maximoaccess.forumeiros.com/t3780-consulta-em-campos-atraves-de-um-recordset