Conocer cómo tratar con los valores nulos al leer un conjunto de registros puede ahorrar tiempo al desarrollo de la aplicación de bases de datos . Microsoft Office Access es un sistema de bases de datos relacionales incluidos en la suite de Microsoft Office. Visual Basic para Aplicaciones o VBA , se utiliza en el Acceso a automatizar las tareas rutinarias. Una consulta se utiliza para recuperar datos de una tabla de base de datos . Un valor nulo representa una variable sin valor . Usted recibirá un " uso no válido de null" mensaje de error cuando intenta asignar un valor nulo a una variable. Instrucciones
1

Inicio Microsoft Office Access y seleccione "Base de datos en blanco ", y luego 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
2

Escriba lo siguiente para crear un nuevo subprograma "Módulo ". :

Private Sub invalidUseOfNULL ()

Prensa " Escriba "
3

Escriba lo siguiente para declarar las variables : .

strSQL As String Dim

rst As Recordset

Dim dbs como base de datos

readNull dévil como secuencia

Set dbs = CurrentDb
4

Escriba lo siguiente para crear una nueva tabla :

SQLString = " CREATE TABLE nullValTbl ( TEXTO ciudad, State Text ) "

DoCmd.SetWarnings False

DoCmd.RunSQL ( SqlString )
5

Escriba lo siguiente para insertar tres discos y un valor nulo:

strSQL = " INSERT INTO vALORES nullValTbl (NULL, ' TX ')"

DoCmd.RunSQL ( strSQL )

strSQL = "INSERT EN VALORES nullValTbl ( ' DALLAS ', ' TX ') "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO VALORES nullValTbl ( 'LOS ANGELES ', ' CA' ) "

DoCmd.RunSQL ( strSQL )
6

Escriba lo siguiente para consultar la nueva tabla con registros: .

Set rst = dbs.OpenRecordset ( "SELECT * nullValTbl dE nullValTbl " )

rst.MoveFirst
7

Escriba lo siguiente para recorrer el campo" ciudad " y mostrar los resultados a través de la ventana Inmediato . El circuito incluye un " if" para comprobar si el valor de registros es " nulo " para evitar que el "Uso no válido de null " mensaje de error.

Hacer mientras no rst.EOF

Si IsNull ( rst.Fields ( "ciudad" ) . Valor ) Entonces

readNull = ""

demás

readNull = rst.Fields ( "ciudad" ) . Valor

End If

Debug.Print readNull

rst.MoveNext

Loop
8

Escriba lo siguiente para liberar las variables de memoria : .

rst.Close

dbs.Close

Press "F5 " para ejecutar la subrutina