I've used an SQL query in some VBA code I've written. I don't know much about SQL so I kinda pieced it together with help from the Internet. Now, when the query is run I get the error message "Runtime Error '3075': Extra ) in query expression '(((tblDeployment.UpdateID
I've included the whole code section so that you can see what I'm doing. I've tried removing a close bracket from before and after the equals sign but then I just get a syntax error when I run the query.
What am I doing wrong?
If Me.Dirty = False Then
'This section counts the number of servers to which the update has been deployed
Dim rs As DAO.Recordset
Dim sSQL As String
sSQL = "SELECT Count(tblDeployment.Computer) AS CountOfComputer "
sSQL = sSQL & "FROM tlkComputers INNER JOIN tblDeployment ON tlkComputers.Computer=tblDeployment.Computer "
sSQL = sSQL & "WHERE (((tblDeployment.DeploymentType) = 'Live') And ((tlkComputers.Group) = 'Servers')) "
sSQL = sSQL & "GROUP BY tblDeployment.UpdateID HAVING (((tblDeployment.UpdateID)= " & Forms!frmUpdatesWrapper!frmUpdates!txtUpdateID & "));"
Set rs = CurrentDb.OpenRecordset(sSQL)
If Not (rs.BOF And rs.EOF) Then
Me.txtNumberDeployed = rs!CountOfComputer
'your query did not return any records.
Set rs = Nothing