MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Erro em Tempo de Execução '3001'

    Compartilhe

    Geh
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 3
    Registrado : 09/01/2017

    Erro em Tempo de Execução '3001'

    Mensagem  Geh em Qua 11 Jan 2017, 19:18

    Olá pessoal,

    Preciso fazer uma pesquisa em uma tabela mas quando executo o código aparece esse erro.
    Pelo que pesquisei e encontrei até agora, provavelmente o problema está no comando SQL, mas não consigo identificar.
    Segue o código:

    Sub Teste()
    SU_ConectaDB

    Set rs = mConn.OpenRecordset("SELECT Nome = 'rt' AND Telefone = '358' FROM Cadastro_clientes;")
    SU_DesconectaBD
    Exit Sub

    Erro:
    SU_DesconectaBD
    CodDescrErroIMP = Err.Description
    MsgBox CodDescrErroIMP
    End Sub

    Outra ponto que eu também percebi é que quando utilizo o mConn não tenho o OpenRecordset não aparece no atalho.

    Desde já agradeço.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3226
    Registrado : 14/08/2013

    Re: Erro em Tempo de Execução '3001'

    Mensagem  FabioPaes em Qua 11 Jan 2017, 22:22

    Seja bem vindo ao Forum!

    Veja esse Topico aqui:

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Alexandre Fim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 143
    Registrado : 13/12/2016

    Re: Erro em Tempo de Execução '3001'

    Mensagem  Alexandre Fim em Qua 11 Jan 2017, 22:32


    Tente isto

    Set rs = mConn.OpenRecordset("SELECT Nome, Telefone FROM Cadastro_clientes WHERE Nome = 'rt' AND Telefone = '358' ")

    Geh
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 3
    Registrado : 09/01/2017

    Re: Erro em Tempo de Execução '3001'

    Mensagem  Geh em Qui 12 Jan 2017, 15:58

    Continua dando o mesmo erro

    encontrei em algum lugar que esse erro ocorre porque não tenho permissão para acessar o dado que quero selecionar, mas não sei como mudar isso Mad
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3535
    Registrado : 20/04/2011

    Re: Erro em Tempo de Execução '3001'

    Mensagem  Silvio em Qui 12 Jan 2017, 16:23

    Apenas dando um pitaquinho.
    Você declarou uma variável para banco de dados e o está abrindo?

    'Declaração da variável
    Dim mdb = As Databse
    'Abrir o banco de dados corrente
    Set mdb = CurrentDb


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Qua 26 Jul 2017, 03:40