Z
zat via AccessMonster.com
I have a form that has three Option Groups that the user can select from to
produce a report. The first Option Group is TYPE (Frame73): Incoming,
Outgoing, TD. The second Option Group is STATUS (Frame 82): Open, Closed,
Not Required, All. The third Option Group is FILTER (Frame105): None, Admin,
Organization, Delegate. The only option group I'm having problems with is
the FILTER. Currently the user is selecting a filter option and having to
input the specific name into a window created from a query. I would like to
create a pull down for the user but am not sure how to do this. Thanks for
any help you can give me. This is part of the current code:
If Me.Frame73 = 1 And Me.Frame82 = 1 And Me.Frame105 = 1 Then
strWhere = "[dtmInRecDate]>=#" & Me.ActiveXCtl27 & "# And [dtmInRecDate]
<=#" & ActiveXCtl28 & "#"
DoCmd.OpenReport "rptInOpen", acViewPreview, , strWhere
ElseIf Me.Frame73 = 1 And Me.Frame82 = 1 And Me.Frame105 = 3 Then
strWhere = "[dtmInRecDate]>=#" & Me.ActiveXCtl27 & "# And [dtmInRecDate]
<=#" & ActiveXCtl28 & "#"
DoCmd.OpenReport "rptInOpenFilter", acViewPreview, , strWhere
produce a report. The first Option Group is TYPE (Frame73): Incoming,
Outgoing, TD. The second Option Group is STATUS (Frame 82): Open, Closed,
Not Required, All. The third Option Group is FILTER (Frame105): None, Admin,
Organization, Delegate. The only option group I'm having problems with is
the FILTER. Currently the user is selecting a filter option and having to
input the specific name into a window created from a query. I would like to
create a pull down for the user but am not sure how to do this. Thanks for
any help you can give me. This is part of the current code:
If Me.Frame73 = 1 And Me.Frame82 = 1 And Me.Frame105 = 1 Then
strWhere = "[dtmInRecDate]>=#" & Me.ActiveXCtl27 & "# And [dtmInRecDate]
<=#" & ActiveXCtl28 & "#"
DoCmd.OpenReport "rptInOpen", acViewPreview, , strWhere
ElseIf Me.Frame73 = 1 And Me.Frame82 = 1 And Me.Frame105 = 3 Then
strWhere = "[dtmInRecDate]>=#" & Me.ActiveXCtl27 & "# And [dtmInRecDate]
<=#" & ActiveXCtl28 & "#"
DoCmd.OpenReport "rptInOpenFilter", acViewPreview, , strWhere