Soma De Dados Variáveis De Um Mesmo Campo

[vbfalcao]

Ola pessoal,

Estou desenvolvendo um sistema para agilizar meu trabalho mas, cheguei em um ponto que não consigo fazer.

A situação é a seguinte:

tenho um banco de dados separado em 4 tabelas cadastro_cli, cadastro_contrato, cadastro_maquina e contabilizadores (todas as tabelas estão relacionadas e todos os relacionamentos é de um para muitos), o meu problema começa no momento de criar um relatório. o que aconte: na tabela CADASTRO_MÁQUINA temos os seguintes campos: controle_cad_maq, num_serie_maq, modelo_maq, datainst_maq, franquia_maq, valorcop_maq; e na tabela CONTABILIZADORES temos: id_contabilizador, chave_num, data_num, numerador_num_total, numerador_fax e numerador_scaner; o que eu tenho que fazer é o seguinte: gerar um relatório que me especifique períodos e que some os numeradores. expl: eu quero que saia no relatório o periodo de 27/07/2007 e 27/08/2007 e que os numeradores de 27/08/2007 diminua o valor do numerador de 27/07/2007. o relatório que montei... aparece todos os valores... mas não consigo fazer o cálculo entre dados de um mesmo campo.

[MrMALJ]

Na cosulta que gera o relatório, vá no critério do seu campo data e coloque algo assim:

entre [data1] e [data2]

No segundo caso, crie uma variável local logo abaixo do início da códificação VBA do relatório, algo assim:

Option Compare Database

dim tst as variant

tst=0

depois vá na propriedade de eventos "Ao formatar" ou "Ao imprimir" e faça um cóigo mais ou menos assim:

if tst=0 then

tst=me.seuNumerador

end if

Bom dessa forma você guarda o primeiro valor da lista, o que você terá de fazer agora é simplesmente subtrair o último contador da lista pela variável tst, e isso deverá ser feita numa caixa de texto não acoplada, visto que se a caixa de texto tiver origem de controle ela não pode ser alterada via código!

Bom isso deve resolver!

[vbfalcao]

Boa tarde,

Executei os procedimentos ditos acima, mas não consegui obter um resultado. gostaria de saber a possibilidade de eu enviar o arquivo a você, para que tenha uma idéia melhor e para que possa efetuar testes.

Att,

vbfalcao

[MrMALJ]

fera se quiser me mandar, pode só não posso dizer quando vou poder ver, estou meio apurado, mais sempre que sobra um tempinho tento ajudar.