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