Access - Consulta

Necesito hacer lo siguiente....

En el evento clic

Ejecuto la consulta

Si hay resultados
Muestro la tabla
Si no hay resultados
Msgbox "no hay resultados"
Fin si

Como Indico ese "si no hay resultados"???
Es posible???

Gracias

Hay dos formas de hacerlo: Hacer la consulta por codigo, o bien que la consulta este asignada a un subformulario:

---------Hacer la consulta por codigo
Private BotonComando_Click()

Dim RsGrupo As DAO.Recordset

Set RsGrupo = CurrentDb.OpenRecordset("Select Nombre From Users Where Usuario Like '" & Txt_Usuario & "'") ' Es una consulta X

'Comprueba si la consulta arrojó algo
If RsGrupo.RecordCount > 0 Then 'Si tiene resultados
'Haces lo que necesitas
G = RsGrupo!Grupo

Else
MsgBox "No hay Resultados.", vbInformation, " Aviso"

End If

End Sub

---------------------- La consulta esta asignada a un subformulario:
Private BotonComando_Click()
Dim Str as DAO.Recordset

Set Str= subformulario.Form.Recordset

if Str.RecordCount>0 then
'Si tiene registros la consulta
Else

Hay dos formas de hacerlo: Hacer la consulta por codigo, o bien que la consulta este asignada a un subformulario:

---------Hacer la consulta por codigo
Private BotonComando_Click()

Dim RsGrupo As DAO.Recordset

Set RsGrupo = CurrentDb.OpenRecordset("Select Nombre From Users Where Usuario Like '" & Txt_Usuario & "'") ' Es una consulta X

'Comprueba si la consulta arrojó algo
If RsGrupo.RecordCount > 0 Then 'Si tiene resultados
'Haces lo que necesitas
G = RsGrupo!Grupo

Else
MsgBox "No hay Resultados.", vbInformation, " Aviso"

End If

End Sub

---------------------- La consulta esta asignada a un subformulario:
Private BotonComando_Click()
Dim Str as DAO.Recordset

Set Str= subformulario.Form.Recordset

if Str.RecordCount>0 then
'Si tiene registros la consulta
Else
'No tiene registros
End If

End Sub

Espero que te sirva!!!!

Muchas gracias por la respuesta.
Esta tarde lo probaré, pero ya veo por donde continuar.
Me perdia en "if Str.RecordCount>0 then".
Cuando lo pruebe te cuento...
Más gracias....