Looks good. For a report you can also use No Data.

Yeah. This saves having to use On Error Resume Next when the open command is cancelled.
You could, of course, set up custom messages depending on the value sent to the function.

Of course, if your only goal is to see whether or not there are any records, then you should use DLookup. It has much less overhead than DCount or DSum because those functions have to go thru all of the records in the table. Whereas, with DLookup, as soon as it gives you one ID, it's done. So, if your goal is to see if there are any records, just use DLookup. Faster. :)

Maybe...

Details

Function AreThereRecords(DataSource As String) As Boolean
    Dim ID As Variant
    ID = DLookup("*", DataSource)
    AreThereRecords = Not IsNull(ID)
End Function
Copy

Haven't tested this yet... but trying it now.

Blast... can't use * with Access. I think that's SQL Server only. So you'll have to send the ID...

Details

Function AreThereRecords(IDFieldName As String, DataSource As String) As Boolean
    
    Dim ID As Long
    
    ID = Nz(DLookup(IDFieldName, DataSource), 0)
    If ID = 0 Then
        AreThereRecords = False
    Else
        AreThereRecords = True
    End If
    
End Function
Copy

Works fine... but you've gotta send the ID...

Status "Are there customers: " & AreThereRecords("CustomerID", "CustomerT")

Hmmm.... what if the function could look up the first field name in the table...

Ahhh... now here we go...

Details

Function AreThereRecords(DataSource As String) As Boolean

    Dim rs As Recordset, FieldName As String

    Set rs = CurrentDb.OpenRecordset(DataSource)
    FieldName = rs.Fields(0).Name
    AreThereRecords = Not IsNull(DLookup(FieldName, DataSource))
    rs.Close
    Set rs = Nothing
    
End Function
Copy

That works like a champ. :)

So yes... this would make a cool video.

Richard, that last one was very very clever

Yeah, that's definitely going in a video. :)