VBA for records based on cbo Value List

[libraccess]

If I want to open a report and only include records based on values from a cbo based on a value list.
Say I only have 3 records "Male", "Female", "Undecided" for example or Active, Dormant, Extinct
If I want the report to just show Male records
DoCmd.OpenReport "rptActive", acViewPreview, ,= -----------------------
can somebody please tell me code that will work

(at the moment the DB I have taken over has duplicated reports (identical) with queries for each with the condition
=Active or <> Active but having two reports where one will do is a bit wasteful. and there are 3 instances of this.
Thanks

[Rod]

"Male", "Female", "Undecided"

Does one get to chose one's gender these days?

The fourth argument of the OpenReport method is an optional WHERE clause (without the keyword WHERE). Looking at your example it seems you want to begin this clause with a comparison; this will not work. OK, let's try to get you going in the right direction and let's also assume the combo box is called cboReportType and that IT CONTAINS A STRING VALUE. Your DoCmd statement will then look something like this:

DoCmd.OpenReport "rptActive", acViewPreview, , "Gender = '" & Me.cboReportType & "'"

Use your own names as appropriate.

[libraccess]

how can i consider being confused by gender when VBA is in my lap
So while I was waiting for your answer I have on my report control menu under this reports button put a cbo which is visible false on current, btn click cbo visible then cbo after update
Private Sub cboEmplStatus_AfterUpdate()
If IsNull(Me.cboEmplStatus) Then
MsgBox "Please select something first."
Me.cboEmplStatus.SetFocus
Else
DoCmd.OpenReport "rptEmplList", acViewPreview, (and I've been waiting for your answer to fill this bit in)
End If
End Sub

And lo it arrived and I basked in the sunshine of success
just what i wanted thanks

[Rod]

DoCmd.OpenReport "rptEmplList", acViewPreview, (and I've been waiting for your answer to fill this bit in)

You're missing a comma (after acViewPreview)!