Access - Función IsNothing

Hola.
Uso Access 97. Desde VB necesito saber si una variable de tipo, por ejemplo, Database es o
no Nothing (es decir si se ha establecido a algún valor o no). En la ayuda aparece, en
el tema IsObject, que existe la función IsNothing para saber si una variable es o no Nothing,
pero la función no existe (en la ayuda no la describen, y si se usa el programa no compila).
¿Cómo puedo solucionar el problema?

Muchas gracias.

No estoy muy seguro, pero creo que quizás te pueda ayudar la función IsNull.

Un saludo

Miguel Angel Vallejo Gato
[email protected]

Te voy a explicar una forma alternativa:
si haces referencia a una variable de objeto en tu código y ésta no está establecida con la instrucción SET VariableObjeto = Objeto
(por ejemplo set Bd = CurrentDb)
se generará un error que puedes capturar con tu control de errores, por ejemplo un goto err_Form
err_Form:
msgbox Err & $Error
exit function

entonces te mostrará un mensaje de error d´çandote el número del error, si al control de errores le añades un Select Case Err
podrás ejecutar el código que quieras cuando el error suceda, es un parche pero funciona, si necesitas más explicaciones, escribeme...

Esa funcion viene en un conjunto de herramientas que contiene un cd que viene con un manual de acces
que tengo. si alguien se interesa que me escriba..

Ahi te va la Funcion

Function IsNothing(varToTest As Variant) As Integer
' Hace una revisión para una negación lógica basada en un tipo de datos
' Vacío (Empty) y Nulo (Null) = Nada (Nothing)
' Número (Number) = 0 es Nothing
' Cadena de caracteres de longitud cero (Zero length string) es Nothing
' Fecha/Hora (Date/Time) nunca es Nothing
IsNothing = True
Select Case VarType(varToTest)
Case vbEmpty
Exit Function
Case vbNull
Exit Function
Case vbBoolean
If varToTest Then IsNothing = False
Case vbByte, vbInteger, vbLong, vbSingle, vbDouble, vbCurrency
If varToTest <> 0 Then IsNothing = False
Case vbDate
IsNothing = False
Case vbString
If (Len(varToTest) <> 0 And varToTest <> " ") Then IsNothing = False
End Select
End Function