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

    [Resolvido]Erro em tempo de Execução...

    avatar
    crovador
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 03/04/2018

    [Resolvido]Erro em tempo de Execução... Empty [Resolvido]Erro em tempo de Execução...

    Mensagem  crovador 16/1/2021, 15:39

    Boa tarde amigos, neste código abaixo esta dando a mensagem de erro, vou anexar uma imagem para vcs darem uma olhada...abraços
    Deus abençoe.

    Private Sub txtProduto_Change()
    txtProduto = UCase(txtProduto)
    'On Error Resume Next

    SqlOrçDettres = "SELECT * FROM tbOrç_Detalhe3 WHERE Nome_Cli LIKE '%" & Me.txtProduto.Text & "%'"
    Set rsOrçDettres = New ADODB.Recordset

    'rsOrçDettres.Close

    rsOrçDettres.Open SqlOrçDettres, cn, adOpenKeyset, adLockOptimistic
    txtCusUnit = rsOrçDettres("Telefone")
    txt_und_medida = rsOrçDettres("Observaçoes")
    txtPreUnit_Cod_Produto = rsOrçDettres("Nro_Orçamento")
    txtQtde.SetFocus
    End Sub
    Anexos
    [Resolvido]Erro em tempo de Execução... Attachmenterro!.PNG
    Você não tem permissão para fazer download dos arquivos anexados.
    (10 Kb) Baixado 2 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7956
    Registrado : 05/11/2009

    [Resolvido]Erro em tempo de Execução... Empty Re: [Resolvido]Erro em tempo de Execução...

    Mensagem  Alexandre Neves 16/1/2021, 17:19

    Boa tarde
    Onde tem
    SqlOrçDettres = "SELECT * FROM tbOrç_Detalhe3 WHERE Nome_Cli LIKE '%" & Me.txtProduto.Text & "%'"
    coloque
    SqlOrçDettres = "SELECT * FROM tbOrç_Detalhe3 WHERE Nome_Cli LIKE '%" & Me.txtProduto.Text & "%''"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    crovador
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 03/04/2018

    [Resolvido]Erro em tempo de Execução... Empty Erro em tempo de Execução...

    Mensagem  crovador 16/1/2021, 17:38

    Boa tarde amigo, coloquei mas o erro continua...



    SqlOrçDettres = "SELECT * FROM tbOrç_Detalhe3 WHERE Nome_Cli LIKE '%" & Me.txtProduto.Text & "%''"
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7956
    Registrado : 05/11/2009

    [Resolvido]Erro em tempo de Execução... Empty Re: [Resolvido]Erro em tempo de Execução...

    Mensagem  Alexandre Neves 16/1/2021, 20:18

    Apenas corrigi a expressão mas a sintaxe deverá ser
    SqlOrçDettres = "SELECT * FROM tbOrç_Detalhe3 WHERE Nome_Cli LIKE '*" & Me.txtProduto.Text & "*'"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    crovador
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 03/04/2018

    [Resolvido]Erro em tempo de Execução... Empty Erro em tempo de Execução...

    Mensagem  crovador 16/1/2021, 21:23

    O erro agora apareceu conforme a imagem em anexo.


    Private Sub txtProduto_AfterUpdate()
    txtProduto = UCase(txtProduto)
    'On Error Resume Next

    SqlOrçDettres = "SELECT * FROM tbOrç_Detalhe3 WHERE Nome_Cli LIKE '*" & Me.txtProduto.Text & "*'"

    Set rsOrçDettres = New ADODB.Recordset
       
    rsOrçDettres.Open SqlOrçDettres, cn, adOpenKeyset, adLockOptimistic ' fica amarelo nesta parte do código

    txtPreUnit_Cod_Produto = rsOrçDettres("Nro_Orçamento")
    txtCusUnit = rsOrçDettres("Telefone")
    txt_und_medida = rsOrçDettres("Observaçoes")

    txtQtde.SetFocus

    End Sub
    Anexos
    [Resolvido]Erro em tempo de Execução... Attachmenterro....PNG
    Você não tem permissão para fazer download dos arquivos anexados.
    (11 Kb) Baixado 1 vez(es)
    avatar
    crovador
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 03/04/2018

    [Resolvido]Erro em tempo de Execução... Empty Erro em tempo de Execução...

    Mensagem  crovador 18/1/2021, 10:58

    Resolvido amigos obrigado.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7956
    Registrado : 05/11/2009

    [Resolvido]Erro em tempo de Execução... Empty Re: [Resolvido]Erro em tempo de Execução...

    Mensagem  Alexandre Neves 18/1/2021, 13:54

    Boa tarde,
    Faltou o "Resolvido" e seria bom que explicasse como resolveu para poder ajudar quem procure solução para a mesma dúvida


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    crovador
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 03/04/2018

    [Resolvido]Erro em tempo de Execução... Empty Erro em tempo de Execução...[Resolvido]

    Mensagem  crovador 19/1/2021, 11:55

    segue código que resolvi...obrigado amigos e desculpe acabei esquecendo de colocar resolvido...hehehehe


    SqlOrçDettres = "SELECT * FROM tbOrç_Detalhe3 WHERE Nome_Cli LIKE '%" & Replace(Trim(Me.txtProduto.Text), "'", "''") & "%'"
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2816
    Registrado : 22/11/2016

    [Resolvido]Erro em tempo de Execução... Empty Re: [Resolvido]Erro em tempo de Execução...

    Mensagem  DamascenoJr. 20/1/2021, 01:29

    crovador, veja no link abaixo o jeito certo de dar um tópico por resolvido
    https://www.maximoaccess.com/t860-resolucao-de-topicos#5263


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    crovador
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 03/04/2018

    [Resolvido]Erro em tempo de Execução... Empty Erro em tempo de Execução...

    Mensagem  crovador 22/1/2021, 02:06

    Obrigado amigo pela dica e mais uma vez peço desculpas....
    Forte abraço fiquem com Deus....

      Data/hora atual: 16/6/2021, 14:47