Run-Time Error '2001'

[sahaitu]

Can anyone help? I have the following situation:

I am trying to open a form blank so I set the for to data entry allowed and typed in the following code for my lookup combo box:


Dim strMyData As String
Dim strMyFilter As String
strMyData = Me![Combo42]
strMyFilter = "[LITID] = '" & strMyData & "'"
Me.DataEntry = False
Me.Filter = strMyFilter
***** Me.FilterOn = True ***** (highlighted)
End Sub


When I select from the combo box, I get the error "Run-Time Error '2001': You cancelled the previous operation. The Me.FilterOn = True portion of the code is then highlighted.

Can anyone help?

 

[lupins46]

If it's only a data entry form what is there to filter?

 

[Eupher]

sahaitu,

There is nothing obviously wrong with your code. What event is this code running under? Is there any other code running in the form's module? Is [LITID] string or numeric data type?

Ken S.

 

[PHV]

Me.Filter = strMyFilter
If Me.Dirty The Me.UnDo
Me.FilterOn = True

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886