Comprobar que campo existe Access

[asarte82]

Hola.

Quero comprobar si una consulta devulve valores para en caso negativo mostrar un mensaje.
y cuando intento almacenar en una variable una consulta, se guarda entera y no puedo hacer la comprobacion con un if. ¿Como tendria que hacerlo?

Ej.

Variable = "SELECT campo FROM Tabla WHERE combo=" & Me.combo

if Variable = Null then

msgbox ("fdgdfgf")

end if

Ayuda

[Taribo007]

Utiliza la funcion agregada de dominio dcount, lo que estas haciendo es gusradr un texto, nada mas:

If DCount("*", "Tabla", "Combo='" & Me.Combo & "'") = 0 Then

MsgBox ("La consulta no devuleve ningun registro")

End If

Si el campo Combo de la tabla "tabla" es numerico y no de texto, quita lo rojo.

Un saludo

[asarte82]

Gracias por la respuesta, mi consulta es esta:
valor = "SELECT HISTORICO.*, LOCALIDADES.DENOM_OFICIAL FROM " & _
'"HISTORICO INNER JOIN LOCALIDADES ON HISTORICO.CODIGO=LOCALIDADES.CODIGO where HISTORICO.CCATEGOR_A=" & Me.combo2

Y he hecho lo que me dices:

If DCount("HISTORICO.*, LOCALIDADES.DENOM_OFICIAL", "HISTORICO INNER JOIN LOCALIDADES ON HISTORICO.CODIGO=LOCALIDADES.CODIGO", "Combo2='" & Me.combo2 & "'") = 0 Then

MsgBox ("sdfsds")

End If

Pero no me finciona, que puede ser...

[Taribo007]

Mira en la ayuda la sintaxis de la funcion dcount. Prueba a hacer lo siguiente:

1. Crea una nueva consulta con esta sql:
SELECT HISTORICO.*, LOCALIDADES.DENOM_OFICIAL FROM
HISTORICO INNER JOIN LOCALIDADES ON HISTORICO.CODIGO=LOCALIDADES.CODIGO

2. Guardala y llamala Consulta1

3.Luego aplica el docunt asi:

If DCount("*", "Consulta1", "CCATEGOR_A=" & Me.combo2) = 0 Then

MsgBox ("sdfsds")

End If

Un saludo

[asarte82]

Funciona perfectamente, gracias por tu ayuda de verdad.
Saludos.