I can't see your image. Just tell me what the error message is. You can upload images on here now because you've passed the 10 posts threshold. Click the "GO ADVANCED" button and you will see MANAGE ATTACHMENTS. Browse, Upload, Close and Reply.
You are using Expression under Field1. Change Expression to Group By.
Did you change anything in the code that you placed in a module?
Do you know what the Immediate Window is?
If strOrderBy <> vbNullString Then
strSql = strSql & " ORDER BY " & strOrderBy
End If
[COLOR=Red] Msgbox strSql[/COLOR]
Set rs = DBEngine(0)(0).OpenRecordset(strSql, dbOpenDynaset)
Go back to the code and put the line highlighted in red between those lines:
Run the query and show what the message box displays.Code:If strOrderBy <> vbNullString Then strSql = strSql & " ORDER BY " & strOrderBy End If [COLOR=Red] Msgbox strSql[/COLOR] Set rs = DBEngine(0)(0).OpenRecordset(strSql, dbOpenDynaset)
Hmmm... I think it's about time I see a copy of your database
My mistake:
Code:Expr1: ConcatRelated("FIELD2","origTABLE","[DATE] = [COLOR=Red]#[/COLOR]" & [DATE] & "[COLOR=Red]#[/COLOR] AND [FIELD1] = '" & [FIELD1] & "'")
You should not include Field2 in your query.
You've done it the wrong way round. It should be as attached.
You're welcome
Try putting the code in the Control Source of a textbox instead of inside the query.