Mensaje en consulta null

[epa2]

Hola amigos, espero que esten bien.

Quisiera hacerles una consulta, en una consulta de access que tengo con
parametros, ¿como podría para que cuando ejecute la consulta y me devuelve
registros = 0 (que la consulta esté vacía) me salga un mensaje?

He estado trasteando un poco el código para intentarlo con On Error GoTo
Err_Comando1000_Click

Err_Comando9_Click:
'MsgBox Err.Description
MsgBox "No existen registros para esta consulta"
Resume Exit_Comando9_Click

Pero no tengo ni idea de cómo hacer esto,,,

gracias de antemano
un saludo

[epa2]

Iniciado por epa2

Hola amigos, espero que esten bien.

Quisiera hacerles una pregunta, en una consulta de access que tengo con
parametros, ¿como podría para que cuando ejecute la consulta y me devuelve
registros = 0 (que la consulta esté vacía) me salga un mensaje?

He estado trasteando un poco el código para intentarlo con On Error GoTo
Err_Comando1000_Click

Err_Comando9_Click:
'MsgBox Err.Description
MsgBox "No existen registros para esta consulta"
Resume Exit_Comando9_Click

Pero no tengo ni idea de cómo hacer esto,,,

gracias de antemano
un saludo

[Taribo007]

Como ejecutas la consulta, por codigo??? Puedes poner el codigo completo???

Lo mas sencillo, es usar la funcion agregada de domio Dcount, si tienes la consulta guardada como un objeto, seria algo asi:

if dcount("*","NombreDeLaConsulta")=0 then
msgbox "No existen registros para esta consulta"
else
'lo que sea
end if

Dcount tambien acepta parametros, en su tercer argumento. Lo digo por si la consulta no la tienes guardada

un saludo

[epa2]

hola de nuevo.
Gracias por la rápida respuesta. La verdad es que no tengo mucha idea,, pero quizás este código me sirva, lo tengo que probar mañana.

En principio es una consulta de selección, tendré que abrir el editor de VBA y pegarle este código, ¿no?

por cierto, en el "else" del final, ¿que habría que poner para que en caso de encontrar registros me apareciera el formulario en cuestión, ¿lo dejo vacío?

gracias de antemano

nos vemos

[Taribo007]

En el else, si lo que quieres es que se habar un formulario, que supongo que tendra como origen de registro la consulta, pones la instruccion para abrir el form:

docmd.openform "NombreDelFormulario".

Como te comentaba, si la consulta la tienes guardada como un objeto en la BD, no es necesario que pegues nada en el editor de VBA, solo haz lo que te puse.

Cuando lo vayas probando, si no funciona, buscamos alternativas, pero esto es lo mas sencillo.

Un saludo

[epa2]

muchas gracias por la prontitud, mañana lo pruebo en la consulta que tengo guardada.

un saludo

[epa2]

amigo taribo, no pude probar el código cuando te he dicho, he estado muy atareado, pero en cuanto pueda te digo

gracias por estar ahí

un saludo