S
Sherwood
Greetings,
I have the following code and I am trying to return a result of two numeric
variables being divided. However, a "0" is being returned for some reason.
I have dimensioned all variables as "double", but this still has not resolved
the issue. Any suggestions?
Sub Return_All_Turning_Point_Loans()
Dim lngRecordCount As Double
Dim lngSurveysReturned As Double
Dim db As DAO.Database
Dim PercentageofSurveysReturned As Double
Dim rs As ADODB.Recordset
Dim rs2 As DAO.Recordset
Dim strSQL As String
Dim strSQL2 As String
Set db = CurrentDb
Set rs = RunSPReturnRSet
(moddbHelper.EDACConnStr, "get_AllTurningPointLoans")
If Not rs.EOF Then
lngRecordCount = rs.RecordCount
strSQL = "SELECT * from [Survey Results]"
Set rs2 = db.OpenRecordset(strSQL, dbOpenDynaset)
rs2.MoveLast
If Not rs2.EOF Then
lngSurveysReturned = rs2.RecordCount
End If
' <-- "PercentageofSurveysReturned" returns a "0" every time.
"lngSurveysReturned" contains '245', "lngRecordCount" contains '515'. -->
PercentageofSurveysReturned = lngSurveysReturned \ lngRecordCount
......
......
End If
End Sub
I have the following code and I am trying to return a result of two numeric
variables being divided. However, a "0" is being returned for some reason.
I have dimensioned all variables as "double", but this still has not resolved
the issue. Any suggestions?
Sub Return_All_Turning_Point_Loans()
Dim lngRecordCount As Double
Dim lngSurveysReturned As Double
Dim db As DAO.Database
Dim PercentageofSurveysReturned As Double
Dim rs As ADODB.Recordset
Dim rs2 As DAO.Recordset
Dim strSQL As String
Dim strSQL2 As String
Set db = CurrentDb
Set rs = RunSPReturnRSet
(moddbHelper.EDACConnStr, "get_AllTurningPointLoans")
If Not rs.EOF Then
lngRecordCount = rs.RecordCount
strSQL = "SELECT * from [Survey Results]"
Set rs2 = db.OpenRecordset(strSQL, dbOpenDynaset)
rs2.MoveLast
If Not rs2.EOF Then
lngSurveysReturned = rs2.RecordCount
End If
' <-- "PercentageofSurveysReturned" returns a "0" every time.
"lngSurveysReturned" contains '245', "lngRecordCount" contains '515'. -->
PercentageofSurveysReturned = lngSurveysReturned \ lngRecordCount
......
......
End If
End Sub