[Resolvido]Dúvida com Código e Anexos

Olá,

sou novata no Access e estou tentando fazer um banco de dados de Gerenciamento de Documentos Técnicos com base no modelo "LocalizarQualquerParte" deste site, sendo que não estou conseguindo acertar o código da caixa "localizartexto" e está dando erro.

Os dados são estes:

Formulário Principal: Documentos
Sub-formulário (onde estão os dados): listadedocumentos
Campos do subformulário: estacao ; documento ; tipo; titulo; referencia ; observacoes

O código que coloquei foi:

Private Sub localizartexto_Change()
Dim C As String, X As String
X = Me.localizartexto.Text
C = " where estacao like '*" & X & "*' or documento like '*" & X & "*' or tipo like '*" & X & "*' or titulo like '*" & X & "*' or referencia like '*" & X & "*' or observacoes like '*" & X & "*'"
Me.listadedocumentos.Form.RecordSource = "select * from documentos" & C
'Me.Form.RecordSource = " select * from documentos" & C
End Sub

Também queria colocar um campo que eu pudesse anexar os documentos que estão em pdf, como faço?

Aguardo Resposta!!!

Não estou a ver aonde possa estar causando erro. Aparece alguma mensagem de erro? Ela depura para alguma linha do vba? Saber esses dados ajuda muito a gente a tentar localizar a falha.

Ele dá sim uma mensagem de erro quando eu digito algum valor na caixa, e pede para depurar a seguinte linha:

Me.listadedocumentos.Form.RecordSource = "select * from documentos" & C

Eu anexei a mensagem de erro para você dar uma olhada.

O nome da tabela está correto? Olha:

Me.listadedocumentos.Form.RecordSource = "select * from documentos" & C

O que está em vermelho, deve ser o nome da tabela de origem dos dados.

O nome da tabela de origem é listadedocumentos, fiz a modificação mais ainda está dando erro.

Se possível, anexe aqui uma cópia do bd, seguindo as dicas da minha assinatura abaixo ↓

Está anexo o banco de dados, conforme solicitado.

Olha só: você colocou no código o nome do campo estacao, mas na tabela está outro nome. Não me lembro agora o qual porque alterei para estacao, mas o nome que você deu para o campo da tabela estava de forma incorreta. Não devemos usar espaços em nomes de controles e elementos, isso pode causar problemas. Ao invés de colocar Nome do cliente, coloque NomeDoCliente. O nome da tabela tambem estava diferente. O nome da tabela real é listadedocumentos. Faça isso: altere o nome do campo da tabela para estacao e coloque o código assim:

Dim C As String, X As String
X = Me.localizartexto.Text
C = " where estacao like '*" & X & "*' or documento like '*" & X & "*' or tipo like '*" & X & "*' or titulo like '*" & X & "*' or referencia like '*" & X & "*' or observacoes like '*" & X & "*'"
Me.listadedocumentos.Form.RecordSource = "select * from listadedocumentos" & C

Ai, Obrigada Criquio, eu acabei confundindo tudo.. rs
Mais agora está funcionamento perfeitamente.

Quanto ao campo para anexar arquivos em pdf?
Vc sabe me dizer como eu devo proceder?

Obrigada!

Carollopesrj,

Certo que este tema foi resolvido, oriento que abra novo tópico para o tratamento desta outra (nova) dúvida.