Make selection from two list boxes

[margot]

Hello, I have two list boxes; the first one has First Names and the second list box has Last Names. I want the user to be able to select the first and last name from each text box and a Report will be generated. I wrote the code below, but it does not work. Can someone halp me to figure this out. I need it badly.
THank you in advance.

[code=vb]
Private Sub cmdName_Click()
Dim pstCriteria As String

If IsFirst([LstLastName]) And IsLast([LstFirstName]) Then
pstrCriteria = "[LastName] >= # " & [FirstName] & "# and [FirstName]<=#" & [LastName] & "#"

DoCmd.OpenReport "rptName", acViewPreview, , pstrCriteria


End If
[/End]

[ADezii]

Hello, I have two list boxes; the first one has First Names and the second list box has Last Names. I want the user to be able to select the first and last name from each text box and a Report will be generated. I wrote the code below, but it does not work. Can someone halp me to figure this out. I need it badly.
THank you in advance.

 
Private Sub cmdName_Click()
Dim pstCriteria As String
 
If IsFirst([LstLastName]) And IsLast([LstFirstName]) Then
              pstrCriteria = "[LastName] >= # " & [FirstName] & "# and [FirstName]<=#" & [LastName] & "#"
 
DoCmd.OpenReport "rptName", acViewPreview, , pstrCriteria
 
 
  End If
 

'This is the correct syntax, I have no idea of what you are trying to accomplish in the If...End If Clause:

Dim strCriteria As String
 
strCriteria = "[FirstName] = '" & Me![LstFirstName] & "' And [LastName] = '" & Me![LstLastName] & "'"
DoCmd.OpenReport "rptName", acViewPreview, , strCriteria
 

[margot]

'This is the correct syntax, I have no idea of what you are trying to accomplish in the If...End If Clause:

Dim strCriteria As String
 
strCriteria = "[FirstName] = '" & Me![LstFirstName] & "' And [LastName] = '" & Me![LstLastName] & "'"
DoCmd.OpenReport "rptName", acViewPreview, , strCriteria
 

Thank you sir. It works great.
Best.

[ADezii]

Thank you sir. It works great.
Best.

Happy that it worked out for you.