Hi, Allen.

I think I'm making progress.  I learned how I can get the name of the Active
Datasheet, so I wrote the small VBA function.  Now I just have to figure out
how I can get the function to be called when the user presses the "ReRun"
button.  For the button I have set

onAction="=modRerunActiveQuery.RerunActiveQuery"

where "modRerunActiveQuery" is the VBA module in which I have placed the
following Function:

************ Begin Function **********

Option Compare Database

Function RerunActiveQuery()
   ' This procedure will re-run the query associated
   '    with the Active Datasheet.
   '    DGR 2008 02 06
   
   Dim objDatasheet As Object
   Dim strActiveQuery As String
   Const conNoActiveDatasheet = 2484
   
   On Error GoTo RerunQuery_Err
   
   strActiveQuery = Screen.ActiveDatasheet.Name
   DoCmd.OpenQuery strActiveQuery, acViewLayout, acReadOnly
   
RerunActiveQuery_Bye:
   Exit Function
RerunQuery_Err:
   If Err = conNoActiveDatasheet Then
       MsgBox "No data sheet is active.", vbExclamation
       Resume RerunActiveQuery_Bye
   End If

End Function

************* End Function ************

I seem to be getting an error that it cannot find the Function.

The error message is:
Microsoft Office Access can't find the name "modRerunActiveQuery" you
entered in the expression.  You may have specified a control that wasn't on
the current object without specifying the correct form or report context.

Now I'll try to figure out how to get around this...