Help with Combo box menu item

[Midiman69]

Hi
I am trying to use a unbound combo box on a menu form to open another Form
and filter records according to the combo box selection and failing

miserably!

I am using the following - this opens the form but does not apply the

filter.
Private Sub Cbosearch_After Update()

If IsNull(Me.Cbose arch) Then

Me.FilterOn = False

Else

Me.Filter = "[partype] = " & Me!Cbosearch

Me.FilterOn = True

DoCmd.OpenForm "frmresisto r"

End If

End Sub

How to I get the above to apply the filter and just display the

records I selected.

Any help would be very much appreciated.

Dave

[Rick Brandt]

"Midiman69 @hotmail.com>" <midiman69<NOSP AM> wrote in message
news:d4******** ***********@new s.demon.co.uk.. .

Hi
I am trying to use a unbound combo box on a menu form to open another Form and
filter records according to the combo box selection and failing

miserably!

I am using the following - this opens the form but does not apply the

filter.
Private Sub Cbosearch_After Update()

If IsNull(Me.Cbose arch) Then

Me.FilterOn = False

Else

Me.Filter = "[partype] = " & Me!Cbosearch

Me.FilterOn = True

DoCmd.OpenForm "frmresisto r"

End If

End Sub

How to I get the above to apply the filter and just display the

records I selected.

Any help would be very much appreciated.

Your manipulating the filter of the menu form. That accomplishes nothing for
the form you intend to open. The OpenForm method includes an argument for
applying a filter to the form being opened. That is what you need to use.

DoCmd.OpenForm "frmresistor",, ,"[partype] = " & Me!Cbosearch

(double check help for the number of commas)

--
I don't check the Email account attached
to this message. Send instead to...
RBrandt at Hunter dot com

[Midiman69]

Hi

Many thanks for the reply.

When I use you code DoCmd.OpenForm "frmresistor",, ,"[partype] = " &
Me!Cbosearch
a dialogue box "Enter Parameter Value" is displayed. If I enter the
parameter the form opens filtered, if not it just displays the un filtered
form.
If possible, coule you suggest were I am going wrong, and how I can apply
the filter directly from the combo box.
Thanks again

Dave

"Rick Brandt" <ri*********@ho tmail.com> wrote in message
news:U%******** *****@newssvr11 .news.prodigy.c om...

"Midiman69 @hotmail.com>" <midiman69<NOSP AM> wrote in message
news:d4******** ***********@new s.demon.co.uk.. .

Hi
I am trying to use a unbound combo box on a menu form to open another
Form and filter records according to the combo box selection and failing

miserably!

I am using the following - this opens the form but does not apply the

filter.
Private Sub Cbosearch_After Update()

If IsNull(Me.Cbose arch) Then

Me.FilterOn = False

Else

Me.Filter = "[partype] = " & Me!Cbosearch

Me.FilterOn = True

DoCmd.OpenForm "frmresisto r"

End If

End Sub

How to I get the above to apply the filter and just display the

records I selected.

Any help would be very much appreciated.

Your manipulating the filter of the menu form. That accomplishes nothing
for the form you intend to open. The OpenForm method includes an argument
for applying a filter to the form being opened. That is what you need to
use.

DoCmd.OpenForm "frmresistor",, ,"[partype] = " & Me!Cbosearch

(double check help for the number of commas)

--
I don't check the Email account attached
to this message. Send instead to...
RBrandt at Hunter dot com