I have a combo box that picks a vendor.  I have a "list box" that I want to
list all the products for the vendor in my combo box.
I've looked at similar listings but none really answers the how to do this.
Does anyone know how I can structure this with code?

I am trying to get code to work that identifies error messages so I can
suppress certain messages. Using the following code, I get a Run-Time error
'91' Object variable or With block veriable not set. The offending line of
code is:

I am trying to pass three variables to a function. In the sub I dim each as
a string, I set them to the appropriate value then I use the the next line
to call the function Test1. The variables are of course V1,V2,V3.
Test1(V1,V2,V3)

Is there a way to intercept and change the message
"You cannot assign a value to this"
when a record is being edited by another user?
If you didnt know what was going on, it could be kinda misleading.

I have a form which has a button which opens a report.
I want to make the button refresh and then open the report.
Thanks.
The code for the button is:

I am using
For intX = intCount To 0 Step -1
        If Forms(intX).name <> "excessidle" Then
               If Forms(intX).name <> "welcome" Then

Hi John
Just wanted to say thank you for your help with MondayofWeek function
Hope I havent broken too many rules by starting a new thread, but my
original post is now on page 2 and I wanted you to know I had replied.

I am trying to create an on time delivery report.  I have a query with
order number, ship date, due date and daydiff:[due date]-[ship date]
sorted by Division
My report needds to look like this:

I am having a problem with the "dropped-down" state of a combobox. It occurs
in a "not in list" situation. Code is reproduced below:
I found a possible solution by googling, which involves moving the focus
from the combobox, and then moving the focus back to the combobox (see

How can I create a flashing / blinking label?  I thought there might be a
simple property somewhere / somehow to do this, but I can't find anything.
Is my only recourse to set a form timer event and change the color with a
very short window?  Seems like a lot to go through for ...

How do I set a subform record source to a query?
I have tried this..
Me.subForm.Form.RecordSource = Query![qryName]
Thanks

I need my list box to populate with records belonging to my combo drop
down.  The drop down is based on companyid.  My code is not working.  The
list box is always blank.  Here's my code:
Private Sub Combo170_AfterUpdate()

Hy group
I've a great number of labels, all called lbl1,lbl2,lbl3,... When the form
opens, there set to visible = No.  When running a code, I've in a loop a
counter who has the value 1, 2, 3, ... When the counter has the value 1, the

I am trying to set my main form (frmMain) to be invisible after a certain
time and the start-up form (frmStart) where a user input is required should
come up - lets say after 5 minutes of nothing happening..., maybe
I 've set the timer interval to 50000 in the Form_Current event of ...

I have a query that takes a while to run. I would like to display a form
while it is compiling so that the users do not think the system has frozen.
I am having trouble with an IsLoaded statement..........
I have written the following code: