Access - Función IsNothing

 
Vista:

Función IsNothing

Publicado por Pedro Pablo (23 intervenciones) el 02/09/2000 00:00:00
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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Función IsNothing

Publicado por José Maldonado Martínez (18 intervenciones) el 25/09/2000 00:00:00
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...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Función IsNothing

Publicado por Rodrigo Fritz (11 intervenciones) el 28/09/2000 00:00:00
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..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Función IsNothing

Publicado por Martin Marroquin (18 intervenciones) el 16/02/2001 01:40:37
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar