Using a wildcard to open a form

[Peter]

Hi all…I would like to use a wildcard in below code.
By entering ie “Ap†in [Apples] I would like to find all Apples
Apples green, Apples yellow etc etc. The target form is a continous form..

Thanks!


Private Sub_FindApplesMenu_Click()
On Error GoTo Err_Find ApplesMenu_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Fruits"

stLinkCriteria = "[Apples]=" & "'" & Me![Apples] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_FindApples_Click:
Exit Sub

Err_FindApplesMenuClick:
MsgBox Err.Description
Resume Exit_FindApplesMenuClick

End Sub

 

[Douglas J. Steele]

stLinkCriteria = "[Apples] Like '" & Me![Apples] & "*'"

 

[Peter]

Thank you Douglas!

stLinkCriteria = "[Apples] Like '" & Me![Apples] & "*'"


--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)

Hi all.I would like to use a wildcard in below code.
By entering ie "Ap" in [Apples] I would like to find all Apples
Apples green, Apples yellow etc etc. The target form is a continous form..

Thanks!


Private Sub_FindApplesMenu_Click()
On Error GoTo Err_Find ApplesMenu_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Fruits"

stLinkCriteria = "[Apples]=" & "'" & Me![Apples] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_FindApples_Click:
Exit Sub

Err_FindApplesMenuClick:
MsgBox Err.Description
Resume Exit_FindApplesMenuClick

End Sub