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


3 participantes

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

    crovador
    avatar
    crovador
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 03/04/2018
    • Mensagem nº1

    [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 3 vez(es)
    • Ir para o topo
    Alexandre Neves
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009
    • Mensagem nº2

    [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
    • Ir para o topo
    crovador
    avatar
    crovador
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 03/04/2018
    • Mensagem nº3

    [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 & "%''"
    • Ir para o topo
    Alexandre Neves
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009
    • Mensagem nº4

    [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
    • Ir para o topo
    crovador
    avatar
    crovador
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 03/04/2018
    • Mensagem nº5

    [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)
    • Ir para o topo
    crovador
    avatar
    crovador
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 03/04/2018
    • Mensagem nº6

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

    Mensagem  crovador 18/1/2021, 10:58

    Resolvido amigos obrigado.
    • Ir para o topo
    Alexandre Neves
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009
    • Mensagem nº7

    [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
    • Ir para o topo
    crovador
    avatar
    crovador
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 03/04/2018
    • Mensagem nº8

    [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), "'", "''") & "%'"
    • Ir para o topo
    DamascenoJr.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016
    • Mensagem nº9

    [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.
    • Ir para o topo
    crovador
    avatar
    crovador
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 03/04/2018
    • Mensagem nº10

    [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....
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº11

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

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 21/11/2024, 13:26