P
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
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