Combo Criteria for Report

[misscrf]

I have a combo box on a form to filter a report that is (for this project) by attorney. You can choose which attorney to show the report for. This is the code that I have:

Private Sub cmdrptAttorney_Click()
On Error GoTo Err_cmdrptAttorney_Click

    Dim stLinkCriteria As String
    stLinkCriteria = Me.cboAttorney
   
    DoCmd.OpenReport gstrReportName, acPreview, , "CLeadAttorney =" & stLinkCriteria, acWindowNormal
    
Exit_cmdrptAttorney_Click:
    Exit Sub

Err_cmdrptAttorney_Click:
If Err <> 2501 Then
    msgbox Err.Description
  End If
    Resume Exit_cmdrptAttorney_Click
End Sub

The gstrReportName is passed as an openargs from a previous reports form.

CLeadAttorney is a field in tblCases and is linked to tblAttorney lookup, storing the attorney's ID.

cboAttorney, or stlinkcriteria, has the following rowsource as it is unbound:

SELECT tblCases.CLeadAttorney, tblAttorney.AttFirstName, tblAttorney.AttLastName FROM tblCases LEFT JOIN tblAttorney ON tblCases.CLeadAttorney=tblAttorney.AttTimeKeeper GROUP BY tblCases.CLeadAttorney, tblAttorney.AttFirstName, tblAttorney.AttLastName ORDER BY tblAttorney.AttLastName;

Can anyone help? Did I miss any needed information? Please let me know if I did.

Thank you,

misscrf

It is never too late to become what you could have been ~ George Eliot

 

[GingerR]

What's the problem?

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244. Basics at

http://r937.com/relational.html

 

[misscrf]

oh, sorry. When I choose an attorney, and click to get the report, I get a "data type mismatch in criteria expression."

Thanks!

misscrf

It is never too late to become what you could have been ~ George Eliot

 

[dhookom]

Your error message states "data type" yet you don't provide us with any information regarding the "data type" of your fields :-(

Duane MS Access MVP
[green]Ask a great question, get a great answer.[/green] [red]Ask a vague question, get a vague answer.[/red]
[green]Find out how to get great answers faq219-2884.[/green]

 

[misscrf]

nevermind. I figured it out. Thanks.

misscrf

It is never too late to become what you could have been ~ George Eliot