[Resolvido]Calculos ao Clickar no campo Data

Boa noite

Ao fazer click no campo data os valores apresentados em baixo do lado direito nem sempre são corretos.
agradeço uma dica

http://dl.dropbox.com/u/8169944/Lista%20Assis.rar

Obrigado

Aqui deu certo. Ao clicar em um dia, as outras linhas do mesmo dia são selecionadas e feita a soma certa das linhas selecionadas.

Criquio

Se eu clikar no dia 02-01-2002, o resultado que tenho no campo "txtResultado" é 202,25 €, e devia ser 100,00 €

Se eu clikar no dia 05-01-2002, o resultado que tenho no campo "txtResultado" é 0,00 €, e devia ser 49,78 €

Só dá erro ao clikar na coluna da data

Assis uma dica que eu observei

Ao clicar na data 02/01/2002 ele está dando o total de: 202,25

Se der uma analisada em todos os valores veras que ele esta somando os dias:

02/01/2002 - 100,00
22/01/2002 - 2,25
0 outro Valor 100,00 contido na lista que pela lógica das datas eu creio que é a data
22/02/2002

Eu creio que é ela pela lógica da dezena do dia

02/01/2002 - 100,00
22/01/2002 - 2,25
22/02/2002 - 100,00

Saudações

Hary

Se selecionar só o dia 22-01-2002, ele devolve o valor correto - 427,25 € . Curioso não
Assim como 22-02-2002 também dá correto ...

Assis amigão faça um teste ai que fiz agora.. assim terá uma visualização do que ocorre a cada loop

no código adicione as msgBox


'coloca a soma dos valores na textbox, percorrendo todos os registos tendo como referencia o campo Ref
Do While Not rst.EOF

MsgBox Me.txtResultado
MsgBox rst.RecordCount
MsgBox CampoOculto

e observe o que acontece

Hary
ponha aqui o seu teste

Ele esta somando com os valore dos dias:

01/02/2002 - 100,00
01/02/2002 - 75,45
01/02/2002 - 1,80

e outro dia contendo 25,00 que não consegui identicar o dia

Ele esta somando com os valore do dia 01/02/2002 - se obsevar a data que era para somar:02/01/2002... ele está invertendo pareceu-me

01/02/2002 - 25,00
01/02/2002 - 100,00
01/02/2002 - 75,45
01/02/2002 - 1,80

Agora se clicar no dia 01/02/2002 ele retorna o valor de 100,00

Ele está invertendo sacou??!!

Agora ainda não decobri o porque da inversão de datas 01/02 e 02/01

Experimente fazer isto:



'coloca o campo oculto de cor azul
Me.CampoOculto.FormatConditions.Item(0).Modify acExpression, , "[" & ctlCurrentControl.Name & "]=[CampoOculto]"
Me.Texto86 = Me.CampoOculto
'abre o recordset da tabela conforme campo em destaque
Me.CampoOculto = Format(Me.CampoOculto, "mm/dd/yyyy")
'Campo Data
If Me.ActiveControl = Me.Data Then
Set rst = CurrentDb.OpenRecordset("Select * from temp" & _
" Where(Data=#" & Me.CampoOculto & "#);")

Formate o campo oculto como esta acima.. vera que resolve este problema... agora não testei para os outros..

O problema esta por ai... Agora ele fez a soma correta para este dia porém seleciona o dia do outro mes.. para outros dias da a inversão... O problema esta ai...

Saudações

Obrigado Hary

Os outros campos continuam a funcionar direito.

A única diferença é que ao selecionar uma data com mais que um registo não os seleciona com o azul

Obrigado

Consegui um resultado mais satisfatório mudando o local do Loop, adicionando um a cada Select....

Da maneira utilizando o format.. esta dando erro em outros campos...
Vou te enviar o modelo que fiz..

1 minuto...

Tai assis, esta fazendo os calculo agora e sem precisar de alterar o formto do campo oculto..

Adicionei o loop respectivo na linha do código a ser executado de acordo com a seleção do campo, se data, se ref, etc..

Veja..

Agora so não mexi na questao da seleção em azul... pois ainda seleciona o outro mes... isto tem haver com a condição de formtação.. ainda não trabalhei com este tipo de código :
Me.CampoOculto.FormatConditions.Item(0).Modify acExpression, , "[" & ctlCurrentControl.Name & "]=[CampoOculto]"

Mas já é um começo..

Saudações

http://dl.dropbox.com/u/26441349/Lista%20Assis.rar

Hary

Com a sua dica aplicada "a vermelho".

Formatar o campo data ao ser selecionado,em vez de formatar o CampoOculto funciona 100%

'Campo Data
If Me.ActiveControl = Me.Data Then
Set rst = CurrentDb.OpenRecordset("Select * from temp" & _
" Where(Data=#" & Format(Me.CampoOculto, "mm/dd/yyyy") & "#);")

Obrigado Hary

Realmente ficou 100%

Um belo código este e muito interessante...

Bom trabalho