-
Cómo acceder a la consulta: Uso no válido de null
-
Saber cómo tratar con valores nulos cuando se lee un conjunto de registros que puede ahorrar tiempo a desarrollar la aplicación de base de datos. Microsoft Office Access es un sistema de base de datos relacionales de gestión incluidos en el paquete de Microsoft Office. Visual Basic para Aplicaciones, o VBA, se utiliza en Access para automatizar tareas rutinarias. Una consulta se utiliza para recuperar datos de una tabla de base de datos. Un valor nulo representa una variable sin valor. Obtendrá un "uso no válido de null" mensaje de error cuando intenta asignar un valor nulo a una variable.Instrucciones
1 Iniciar Microsoft Office Access y seleccione "Base de datos en blanco", a continuación, haga clic en "Crear". Haga clic en "Herramientas de base de datos", haga clic en "Visual Basic". Haga clic en el menú "Insertar" y seleccione "Módulo".
2 Escribe lo siguiente para crear un nuevo subprograma:
Private Sub invalidUseOfNULL ()
Presione ENTRAR."
3 Escribe lo siguiente para declarar sus variables:
Dim como secuencia strSQL
Dim primera medida de registros
DBS dévil como Base de Datos
Dim como secuencia readNull
Set dbs = CurrentDb
4 Escribe lo siguiente para crear una nueva tabla:
sqlString = "CREATE TABLE nullValTbl (TEXTO ciudad, estado TEXTO)"
DoCmd.SetWarnings falsos
DoCmd.RunSQL (sqlString)
5 Escribe lo siguiente para insertar tres discos y un valor nulo:
strSQL = "INSERT INTO VALORES nullValTbl (NULL, 'TX')"
DoCmd.RunSQL (strSQL)
strSQL = "INSERT INTO VALORES nullValTbl ( 'DALLAS', 'TX')"
DoCmd.RunSQL (strSQL)
strSQL = "INSERT INTO VALORES nullValTbl ( 'Los Ángeles', 'CA')"
DoCmd.RunSQL (strSQL)
6 Escribe lo siguiente para consultar la nueva tabla de registros usando:
Establecer primera dbs.OpenRecordset = ( "SELECT nullValTbl. * FROM nullValTbl")
rst.MoveFirst
7 Escriba lo siguiente para recorrer el campo "ciudad" y mostrar los resultados a través de la ventana Inmediato. El bucle incluye un "if" para comprobar si el valor de registros es "nulo" para evitar el "uso no válido de null" mensaje de error.
Aunque no hacer rst.EOF
Si IsNull (rst.Fields ( "ciudad"). Value) A continuación,
readNull = ""
Más
readNull = rst.Fields("city").Value
Terminara si
Debug.Print readNull
rst.MoveNext
Lazo
8 Escribe lo siguiente para liberar las variables de la memoria:
rst.Close
dbs.Close
Pulse la tecla "F5" para ejecutar la subrutina.