I have a sql query that is calculating the sum of a column and I want this result to be displayed into a text box. I am 99% certain my sql code is correct, not sure why it is not displaying in the text box.
Private Sub Client_Id_AfterUpdate()
Me.Text372 = Date
Me.Text370 = User_Name()
Dim db As Database
Dim rs As DAO.Recordset ''Requires reference to Microsoft DAO x.x Library
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim rs3 As DAO.Recordset
Dim sSQL As String
Dim sSQL1 As String
Dim sSQL2 As String
Dim sSQL3 As String
sSQL2 = "Select Sum(Table.Column) as Result " & _
"FROM Table " & _
"WHERE (Table.[Column])= " & Date & " and (Table.[Column])= 'Tax Fund Checks Pending' and (Table.[Column])= " & Nz(Me.Client_ID) & _
" Group by (Table.[Column])"
Set db = CurrentDb
Set rs2 = db.OpenRecordset(sSQL2)
Debug.Print sSQL2
If rs2.RecordCount > 0 Then
Me.Text358 = rs2!Result
Else
Me.Text358 = ""
End If
Set rs2 = Nothing
Set db = Nothing