Macro automatically runs report

Yes, it is possible.
You can tie a hotkey to a macro, and have it run vba code.
I have a macro called AUTOKEYS
In that macro:

MacroName {F10}
Action OpenReport

Now instead of run report you could have it run code. And through vba your possibilities are extremely large.

Hope this helps,

Dan

This can be extremely complex.

I don't really use filters anymore, cause it pulls the full datasheet and slows things down.

I change the recordsource of the form or report with vba/SQL.

Here is a quick example:

I have "Dan" typed in the searchbox and Select my Active Contacts filter.

It changes my recordsource from:

Private Sub ApplyAdvancedFilter()
    Dim strSQL As String

On Error GoTo HandleError
    
    strSQL = "SELECT * FROM qryContactsExtended"
    
    If Not IsNull(Me.SearchBox) And Not IsNull(Me.cboFilters) Then
        strSQL = strSQL & " Where (ContactID Like '*" & Me.SearchBox & "*'" & _
                        " Or LastName Like '*" & Me.SearchBox & "*'" & _
                        " Or FirstName Like '*" & Me.SearchBox & "*'" & _
                        " Or [E-mailAddress] Like '*" & Me.SearchBox & "*'" & _
                        " Or Company Like '*" & Me.SearchBox & "*'" & _
                        " Or JobTitle Like '*" & Me.SearchBox & "*'" & _
                        " Or BillingZip Like '*" & Me.SearchBox & "*'" & _
                        " Or BillingCity Like '*" & Me.SearchBox & "*'" & _
                        " Or BillingState Like '*" & Me.SearchBox & "*'" & _
                        " Or BillingCountry Like '*" & Me.SearchBox & "*'" & _
                        " Or [File As] Like '*" & Me.SearchBox & "*'" & _
                        " Or [Contact Name] Like '*" & Me.SearchBox & "*'" & _
                        " Or BusinessPhone Like '*" & Me.SearchBox & "*'" & _
                        " Or HomePhone Like '*" & Me.SearchBox & "*'" & _
                        " Or MobilePhone Like '*" & Me.SearchBox & "*'" & _
                        " Or FaxNumber Like '*" & Me.SearchBox & "*'" & _
                        " Or Notes Like '*" & Me.SearchBox & "*'" & _
                        " Or AccountNumber Like '*" & Me.SearchBox & "*')" & _
                        " AND " & LookupListFormFilter(Me.cboFilters)
        Me.cmdShowAll.Enabled = True
    ElseIf Not IsNull(Me.SearchBox) Then
        strSQL = strSQL & " Where ContactID Like '*" & Me.SearchBox & "*'" & _
                        " Or LastName Like '*" & Me.SearchBox & "*'" & _
                        " Or FirstName Like '*" & Me.SearchBox & "*'" & _
                        " Or [E-mailAddress] Like '*" & Me.SearchBox & "*'" & _
                        " Or Company Like '*" & Me.SearchBox & "*'" & _
                        " Or JobTitle Like '*" & Me.SearchBox & "*'" & _
                        " Or BillingZip Like '*" & Me.SearchBox & "*'" & _
                        " Or BillingCity Like '*" & Me.SearchBox & "*'" & _
                        " Or BillingState Like '*" & Me.SearchBox & "*'" & _
                        " Or BillingCountry Like '*" & Me.SearchBox & "*'" & _
                        " Or [File As] Like '*" & Me.SearchBox & "*'" & _
                        " Or [Contact Name] Like '*" & Me.SearchBox & "*'" & _
                        " Or BusinessPhone Like '*" & Me.SearchBox & "*'" & _
                        " Or HomePhone Like '*" & Me.SearchBox & "*'" & _
                        " Or MobilePhone Like '*" & Me.SearchBox & "*'" & _
                        " Or FaxNumber Like '*" & Me.SearchBox & "*'" & _
                        " Or Notes Like '*" & Me.SearchBox & "*'" & _
                        " Or AccountNumber Like '*" & Me.SearchBox & "*'"
        Me.cmdShowAll.Enabled = True
    ElseIf Not IsNull(Me.cboFilters) Then
        strSQL = strSQL & " Where " & LookupListFormFilter(Me.cboFilters) 'This looks up the string from my filters management form/dataset.
        Me.cmdShowAll.Enabled = True
    End If

ApplyFilter:
    Me.RecordSource = strSQL
    Me.Requery
    
ExitHere:
    Exit Sub
    
HandleError:
    MsgBox Err.Description
    Resume ExitHere
    
End Sub

It would return any record that is not marked as inactive and has Dan someone in one of the searched fields, ordered by ContactID(you can't see this part of the statement it was brought in via the lookuppart.
Not sure this will help you,

Dan

P.S. It can get extremely complex if you don't know vba/sql very well.

One possible simpler solution would be to pass the current forms filter property to the report and apply it there. This isn't something that I use, so I didn't test it, but here are the ideas.

Filter Property
http://office.microsoft.com/en-us/access-help/filter-property-HA001232736.aspx

OpenReport Method
http://msdn.microsoft.com/en-us/libr...ice.12%29.aspx

The only issue is passing only the filter will not do in itself what you want. You have to pass the OrderBy property also and add it to the report.

Hope this helps,

Dan