[AccessD] Why is function being called??

Below is a piece of code. DaysInMonth is a function. When the code runs
and hits the line  myds1.Fields(2) = Nz(myds4.Fields(8)) the function
runs. I don't see anything that is calling it. Your thoughts
appreciated.

 

Do Until myds4.EOF

    DaysinMonth = DaysInMonth2(myds3.Fields(1))

    If Day(myds3.Fields(1)) < DaysinMonth And RecordCounter = 1 Then

        StartCounter = Day(myds3.Fields(1))

        ProdDate = myds3.Fields(1)

    Else

        StartCounter = 1

        ProdDate = myds4.Fields(1)

    End If

        

    

    For I = StartCounter To DaysinMonth

        myds1.AddNew

            myds1.Fields(0) = ProdDate

            myds1.Fields(1) = myds4.Fields(0)

            myds1.Fields(2) = Nz(myds4.Fields(8))

        myds1.Update

        ProdDate = ProdDate + 1

    Next I

    RecordCounter = RecordCounter + 1

    myds4.MoveNext

Loop

 

Chester Kaup

Engineering Technician

Kinder Morgan CO2 Company, LLP

Office (432) 688-3797

FAX (432) 688-3799

 

 

No trees were killed in the sending of this message. However a large
number of electrons were terribly inconvenienced.