I'm getting the err msg Err in JOIN. I re-created the SQL in a query and except for the HAVING statement our code is identical.
strSQL = "SELECT max(Cost) AS MaxPhoto16x20, [Deal Detail].Item " _
& "FROM (Clients " _
& "JOIN Deals on Clients.ID = Deals.ClientId) " _
& "JOIN [Deal Detail] on Deals.Dealid = [Deal Detail].Dealid " _
& "WHERE Clientid = " & sID & " AND Item = '16x20 Photo'" _
& " GROUP BY [Deal Detail].Item, Clients.Id "
Set rst = db1.OpenRecordset(strSQL)
If rst.RecordCount > 0 Then
sItem = rst!MaxPhoto16x20
GoSub Write_Recs
End If
Any Idea what it is I'm missing?.
Trudye
strSQL = "SELECT max(Cost) AS MaxPhoto16x20, [Deal Detail].Item " _
& "FROM (Clients " _
& "JOIN Deals on Clients.ID = Deals.ClientId) " _
& "JOIN [Deal Detail] on Deals.Dealid = [Deal Detail].Dealid " _
& "WHERE Clientid = " & sID & " AND Item = '16x20 Photo'" _
& " GROUP BY [Deal Detail].Item, Clients.Id "
Set rst = db1.OpenRecordset(strSQL)
If rst.RecordCount > 0 Then
sItem = rst!MaxPhoto16x20
GoSub Write_Recs
End If
Any Idea what it is I'm missing?.
Trudye