Help with runtime error #459 (1 Viewer)

robertbwainwright · Jan 15, 2014

I'm getting a run time error (#459) when trying to run some code. This just started happening and the code ran fine 1/2 an hour ago. The code is filtering subform on load. Not sure what the heck has happened. Here is the code:

Code:

Private Sub Form_Load()
    '********************************************
    'Filter for the user
    '********************************************
 
    [frmCommoditySupplierSpend-SubForm1-ByVend].Form.Filter = "[Commodity Mgr]= '" & strComodityMgr & "'"
    [frmCommoditySupplierSpend-SubForm1-ByVend].Form.FilterOn = True
    '********************************************
 
End Sub

if I stop the code I have a similiar code running in a combo box and I'm getting the same error. PLEASE HELP! Not sure why this has all of a sudden happened.

bob fitz · Jan 15, 2014

If you're setting the filter for the form that is loading, you could try:

Code:

Private Sub Form_Load()
    '********************************************
    'Filter for the user
    '********************************************
 
    Me.Filter = "[Commodity Mgr]= '" & strComodityMgr & "'"
    Me.FilterOn = True
    '********************************************
 
End Sub

robertbwainwright · Jan 15, 2014

I created a new db and pasted all the objects from the old into the new. Problem solved. Not sure what happened.

Help with runtime error #459 (1 Viewer)

robertbwainwright

Registered User.

bob fitz

AWF VIP

robertbwainwright

Registered User.

Similar threads

Users who are viewing this thread