Erro de busca em expressão de busca "Me.RecordsetClone.FindFirst"

Tenho um caixa de busca que funciona perfeitamente com a expressão abaixo. No entanto, quando é digitado um valor que não existe, por exemplo, ao invés de se digitar Mario, se digitar Marioo, ocorre um erro: "Erro em tempo de execução '3070'". Alguém sabe como evitar isso? obrigado
Private Sub ComboBusca_AfterUpdate()
Me.RecordsetClone.FindFirst "Dadoscomuns.codigo = " & Me.Combobusca.Column(1)
If Me.RecordsetClone.NoMatch Then
MsgBox "No entry found"
Else
Me.Bookmark = Me.RecordsetClone.Bookmark
Me!Nomepaciente.SetFocus
Me!Combobusca = Null
End If
End If
End Sub

Tente assim:

Private Sub ComboBusca_AfterUpdate()
If Not IsNull(DLookup("codigo", "Dadoscomuns", "codigo=" & Me!Combobusca.Column(1))) Then
Me.RecordsetClone.FindFirst "Dadoscomuns.codigo = " & Me.Combobusca.Column(1)
Me.Bookmark = Me.RecordsetClone.Bookmark
Me!Nomepaciente.SetFocus
Me!Combobusca = Null
Else
MsgBox "Código inexistente", vbCritical, "Erro"
End If
End Sub

Não vi que havia respondido Amigo Criquio...

Saudações

Acontece

Esta dando erro de sintaxe. Tentei corrigir assim mas nao deu certo tb

If Not IsNull(DLookup("[codigo]", "Dadoscomuns", "[codigo]= " & Me!Combobusca.Column(1) & "")) Then

Testa tambem o que te passei...

Seu código não dá certo não. De cara já dá uma mensagem de erro. Alguém sabe consertar esse código do Criquio?

If Not IsNull(DLookup("[codigo]", "Dadoscomuns", "[codigo]= " & Me!Combobusca.Column(1) & "")) Then

Amigo

O Criquio não é um qualquer. O Criquio é Moderador aqui no fórum MaximoAccess e por sinal competente e com sabedoria suficiente para ensinar qualquer um de nós. Dirija-se com respeito a todos aqui dentro e faça o favor de pedir desculpas ao Moderador Criquio.

Não quero comentários seja de quem for. O Colega que se retrate pedindo desculpa ao Moderador Criquio ou pode ser expulso.

Só tenho a agradecer ao Fórum e principalmente ao Colega Críquio que nos abrilhanta com seu enorme conhecimento...
So me tem ajudado.. não só ele mas como todos do Fórum...
Obrigado Vierão!!

Amigos, acredito que o colega não teve a intenção de ofender. Talvez tenha sido um equívoco na forma de se expressar. Quero acreditar que o colega quis dizer "adaptar" no lugar de "consertar".
Agradeço aos colegas pela consideração

Amigo Luiz Antonio, às vezes é meio complicado passar o código certo sem conhecer um pouco da estrutura do aplicativo. Na maioria das vezes a gente dá uma ideia a ser adaptada segundo as necessidades, até mesmo porque pode ocorrer várias outras situações com o aplicativo às quais desconhecemos. Dica que funciona de primeira em um caso, pode não funcionar em outro. Só como exemplo, se alguem posta uma dúvida sobre como fazer o aplicativo exibir uma imagem cadastrada para um registro e esse usuário usa formulário simples, as chances da dica ser certeira é praticamente 100%. A gente passa a dica e funciona a contento. Então outro usuário testa a dica e não funciona. O outro usuário posta dizendo que não funciona e pergunta porque, mas se esquece de informar que, ao contrário do primeiro usuário que precisava desse recurso em um formulário simples, ele precisa em um formulário contínuo. Aí então os procedimentos tem que ser outros. É através do diálogo que vamos aparando as arestas.

Ficamos no aguardo de vosso pronunciamento.

Obviamente nao tive a intenção de ofender ninguém! Fico pasmo que um simples "consertar" ou "retificar" possa ter causado tanta confusão. O código que apresentou erro foi o do colega Harysohn.
Penso que não há nada de mais na palavra "consertar", mas se jugarem necessário minha exclusão do fórum. Nada posso fazer.
Obrigado a atenção sempre dispensada principalmente pelo moderador Criquio que é sim um mestre.

É o que você merece mesmo e sabe porquê; Porque não veio aqui com a humildade de quem cometeu um erro pedir desculpa. Você veio tentar consertar o que fez, tentando humilhar um outro colega que o tentou ajudar. Agora já o código é do outro colega e não do Criquio, que há umas horas atrás não prestava e agora é um fora de série. O outro prestou e agora não presta. Você não tem humildade, só tem a conversa daqueles que jogam com os outros. Ainda vai ter que pisar muito chão.

Vou-me aconselhar com o Administrador, sobre o que fazer com consigo.

Nossa.....Ele nem chegou a usar o código que postei... que so fiz pensando em ajudar, e uso as palavras do amigo Críquio....que diz sabiamente o quanto é díficil ajudarmos sem termos em mãos a real situacao do BD. O que temos são fragmentos de informações que quebramos a cabeça para ao menos tentar entender e ajudar...., e como o Criquio disse.. a evolução do tópico apara as arestas.. conserta possíveis erros....

isso ja me aconteceu quando Alguns MESTRES me ensinaram, algumas vezes se esqueceu aqui se falhou ali... mas o detentor da paciencia tem que ser quem está sendo ajudado, pois os que Ajudam... o fazem de bom grado....
E diga-se de passagem.. para quem esta sendo ajudado o problema esta claro em sua mente... mas nem sempre claro quando se escreve aqui... transformando os que Ajudam em verdadeiros TRADUTORES de pensamentos e idéias que em realidade é mais difícil que programar....

Grato pela critica amigo, creio que talvez se ofendeu por eu ter retirado os códigos, mas o fiz.. porque eu.. ainda sou ajudado e muito aqui.. e tento com o mínimo de conhecimento que tenho ajudar, dando em contrapartida dessa forma o precioso tempo que todos... e digo todos, Mestres ou não.. dispensam em ajudar..

Boa noite

Tópico encerrado, usuário advertido.

Admin