🚀 go-pugleaf

>> I've got an endless-form for my telephone-database:
>
>> room:  number of the room (1-4)
>> date:  date of the call
>> cost:  cost of the telephone-call
>> sum:   number of received impulses so far (1 pulse received -> +0.8 costs)
>> text:  -
>> sheet: number of the sheet, on which the call was noticed
>
>
>> Problem 1:
>> I want to calculate the cost by multiplying the difference of the sum by 0.8
>> e.g.: cost = ( sum - sum.old ) * 0.8
>> So, how do I refer to the sum.old-field?
>> Can I just enter the calculation or do I have to use a querry or so?
>
>You can include calculations or even function calls in your queries or
>as the ControlSource of your form and report controls. What is sum.old
>and where does it come from?

sum.old is the sum-field from one line above.

sum  cost
..   ...
4    3.2
6    1.6   =(6-4)*0.8

The only thing is - I think - how to refer to the line above.
I searched through the whole manual (paper & online) without getting
more than that Strg+"'" (Apostroph) gets the value of one line above.
But I can't imagine, how to use that in this case.




other Problem:

�> I've got another endless-form:
�
�> [...] some things that doesn't matter here
�> Sum: cost of a product
�> Zi1: Yes/No, if the room 1 is concerned
�> Zi2: Yes/No
�> Zi3: Yes/No
�> Zi4: Yes/No
�
�> I want to calculate the costs of room 1, 2, 3 or 4 and therefore, I have
�> to make a querry to get the number of rooms concerned of that line like:
�> Sum Zi1 Zi2 Zi3 Zi4  -> NrOfYes  -> CostForEachParty
�> 21  Y   Y   N   Y       3           (21/3=) 7
�> 30  N   Y   Y   N       2           (30/2=) 15
�
�Function SafeDivide(ByVal X As Double, ByVal Y As Double, ByVal Z As Variant)
�    If Abs(Y) > 0.0001 Then
�        SafeDivide = X / Y
�    Else
�        SafeDivide = Z
�    End If
�End Function
�
�select count(*) as [Sum], Zi1, Zi2, Zi3, Zi4,
�  SafeDivide(count(*), iif(Zi1 <> False, 1, 0) +
�  iif(Zi2 <> False, 1, 0) + iif(Zi3 <> False, 1, 0) +
�  iif(Zi4 <> False, 1, 0), Null) as CostForEachParty
�from Konto
�group by Zi1, Zi2, Zi3, Zi4


I call a macro when I go to the field (On Enter) perPerson (=CostsPerParty)
which executes this:

[perPerson] = SaveDiv([Sum], IIf([Zi1] = True, 1, 0) +
                             IIf([Zi2] = True, 1, 0) +
                             IIf([Zi3] = True, 1, 0) +
                             IIf([Zi4] = True, 1, 0), 0)

But when I go to that field in the form, there happenes nothing!
Not even 0 or an error.

So I tried it with the function-call diretcly: same effect.

Then I changed the macro-code to:

Me![perPerson]=33
or
[perPerson]=33
or
[perPerson]=[Sum]

...just to try it but: nothings happens EXCEPT:
When I use Me![perPerson], I get the errormessage:

*Reference not allowed* on field: 'Me'.
(Msg translated by me!)

Then I changed the OnEnter-event to Access Basic Code:
Me![perPerson]=33
-> same errormessage

And perPerson=33 doesn't do anything.
(btw, [perPerson]=33 is not allowed.)

Then I changed to OnGotFocus: same thing.



What's my mistake??????

I've got the feeling, that this is just one little thing that an outstanding
person can help me easily.


TNX again!


---
Karl VOIT alias vk@sbox.tu-graz.ac.at                     
         Student @ University of Technology of GRAZ (Austria)     
                                            (No, we have no Kangaroos!)     
Further information on http://www.sbox.tu-graz.ac.at/home/vk/