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 )," < br >
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
< br >
