[Resolvido]Tipo de Dados incorrecto na expressão de critério

vivas pessoal
tenho um form com uma cx de combinação para pesquisa
estou usando este código , que noutras BD que tenho está funcionando

------------------------------------------------------------------------

Private Sub cboPesquisa_AfterUpdate()
Dim rs As Recordset

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

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

-------------------------------------------------------------------------------------
agora quando vou iniciar qualquer pesquisa aparece esta janela de erro

como posso ultrapassar , uma vez que noutras BD está funcionando como de ser


aguardo apoio


Mirsofy

Manuel

Primeiro:

Sempre quando abrir um recordset  coloque a linha abaixo em seguida:

Set rs = Me.Recordset.Clone
rs.movefirst  ' isso fará com que o ponteiro do Access vá para o primeiro registro da tabela. Então a procura será a partir  do 1º registro.

Segundo:

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

Se na primeira coluna da combobox (coluna(0)), o número for "string" está faltando as aspas simples:
rs.FindFirst "[Nº] = '" & Me!cboPesquisa.Column(0) & " '"

Se for número puro, não precisa da parte final:

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

Terceiro:

Código:


If Not rs.EOF Then
   If  Not rs.NoMacht ' se foi encontrado então, sincronize o clone com o formulário.
      Me.Bookmark = rs.Bookmark
   End If
Else


Abraços

Noob

vivas
amigo não estou a conseguir resolver

tenho outra questão a decorrer da mesma BD

http://maximoaccess.forumeiros.com/t20067-somando-datas

se puderes dar uma vista de olhos agradeço

mirsofy

Manuel

Anexe o BD ou somente as partes envolvidas.


Noob

yupi resolvi
espectáculo
tinha mal o caminho de origem


obrigado pela paciência
vamos a etapa seguinte


mirsofy

Que ótimo

É muito bom quando a gente consegue resolver algo por si só, né?

Valeu o retorno

Boa sorte

Noob