[Resolvido]problemas em consulta

bons dias pessoal
estou com um problema que não estou a conseguir resolver e como tal preciso da vossa ajuda.
no trabalho que estou a fazer no formulário tenho um campo de procura que usa o seguinte código:

"
Private Sub Texto30_AfterUpdate()
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Nº] = '" & Me![Texto30] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Me.Texto30 = ""
End Sub

Private Sub Texto30_GotFocus()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
End Sub
"
onde o centro da procura é o [Nº] dos exemplos que aqui encontrei a procura é em [NOME], logo surge a mensagem:

Run-Time error '3464'
Tipo de dados incorrectos na expressão de critério

se colocar [Nome]
tudo bem realiza o que se pretende
se colocar [Nº]
dá erro

agradecia ajuda


mirsofy

Imagino ser isto:

rs.FindFirst "[Nº]=" & Me![Texto30].Value

viva amigo Leandro
fico agradecido pela disponibilidade em ajudar
troquei a escrita

rs.FindFirst "[Nº] = '" & Me![Texto30] & "'"
que fica amarelo

pela indicada por ti

rs.FindFirst "[Nº]=" & Me![Texto30].Value
e nada
aparece um novo codigo de erro
'3077'

mirsofy

O campo "Nº" é de que tipo na tabela? Número ou Texto?

viva de novo
o campo é numero

mirsofy

ps:
no campo origem da linha tenho:

SELECT tbl_Reclusos.*, tbl_Reclusos.Nº, tbl_Reclusos.Barra, tbl_Reclusos.Nome, tbl_Reclusos.Ala, tbl_Reclusos.Situação FROM tbl_Reclusos;

Um pitaco;

Apenas;

SELECT * tbl_Reclusos

Private Sub Texto30_AfterUpdate()
Dim rs As Recordset

Set rs = Me.Recordset.Clone
rs.FindFirst "[Nº] = " & Me!Texto30.Value

If Not rs.EOF Then
Me.Bookmark = rs.Bookmark
Else
Me.Texto30.Value = ""
Exit Sub
End If
rs.Close
End Sub

vivas e grato pelas dicas
JPaulo
seguindo a tua orientação aparece agora como a imagem em baixo

Ola;

Anexe aqui parte do seu banco, por favor.

Se preferir, envie para mim que coloco aqui a solução que é simples;

jpaulo65@gmail.com

boas tardes
já seguiu para o mail

grato pela ajuda

Mirsofy

Reenviado de volta;

O seu campo Nº, na tabela reclusos está como texto.

rs.FindFirst "[Nº] = '" & Me!cboPesquisa.Column(0) & "'"

mais uma vez
grato pelo apoio


mirsofy

Obrigado pelo retorno o forum agradece.