MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

5 participantes

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

    avatar
    Antonybrazil
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 13/04/2011

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

    Mensagem  Antonybrazil 13/6/2011, 02:52

    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
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

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

    Mensagem  criquio 13/6/2011, 03:03

    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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12226
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN 13/6/2011, 03:11

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

    Saudações
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

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

    Mensagem  criquio 13/6/2011, 03:11

    Acontece Razz


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Antonybrazil
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 13/04/2011

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

    Mensagem  Antonybrazil 13/6/2011, 04:42

    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
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12226
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN 13/6/2011, 05:08

    Testa tambem o que te passei...
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12226
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN 13/6/2011, 05:09

    Me retirando deste tópico..........pela atitude do colega...


    Última edição por Harysohn em 13/6/2011, 18:24, editado 1 vez(es)
    avatar
    Antonybrazil
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 13/04/2011

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

    Mensagem  Antonybrazil 13/6/2011, 17:48

    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
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

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

    Mensagem  vieirasoft 13/6/2011, 17:58

    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.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

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

    Mensagem  vieirasoft 13/6/2011, 18:24

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12226
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN 13/6/2011, 18:27

    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!!
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

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

    Mensagem  criquio 13/6/2011, 19:38

    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 Smile

    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.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Antonybrazil
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 13/04/2011

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

    Mensagem  Antonybrazil 13/6/2011, 22:47

    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.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

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

    Mensagem  vieirasoft 13/6/2011, 22:55

    É 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.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12226
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN 13/6/2011, 23:03

    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
    Administrador
    Administrador
    Administrador
    Administrador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 413
    Registrado : 02/11/2009

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

    Mensagem  Administrador 13/6/2011, 23:03

    Tópico encerrado, usuário advertido.

    Admin

      Data/hora atual: 15/8/2022, 13:21