Calculating Interest with a Module

[jgelpi16]

I have a public function...

Public Function cmdcalculate(txtFrom, txtTo)
 
    Dim dbs As Database
    Dim rst As Recordset
 
    Dim recStartDate As Date
    Dim recEndDate As Date
    Dim recIntRate As Double
 
    Dim intDays As Integer, testInt As Double, dblInterest As Double, aaa As Date
 
    Set dbs = CurrentDb
 
    Set rst = dbs.OpenRecordset("TblInterest", DB_OPEN_DYNASET)
 
    aaa = txtFrom
    If txtFrom > #12/31/1997# Then
        aaa = DateSerial(Year(txtFrom) + 1, 4, 15)
    End If
    If txtFrom < #12/1/1997# Then
        aaa = DateSerial(Year(txtFrom), Month(txtFrom) + 1, 15)
    End If
    If txtFrom >= #12/1/1997# And txtFrom <= #12/31/1997# Then
        aaa = #1/15/1998#
    End If
    txtFrom = aaa
 
 
    rst.MoveFirst
 
    While Not rst.EOF
        recStartDate = rst!intbdate
        recEndDate = rst!intedate
        recIntRate = rst!Rate / 100
 
        If txtFrom < recStartDate Then
            If txtTo >= recStartDate Then
                If txtTo > recEndDate Then
                    intDays = DateDiff("d", recStartDate, recEndDate)
                    testInt = (recIntRate * (intDays / 365.25))
                    dblInterest = dblInterest + testInt
                Else
                    intDays = DateDiff("d", recStartDate, txtTo)
                    testInt = (recIntRate * (intDays / 365.25))
                    dblInterest = dblInterest + testInt
                End If
            End If
        ElseIf txtFrom >= recStartDate Then
            If txtFrom <= recEndDate Then
                If txtTo > recEndDate Then
                    intDays = DateDiff("d", txtFrom, recEndDate)
                    testInt = (recIntRate * (intDays / 365.25))
                    dblInterest = dblInterest + testInt
                Else
                    intDays = DateDiff("d", txtFrom, txtTo)
                    testInt = (recIntRate * (intDays / 365.25))
                    dblInterest = dblInterest + testInt
                End If
            End If
        End If
        rst.MoveNext
    Wend
    cmdcalculate = dblInterest
End Function

...to calculate interest. However, I have not referenced public functions before and so I need some help. What I would like to accomplish is for the form to calculate the proper interest when the record in the form is selected. Possibly by using the "After Update" even procedure on the form?

[SoftwareMatters]

If you wanted to run the functuion on the afterupdate then you literally just type it there. Something like this:

Private Sub Form_Afterupdate
Me!InterestField= cmdcalculate(txtFrom, txtTo)
end sub

I would question where you are going to put this function though. Maybe on a button would be better than the afterupdate of the form.

[SACJO]

hi everyone,
please help me , the report i have done was only showing in preview mode the first page, other records were not shown .How to show other records in next page?
thank a lot
I'm using access 2007. windows 7