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


2 participantes

    Ajuda em uma SQL

    percoski
    percoski
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 319
    Registrado : 27/02/2013

    Ajuda em uma SQL Empty Ajuda em uma SQL

    Mensagem  percoski 16/6/2013, 01:27

    Olá boa noite, fiz uma SQL de referencia cruzada para calculos de descontos, fiz primeiro um teste:
    Frmteste campos:

    Umidade, TxUmidade, Codigo

    devieria devolver o resultado para o campo TxTotal.
    Eis o meu código

    Dim varsql As String
    Dim strsql As Recordset
    Dim var As String


    varsql = "SELECT tblDescontos.Aplicado, TblDesconto_Detail.IdProduto, TblDesconto_Detail.Idfaixa, TblDesconto_Detail.De, TblDesconto_Detail.Ate, TblDesconto_Detail.Desconto FROM tblDescontos INNER JOIN TblDesconto_Detail ON tblDescontos.Código = TblDesconto_Detail.IdProduto WHERE (((tblDescontos.Aplicado) = '&Me.Umidade' And ((TblDesconto_Detail.IdProduto) = '&Me.Codigo') And ((TblDesconto_Detail.De) <= '&Me.TxUmidade') And ((TblDesconto_Detail.Ate) >= '&Me.TxUmidade')))"
    Set strsql = CurrentDb.OpenRecordset(varsql)

    MsgBox "o valor é " & strsql(0)

    Porém quando executo ela retorna ERRO EM TEMPO DE EXECUÇÃO '3021'
    nenhum registro atual.
    nos campos txUmidade e Desconto possuem valores decimais tipo 14,5 ou 0,75 e por ai
    aguado ajuda obrigado
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    Ajuda em uma SQL Empty Re: Ajuda em uma SQL

    Mensagem  JPaulo 17/6/2013, 11:46

    Teste por favor;

    varsql = "SELECT tblDescontos.Aplicado, TblDesconto_Detail.IdProduto, TblDesconto_Detail.Idfaixa, TblDesconto_Detail.De, TblDesconto_Detail.Ate, TblDesconto_Detail.Desconto "
    varsql = varsql & " FROM tblDescontos INNER JOIN TblDesconto_Detail ON tblDescontos.Código = TblDesconto_Detail.IdProduto "
    varsql = varsql & " WHERE (((tblDescontos.Aplicado) = '" & Me.Umidade & "' And ((TblDesconto_Detail.IdProduto) = '" & Me.Codigo & "') And ((TblDesconto_Detail.De) <= '" & Me.TxUmidade & "') And ((TblDesconto_Detail.Ate) >= '" & Me.TxUmidade & "')))"
    Set strSQl = CurrentDb.OpenRecordset(varsql)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Ajuda em uma SQL Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Ajuda em uma SQL Folder_announce_new 102 Códigos VBA Gratuitos...
    Ajuda em uma SQL Folder_announce_new Instruções SQL como utilizar...
    percoski
    percoski
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 319
    Registrado : 27/02/2013

    Ajuda em uma SQL Empty Re: Ajuda em uma SQL

    Mensagem  percoski 18/6/2013, 02:06

    ta dando
    erro em tempo de execução ; 3464
    tipo de dados incompativel na expressão critério;

    Os valores são 14,5 e rotorna 0,75% não seria este o problema?
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    Ajuda em uma SQL Empty Re: Ajuda em uma SQL

    Mensagem  JPaulo 18/6/2013, 09:19

    Aqui é impossivel fazer o teste, só se você anexar parte do seu banco, para se fazer um Break e acompanhar o código e os valores das variaveis.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Ajuda em uma SQL Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Ajuda em uma SQL Folder_announce_new 102 Códigos VBA Gratuitos...
    Ajuda em uma SQL Folder_announce_new Instruções SQL como utilizar...
    percoski
    percoski
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 319
    Registrado : 27/02/2013

    Ajuda em uma SQL Empty Re: Ajuda em uma SQL

    Mensagem  percoski 18/6/2013, 12:30

    Da uma olhada este é um form de teste.
    é so digitar 14,5 no campo txUmidade e 2 no campo codigo

    https://www.dropbox.com/s/p5i168mkgwlp178/sql.rar

    é só baixar no link acima
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    Ajuda em uma SQL Empty Re: Ajuda em uma SQL

    Mensagem  JPaulo 18/6/2013, 13:00

    Converta por favor para Access 2007.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Ajuda em uma SQL Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Ajuda em uma SQL Folder_announce_new 102 Códigos VBA Gratuitos...
    Ajuda em uma SQL Folder_announce_new Instruções SQL como utilizar...
    percoski
    percoski
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 319
    Registrado : 27/02/2013

    Ajuda em uma SQL Empty Re: Ajuda em uma SQL

    Mensagem  percoski 18/6/2013, 14:27

    segue arquivo devidamente convertido
    https://www.dropbox.com/s/hxlqu8686wz0vnl/sql2007.rar
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    Ajuda em uma SQL Empty Re: Ajuda em uma SQL

    Mensagem  JPaulo 18/6/2013, 14:39

    Ainda não foi desta, as tabelas estão vinculadas de outro banco.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Ajuda em uma SQL Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Ajuda em uma SQL Folder_announce_new 102 Códigos VBA Gratuitos...
    Ajuda em uma SQL Folder_announce_new Instruções SQL como utilizar...
    percoski
    percoski
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 319
    Registrado : 27/02/2013

    Ajuda em uma SQL Empty Re: Ajuda em uma SQL

    Mensagem  percoski 18/6/2013, 17:04

    Desculpa, agora acho que vai
    Anexos
    Ajuda em uma SQL Attachmentsql2007.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (43 Kb) Baixado 17 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    Ajuda em uma SQL Empty Re: Ajuda em uma SQL

    Mensagem  JPaulo 18/6/2013, 17:56

    Agora veio;

    Teste por favor;


    varsql = "SELECT tblDescontos.Aplicado, TblDesconto_Detail.IdProduto, TblDesconto_Detail.Idfaixa, TblDesconto_Detail.De, TblDesconto_Detail.Ate, TblDesconto_Detail.Desconto "
    varsql = varsql & " FROM tblDescontos INNER JOIN TblDesconto_Detail ON tblDescontos.Código = TblDesconto_Detail.IdProduto "
    varsql = varsql & " WHERE (((tblDescontos.Aplicado) = '" & Me.Umidade & "' And ((TblDesconto_Detail.IdProduto) = " & Me.Codigo & ") And ((TblDesconto_Detail.De) <= " & Replace(CDbl(Me.TxUmidade), ",", ".") & ") And ((TblDesconto_Detail.Ate) >= " & Replace(CDbl(Me.TxUmidade), ",", ".") & ")))"
    Set strsql = CurrentDb.OpenRecordset(varsql)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Ajuda em uma SQL Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Ajuda em uma SQL Folder_announce_new 102 Códigos VBA Gratuitos...
    Ajuda em uma SQL Folder_announce_new Instruções SQL como utilizar...
    percoski
    percoski
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 319
    Registrado : 27/02/2013

    Ajuda em uma SQL Empty Re: Ajuda em uma SQL

    Mensagem  percoski 18/6/2013, 19:51

    Mestre é por ai mesmo, funcionou muito bem, agora vou adaptar no formulário e na rotina correta.
    Não vou fechar o topico caso precise da sua ajuda.
    Como tens notado qdo vai pro lado da SQL eu fico meio perdido, vc poderia, se não foce abusar, comentar o que foi feito para resolver e indicar um material para estudo, porque to apanhando muito com esse trem.

    Obrigado mais uma vez
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    Ajuda em uma SQL Empty Re: Ajuda em uma SQL

    Mensagem  JPaulo 18/6/2013, 20:14

    Obrigado pelo retorno o forum agradece.

    Duas coisinha que fazem a diferença:

    1ª Codigo é numerico, não leva aspas simples e é para Texto.

    2ª Os valores com virgulas têm de ser tratados para ponto, ae o Replace.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Ajuda em uma SQL Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Ajuda em uma SQL Folder_announce_new 102 Códigos VBA Gratuitos...
    Ajuda em uma SQL Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    Ajuda em uma SQL Empty Re: Ajuda em uma SQL

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 11:41