Opening Form

[baconroll]

Does anybody know how to open a form in Filter Mode? I have a form with lots
of records set to dataentry mode. I want the form to open and immediately go
to FilterByForm mode. Any help would be greatly appreciated.
Thanks

 

['69 Camaro]

I want the form to open and immediately go

to FilterByForm mode.

In the form's OnOpen( ) event, try:

Private Sub Form_Open(Cancel As Integer)

On Error GoTo ErrHandler

RunCommand acCmdFilterByForm

Exit Sub

ErrHandler:

MsgBox "Error in Form_Open( ) in" & vbCrLf & _
Me.Name & " form." & _
vbCrLf & "Error #" & Err.Number & vbCrLf & Err.Description
Err.Clear

End Sub

HTH.
Gunny

See http://www.QBuilt.com for all your database needs.
See http://www.Access.QBuilt.com for Microsoft Access tips.

(Please remove ZERO_SPAM from my reply E-mail address so that a message will
be forwarded to me.)
- - -
If my answer has helped you, please sign in and answer yes to the question
"Did this post answer your question?" at the bottom of the message, which
adds your question and the answers to the database of answers. Remember that
questions answered the quickest are often from those who have a history of
rewarding the contributors who have taken the time to answer questions
correctly.

 

[Allen Browne]

In Form_Open:
RunCommand acCmdFilterByForm

 

[baconroll]

Many thanks, that's great. Have followed your answer request.

 

[baconroll]

Sorry, just one more quick question:

How can I stop the form opening with the last filter searched for?
Thanks

 

['69 Camaro]

You're welcome! Many thanks!

Gunny

See http://www.QBuilt.com for all your database needs.
See http://www.Access.QBuilt.com for Microsoft Access tips.

 

[baconroll]

Thank you for this. Works fine. Is there anyway to clear the last filtered
search when the form opens as well?

 

[Ofer]

Before you running the filter, run me.Filter =""
Private Sub Form_Open(Cancel As Integer)

On Error GoTo ErrHandler
me.Filter =""
RunCommand acCmdFilterByForm

Exit Sub

ErrHandler:

MsgBox "Error in Form_Open( ) in" & vbCrLf & _
Me.Name & " form." & _
vbCrLf & "Error #" & Err.Number & vbCrLf & Err.Description
Err.Clear

End Sub

--
If I answered your question, please mark it as an answer. That way, it will
stay saved for a longer time, so other can benifit from it.

Good luck

 

['69 Camaro]

Try:

Private Sub Form_Open(Cancel As Integer)

On Error GoTo ErrHandler

RunCommand acCmdFilterByForm
RunCommand acCmdClearGrid

Exit Sub

ErrHandler:

MsgBox "Error in Form_Open( ) in" & vbCrLf & _
Me.Name & " form." & _
vbCrLf & "Error #" & Err.Number & vbCrLf & Err.Description
Err.Clear

End Sub

HTH.
Gunny

See http://www.QBuilt.com for all your database needs.
See http://www.Access.QBuilt.com for Microsoft Access tips.