Subtraction of a number till it reaches zero

[omnifold]

What I need is a way to subtract .016 from a single number in a field and show the results in a report. I would like it to minus the .016 from a number till it reaches 0. I want to show it the report all the numbers.




Field contains the value of 7(there is only one row of data in the field)

I want a report to show

7
6.984
6.968
6.952

and so on.

[maximus]

I have a very simple example here I have a table with two fields ID(Autonumber) MyNumber Number Field.

Now I have prepared a simple report using my Table and I have placed an unbound list box to show my the results of my subtractions. The code is as below

Private Sub Report_Load()
Dim intMyNumber As Double
Dim strMyString As String

intMyNumber = Me.myNumber
Do While intMyNumber > 0
    intMyNumber = intMyNumber - 0.016

'I have added this part to show only positive results.
    If intMyNumber < 0 Then
        Exit Do
    Else
    
        If Len(strMyString) > 0 Then
            strMyString = strMyString & ";" & Format(intMyNumber, "0.000")
        Else
            strMyString = Format(intMyNumber, "0.000")
        End If
        
    End If
Loop

Me.List2.RowSource = strMyString
End Sub

The code is attached to the onLoad Event. Refer to Screen Shot Attached.

[omnifold]

Thanks but I would like to to this there it would not require a list box. This way if the list is long it will print out correctly

[maximus]

Thanks but I would like to to this there it would not require a list box. This way if the list is long it will print out correctly

This can be done using a text box too. Lets have a test Box name txt1. Then the changes in the code will be as follows:

Private Sub Report_Load()
Dim intMyNumber As Double
Dim strMyString As String

intMyNumber = Me.myNumber
Do While intMyNumber > 0
    intMyNumber = intMyNumber - 0.016

'I have added this part to show only positive results.
    If intMyNumber < 0 Then
        Exit Do
    Else
    
        If Len(strMyString) > 0 Then
            strMyString = strMyString & vbcrlf & Format(intMyNumber, "0.000")
        Else
            strMyString = Format(intMyNumber, "0.000")
        End If
        
    End If
Loop

Me.txt1= strMyString
End Sub

Make sure Can Grow Property of the text Box is set to Yes

[omnifold]

I did that I the text doesn't grow. The box is set to yes.

[omnifold]

Sorry it does in print view only. Thank you for your help