Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Function GetPlanRecordCount(strCUID As String) As Long Dim rst As DAO.Recordset Dim lngRecordCount As Long Dim dbs As DAO.Database Dim strSQL As String strSQL = "SELECT * FROM Savings INNER JOIN Projects ON Savings.Proj_ID = Projects.Proj_ID" strSQL = strSQL & " WHERE Savings.CUID = '" & strCUID & "'" Set dbs = CurrentDb() Set rst = dbs.OpenRecordset(strSQL, dbOpenDynaset) If rst.AbsolutePosition > -1 Then rst.MoveLast lngRecordCount = rst.RecordCount Else lngRecordCount = 0 End If GetPlanRecordCount = lngRecordCount End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.