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

    [Resolvido]erro consulta, qdo não tem o mes na tabela

    avatar
    Texugão
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 16/07/2016

    [Resolvido]erro consulta, qdo não tem o mes na tabela Empty [Resolvido]erro consulta, qdo não tem o mes na tabela

    Mensagem  Texugão 17/7/2016, 00:07

    Solicito ajuda: a select abaixo funciona bem, quando na tabela existe registro de dados dos 12 meses.

    Porem quando não há registro de um determinado mes, Ex: tipo no mes de junho, ocorre erro em tempo de execução.

    pode ter jan, fev, março, abril, maio,------ julho, agosto, setembro, outubro, novembro e dezembro.

    a select falha quando não acha registro na tabela do mês de junho.

    alguém saberia qual a solução para esse caso?

    desde já agradeço.

    strSQL = "SELECT abast_2014.Placa, NZ(Sum(abast_2014.[Hodometro]),0) As Soma, NZ(Sum(abast_2014.[Quantidade]),0) As Quant, NZ(Sum(abast_2014.[Valor_Total]),0) As ValTot FROM abast_2014 WHERE ((abast_2014.Placa)= '" & VIATURA & "' AND Month([abast_2014.Data_Transacao]) = " & meses & " ) GROUP BY abast_2014.Placa;"

    eu uso esta select para preencher campos em um formulário.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]erro consulta, qdo não tem o mes na tabela Empty Re: [Resolvido]erro consulta, qdo não tem o mes na tabela

    Mensagem  Alexandre Neves 17/7/2016, 08:24

    Bom dia, e bem-vindo ao fórum
    Antes do código da consulta, coloque código de verificação do mês na tabela
    If DCount(.....)>0 then


    .................................................................................
    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
    Texugão
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 16/07/2016

    [Resolvido]erro consulta, qdo não tem o mes na tabela Empty Re: [Resolvido]erro consulta, qdo não tem o mes na tabela

    Mensagem  Texugão 17/7/2016, 16:06

    Obrigado Alexandre pelas boas  vindas.

    Tentei fazer como voce sugeriu, porem como sou novato, não obtive sucesso.

    Tomei a liberdade de anexar o DB,
    Seria possivel dar uma olhada e me ajudar com a linha do dcount.
    No formulário eu escolho uma Placa e depois clico no botão GerarMapa (onde esta a select).
    desculpe se estou fazendo errado ao postar o db.
    desde já agradeço.
    Anexos
    [Resolvido]erro consulta, qdo não tem o mes na tabela AttachmentCFVO.zip
    C_F_V_O.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (194 Kb) Baixado 3 vez(es)


    Última edição por Texugão em 17/7/2016, 17:01, editado 1 vez(es) (Motivo da edição : C_F_V_O.zip)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]erro consulta, qdo não tem o mes na tabela Empty Re: [Resolvido]erro consulta, qdo não tem o mes na tabela

    Mensagem  Alexandre Neves 17/7/2016, 16:36

    Faltou a bd como anexo


    .................................................................................
    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
    Texugão
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 16/07/2016

    [Resolvido]erro consulta, qdo não tem o mes na tabela Empty Re: [Resolvido]erro consulta, qdo não tem o mes na tabela

    Mensagem  Texugão 17/7/2016, 17:10

    desculpe aos atrapalhos, estava eu tentando postar com extensão .rar, agora consegui fazer o UP na msg anterior Very Happy .

    coloquei o código da select, no botao, "GerarMapa".

    a placa que faltam alguns meses è: AWD681., uma das que estão com todos os meses é a: AWD6811.

    Caso verifique se fiz algo de errado no IF para setar os campos do formulário, aceito criticas. para poder melhorar nos conhecimentos da programação.
    desde já agradeço.


    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]erro consulta, qdo não tem o mes na tabela Empty Re: [Resolvido]erro consulta, qdo não tem o mes na tabela

    Mensagem  Alexandre Neves 17/7/2016, 20:00

    Utilize nomenclatura normalizada e tipos de dados adequados
    Para datas, utilize tipo de dados Data

    Código:
    Private Sub btn_GerarMapa_Click()
       
       
        Dim dbs As Database
        Dim qdf As DAO.QueryDef
        Dim strSQL As String
        Dim RST As Recordset
        Set dbs = CurrentDb
          meses = 0
           
        VIATURA = Me.cbx_cod_viat.Column(1)
     
     
        Do While meses <= 11
     
            meses = meses + 1
     
            strSQL = "SELECT abast_2014.Placa, NZ(Sum(abast_2014.[Hodometro]),0) As Soma, NZ(Sum(abast_2014.[Quantidade]),0) As Quant, NZ(Sum(abast_2014.[Valor_Total]),0) As ValTot FROM abast_2014 WHERE ((abast_2014.Placa)= '" & VIATURA & "' AND Month([abast_2014.Data_Transacao]) = " & meses & " ) GROUP BY  abast_2014.Placa;"
            Set RST = dbs.OpenRecordset(strSQL)
            'Set qdf = dbs.CreateQueryDef("AKMconsulta", strSQL)
            If Not RST.EOF Then
                If meses = 1 Then
                    Me.JAN21 = RST![Soma]
                    Me.JAN22 = RST![Quant]
                    Me.JAN24 = RST![ValTot]
                ElseIf (meses = 2) Then
                    Me.FEV21 = RST![Soma]
                    Me.FEV22 = RST![Quant]
                    Me.FEV24 = RST![ValTot]
                ElseIf (meses = 3) Then
                    Me.MAR21 = RST![Soma]
                    Me.MAR22 = RST![Quant]
                    Me.MAR24 = RST![ValTot]
                ElseIf (meses = 4) Then
                    Me.ABR21 = RST![Soma]
                    Me.ABR22 = RST![Quant]
                    Me.ABR24 = RST![ValTot]
                ElseIf (meses = 5) Then
                    Me.MAI21 = RST![Soma]
                    Me.MAI22 = RST![Quant]
                    Me.MAI24 = RST![ValTot]
                ElseIf (meses = 6) Then
                    Me.JUN21 = RST![Soma]
                    Me.JUN22 = RST![Quant]
                    Me.JUN24 = RST![ValTot]
                ElseIf (meses = 7) Then
                    Me.JUL21 = RST![Soma]
                    Me.JUL22 = RST![Quant]
                    Me.JUL24 = RST![ValTot]
                ElseIf (meses = 8) Then
                    Me.AGO21 = RST![Soma]
                    Me.AGO22 = RST![Quant]
                    Me.AGO24 = RST![ValTot]
                ElseIf (meses = 9) Then
                    Me.SET21 = RST![Soma]
                    Me.SET22 = RST![Quant]
                    Me.SET24 = RST![ValTot]
                ElseIf (meses = 10) Then
                    Me.OUT21 = RST![Soma]
                    Me.OUT22 = RST![Quant]
                    Me.OUT24 = RST![ValTot]
                ElseIf (meses = 11) Then
                    Me.NOV21 = RST![Soma]
                    Me.NOV22 = RST![Quant]
                    Me.NOV24 = RST![ValTot]
                ElseIf (meses = 12) Then
                    Me.DEZ21 = RST![Soma]
                    Me.DEZ22 = RST![Quant]
                    Me.DEZ24 = RST![ValTot]
                End If
            End If
               
        Loop
      RST.Close: dbs.Close
    End Sub


    .................................................................................
    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
    Texugão
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 16/07/2016

    [Resolvido]erro consulta, qdo não tem o mes na tabela Empty Re: [Resolvido]erro consulta, qdo não tem o mes na tabela

    Mensagem  Texugão 17/7/2016, 21:23

    Quero deixar o meu Agradecimento, por sua valiosa Ajuda.

    Conteúdo patrocinado


    [Resolvido]erro consulta, qdo não tem o mes na tabela Empty Re: [Resolvido]erro consulta, qdo não tem o mes na tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 07:25