Thanks for the advice, dcx693, but:
RecordSource = ""
does not work...
Private Sub Report_Open(Cancel As Integer)
RecordSource = ""
DoCmd.OpenForm "TableChooser", acNormal, , , acFormPropertySettings, acDialog, ""
If IsNull(RecordSource) Then
DoCmd.Close acReport, Report, ...