Cómo acceder argumento nulo Query VBA

Microsoft Office Access es un sistema de gestión de base de datos relacional de uso frecuente para las pequeñas bases de datos locales . Visual Basic para Aplicaciones ( VBA) es un lenguaje de programación utilizado para automatizar tareas rutinarias en Access y otras aplicaciones de Microsoft Office . Una consulta se crea para recuperar información de una tabla de base de datos . Un NULL no es cero o en blanco , pero un valor desconocido que toma un byte de espacio en el campo de la tabla . Se puede escribir código VBA para crear una tabla , agregar registros a ella, incluyendo un valor NULL y consultar la tabla con un argumento NULL . Instrucciones
1

Inicio Microsoft Office Access 2007 y seleccione "Base de datos en blanco ", y luego haga clic en " Crear". Haga clic en "Herramientas de base de datos" y seleccione "Visual Basic ". Haga clic en el campo " Insertar" y seleccione " Módulo ".
2

Presione " Ctrl + A" y pulse "Delete " para borrar todo el código existente.
3 < p> Copia y pega el siguiente código en el módulo. El código se mostrará un cuadro de mensaje con el número de producto en el que la descripción es NULL .
Opción

Compare Database

Private Sub queryNULLfield ()

strSQL As
secuencia

Dim dbs como base de datos

rst As Recordset

Set dbs = CurrentDb

strSQL = "CREATE pRODUCTO MESA (número de producto , descripción de texto ),"

DoCmd.RunSQL ( strSQL )

strSQL = "INSERT INTO pRODUCTO ( producto , Descripción ) "

strSQL = strSQL & " VALUES ( 1 , ' Car' ) ; "

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

strSQL = "INSERT INTO pRODUCTO ( producto , Descripción ) "

strSQL = strSQL y "; VALUES ( 2 , NULL ) ; "

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

strSQL = "INSERT INTO pRODUCTO ( producto , Descripción ) "

strSQL = strSQL & " VALUES ( 3 , 'Equipo' ) ; "

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

sqlstr = "SELECT PRODUCT.Product , PRODUCT.DESCRIPTION "

sqlstr = sqlstr y "FROM producto "

sqlstr = sqlstr & " WHERE ( ( ( PRODUCT.DESCRIPTION ) es nulo ) ) ; "

Set rst = dbs.OpenRecordset ( sqlstr )

rst.MoveLast

rst.MoveFirst

MsgBox " La descripción de producto " y ; . rst.Fields ( 0 ) y Valor "es NULL."

rst.Close

dbs.Close

End Sub