Filtering

[Dannybe2]

I am using the following code:

Private Sub SolveH_Click()

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Issues"

If Not IsNull(High) Then
stLinkCriteria = "[Priority]=" & "'" & Me![HighF] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If

End Sub

I want to change the filter so that as well as the priority being filtered, the status = 'Open' and I can't get it to do it. Do I use an 'And' command or a '&'?

 

[rbowes]

You use AND:

Private Sub SolveH_Click()

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Issues"

If Not IsNull(High) Then
stLinkCriteria = "[Priority]=" & "'" & Me![HighF] & "' AND [Status] = 'Open'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If

End Sub

Good Luck

Bob