Dealing with someone else's VBA code here, but here is what I have:
Private Sub RvIIA_Click()
On Error GoTo Err_RvIIA_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "FrmIIA"
stLinkCriteria = "[Auditor]=" & "'" & Me![Auditor] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_RvIIA_Click:
Exit Sub
Err_RvIIA_Click:
MsgBox Err.Description
Resume Exit_RvIIA_Click
End Sub
I need this sub to open the form "FrmIIA" and sort the records by date for the "auditor" in question..