Microsoft Office Access é um sistema de gerenciamento de banco de dados relacional , muitas vezes usado para pequenos bancos de dados locais . Visual Basic for Applications (VBA) é uma linguagem de programação de computador utilizado para automatizar tarefas de rotina em Access e outros aplicativos do Microsoft Office . A consulta é criada para recuperar informações de uma tabela do banco de dados . A NULL não zero ou em branco, mas um valor desconhecido que leva um byte de espaço no campo da tabela é . Você pode escrever código VBA para criar uma tabela , adicionar registros a ele, incluindo um valor NULL e consultar a tabela usando um argumento NULL. Instruções
1
Inicie o Microsoft Office Access 2007 e selecione " Banco de Dados em Branco ", clique em " Criar". Clique em "Ferramentas de banco de dados " e selecione "Visual Basic". Clique no botão " Inserir" campo e selecione " Module ".
2
Pressione "Ctrl + A " e pressione " Delete" para apagar todos os códigos existentes .
3
Copie e cole o código abaixo no módulo. O código irá exibir uma caixa de mensagem com o número do produto , onde a descrição é NULL.
Option Compare Database
Private Sub queryNULLfield ()
Dim strSQL As String
dbs
Dim Database
Dim rst Como Recordset
Set dbs = CurrentDb
strSQL = " CREATE TABLE pRODUTO ( número do produto , descrição do texto) :" < br >
DoCmd.RunSQL ( strSQL )
strSQL = " INSERT INTO PRODUTOS (Produto , Descrição) "
strSQL = strSQL & " VALUES ( 1 , 'carro' ) ; "
DoCmd.SetWarnings Falso
DoCmd.RunSQL ( strSQL )
strSQL = " INSERT INTO PRODUTOS (Produto , Descrição) "
strSQL = strSQL & , " VALUES ( 2 , null); "
DoCmd.SetWarnings Falso
DoCmd.RunSQL ( strSQL )
strSQL = " INSERT INTO PRODUTOS (Produto , Descrição )"
strSQL = strSQL & " VALUES ( 3 , 'computador' ); "
DoCmd.SetWarnings Falso
DoCmd.RunSQL ( strSQL )
sqlstr = "SELECT PRODUCT.Product , produto.descricao "
sqlstr = sqlstr & "FROM Produtos"
sqlstr = sqlstr & " WHERE ( ( ( produto.descricao ) é nulo ) ); "
Set rst = dbs.OpenRecordset ( sqlstr )
rst.MoveLast
rst.MoveFirst
MsgBox" A descrição de produto " e ,. rst.Fields (0) Value & "é NULL. "
rst.Close
dbs.Close
End Sub
< br >
