Controlar apertura de un formulario con criterios

Hola,

desde un formulario F1 uso un botón de comando CmdEnviar que abre un formulario F2 con criterios, concretamente muestra los registros de una tabla T asociada F2 que cumplan una condición, por ejemplo, que el campo Id=4. El procedimiento sería así:

Private Sub CmdEnviar_Click()

Dim consulta as String

consulta="[Id]=4"

DoCmd.OpenForm "F2", , , consulta

End Sub

En el caso de que no exista ningún registro en la tabla T que cumpla esa condición, el formulario se abre en blanco. ¿Cómo puedo controlar esta situación, es decir, evitar que se abra el formulario F2 si está en blanco? Por ejemplo, advertir mediante un msgbox ("ningún registro en la consulta") y que entonces no se abra F2.

Gracias