Form Filter Causing slight problem

[cowboy]

I have a form that when I open it from another form with:

Dim str1 As String
str1 = Me.cmbArea


DoCmd.OpenForm "DIForm", , , "[Area] ='" & str1 & "'"

Problem:
this works great but if I try opening it by itself it still has this same filter that was last used.

What I want:
I want the Form to open with no filter or a default filter if I just open the form.

Things I have tried:
1 - On Form_Close I tried
Me.Filter = "[MN12] <> """""
I set a break point and it sets the filter to this when I close the form but then when I open it back up it has the previous filter again.
2 - Setting the Filter property field to
[MN12] <> ""
This works if I set it manually in the property table save close form then reopen. Once I open the form from my other form with the filter it goes back to the same problem.

Any ideas would be appreciated, thanks.

[cowboy]

ok sometimes it does it and some times it doesnt, I am confused. It seems that the actual records work correctly but the listbox I have using the following code uses an old filter.

var2 = "SELECT InspectionsDI.ID, InspectionsDI.[Manhole Number (12)] FROM InspectionsDI WHERE InspectionsDI." & Me.Filter & " ORDER BY InspectionsDI.[Manhole Number (12)];"
Me.lstDI.RowSource = var2
Me.lstDI = Me!ID

[maximus]

Well have you put any filter condition in the onLoad event of the form. This may cause the problem that whenever the form opens it opens it displays certain filtered records. check the record source of the form too. if it is a query check if you have put any conditions to it. If you can elaborate a little on these problem it will be more helpful. may if possible upload you db in access 2000 format.

[cowboy]

It is really weird because I do something specific and it triggers it and then do the exact same thing and it doesnt happen so until I can get a better hold on the problem I am just gonna solve this thread and if I figure out the problem I will post a new one.

Thanks for the help.