ShowAll Records

[Bre-x]

how can i find if a form is showing all records?

I am using a sub to move a pop up form from
my main form, but i goes into a loop and then crash it.

if showallrecords = true
do noting
else
DoCmd.ShowAllRecords
end if

something like that i guess?

thnks

Sub LotFindme()
Dim rs As Object
DoCmd.ShowAllRecords
Set rs = Me.Recordset.Clone
rs.FindFirst "[LotID] = " & Str(Form_Main.TLotID)
Me.Bookmark = rs.Bookmark
End Sub