[Resolvido]Mostrar a média de autonomia

Bom dia Srs mestres e amigos!

Gostaria de implementar mais um recurso ao meu estudo proporcionando ao usuário o cálculo da média da autonomia de um determinado veículo em um período selecionado pelo usuário.

Por exemplo tenho 4 saídas no mês de fevereiro e queria saber a média da autonomia do veículo através da soma individual das autonomias dividida pelo nº de saída, como seria a espressão?  Será que tenho que criar um campo "não associado" e implementar uma outra expressão no código já existente que segue abaixo:

"Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
   On Error Resume Next
   Me.txt_UltOdom = DLast("Odom_Abast", "Abastecimento", "Viaturas ='" & txt_Veículo & "' AND Nr_Reg<" & Me.Nr_Reg)
   Me.txt_Autonomia = Format((Val(Nz(Me.txt_OdomAbast)) - Val(Nz(txt_UltOdom))) / Val(Nz(Me.txt_Litros)), "0.00")
End Sub"

Ou funcionaria colocando uma expressão direto na fonte de controle do campo txt_MediaAutonomia?

Se algum dos amigos puder me dá mais essa luz, eu fico muito grato!

Qualquer outra informação eu posso acrescentar se for necessário.


Att,


AMarcos

Olá Mestres, vi que ainda não há uma resposta para o meu impasse.

Se for por motivo de entendimento no que eu preciso, é só dizer que eu tento ser mais claro na minha necessidade.

Eu preciso de uma fórmula que me possibilite somar todas as autonomias individuais e dividí-las pelo numero de abastecimentos ocorridos em um determinado período.

Assim terei uma média da autonomia no período escolhido.


Uma abraço,


AMarcos

Na imagem mostra o que pretendo acrescentar nesse meu trabalho.

E em anexo está o BD onde se possível solicito aos amigos mestres que me dêem uma luz de como eu posso fazer.

Desde já muito obrigado!!!


Att,


AMarcos

Veja

Olá amigo Ivan!

Vi aqui a sua solução e ficou tudo a contento.

Só tem uma coisa que está me deixando curioso: quando preciso verificar a autonomia de geral sem discriminar veiculo nenhum (campo "viaturas" em branco) em um determinado período qualquer, corre tudo certo, menos no período de 30/02 a 07/03?

O que será que deve estar acontecendo? Sei que o necessário e só será útil a autonomia média por veículo, mas possa ser que o usuário precise do formulário geral de todos os abastecimentos justamente nesse ou dentro do período e não consiga. Devemos pensar em todas as possibilidades...

Aparece: erro de tempo de execução '6' - Estouro

Sabe o que pode ser feito para se evitar tal erro?

Ah, mas no demais está excelente pesquisando um veículo por vez, de acordo com um período qualquer desejado. Jamais conseguiria sem sua ajuda!!!

Muito obg!

Fico atento as suas orientações no que fazer no pequeno impasse acima.

Att,


AMarcos

30/02? Talvez seja porque está data não exista.

Tens certeza que consegue inserir esta data em seu formulário de filtragem?

Meu amigo me desculpe!!!

Foi um erro bobo de digitação. O problema estar de 30/01 a 07/03.


Att,


AMarcos

Retire o código do evento ao formatar do rodapé do relatório, e no evento ao imprimir do rodapé do relatório, use

Código:

If varAcumula1 = 0 And varAcumula2 = 0 Then
    Me!Texto45.Value = 0
Else
    Me.Texto45.Value = Format(varAcumula1 / varAcumula2, "0.00")
End If
varAcumula1 = 0
varAcumula2 = 0

créditos
usandoaccess.com.br/tutoriais/video-programacao-de-relatorios.asp?id=1

Ivan meu amigo me desculpe pela demora na resposta, mas gostaria de lhe dizer que td deu certo.

Muito obrigado pela sua ajuda!!!


Att,


AMarcos

O fórum agradece o retorno. Sucesso.