Expand|Select|Wrap|Line Numbers
- Function arrears(longID As Long, strID As String)
- Dim rt As DAO.Recordset
- Dim startArrears As Currency
- Dim dc As DAO.Database
- Dim strsqli As String
- Set dc = CurrentDb
- strsqli = "SELECT tlbstartArrears.personID, tlbstartArrears.unitID, tlbstartArrears.startBalance AS starting " & _
- "FROM tlbstartArrears " & _
- "WHERE (((tblstartArrears.personID)=" & longID & ")" & "AND" & "((tblstartArrears.strID)='" & strID & "'" & "));"
- Set rt = dc.OpenRecordset(strsqli)
- startArrears = rt!starting
- arrears = startArrears
- rt.Close
- dc.Close
- Set rt = Nothing
- Set dc = Nothing