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

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.

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

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.

Faltou a bd como anexo

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

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.

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

Quero deixar o meu Agradecimento, por sua valiosa Ajuda.