Geordie2008
Registered User.
- Local time
- Today, 23:10
- Joined
- Mar 25, 2008
- Messages
- 177
I am trying to filter a form on two fields (one being a wildcard)
For example where:
Last name = smith
First name begins with = m*
The code falls over at:
stLinkCriteria = "[Last_Name]=" & "'" & Me![StaffLastName] & "'" And "[First_Name] Like " & " '" & Me![StaffFirstName] & "'*"
Can anyone see my error?
Thanks,
Mand
Option Compare Database
Private Sub cmdOpenStaffDetails_Test_Click()
'On Error GoTo Err_cmdOpenStaffDetails_Test_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmStaffDetails"
stLinkCriteria = "[Last_Name]=" & "'" & Me![StaffLastName] & "'" And "[First_Name] Like " & " '" & Me![StaffFirstName] & "'*"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Forms(stDocName).Modal = True
Exit_cmdOpenStaffDetails_Test_Click:
Exit Sub
Err_cmdOpenStaffDetails_Test_Click:
MsgBox Err.Description
Resume Exit_cmdOpenStaffDetails_Test_Click
End Sub
For example where:
Last name = smith
First name begins with = m*
The code falls over at:
stLinkCriteria = "[Last_Name]=" & "'" & Me![StaffLastName] & "'" And "[First_Name] Like " & " '" & Me![StaffFirstName] & "'*"
Can anyone see my error?
Thanks,
Mand
Option Compare Database
Private Sub cmdOpenStaffDetails_Test_Click()
'On Error GoTo Err_cmdOpenStaffDetails_Test_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmStaffDetails"
stLinkCriteria = "[Last_Name]=" & "'" & Me![StaffLastName] & "'" And "[First_Name] Like " & " '" & Me![StaffFirstName] & "'*"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Forms(stDocName).Modal = True
Exit_cmdOpenStaffDetails_Test_Click:
Exit Sub
Err_cmdOpenStaffDetails_Test_Click:
MsgBox Err.Description
Resume Exit_cmdOpenStaffDetails_Test_Click
End Sub