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


4 participantes

    Erro em Tempo de Execução '3001'

    avatar
    Geh
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Erro em Tempo de Execução '3001' Empty Erro em Tempo de Execução '3001'

    Mensagem  Geh 11/1/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.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes 11/1/2017, 22:22



    .................................................................................
    _____________________________________________________________________
    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!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Fim 11/1/2017, 22:32


    Tente isto

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Geh 12/1/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
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio 12/1/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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 26/4/2024, 15:52