Saber como lidar com valores nulos quando a leitura de um conjunto de registros você pode economizar tempo desenvolver o aplicativo de banco de dados . Microsoft Office Access é um banco de dados relacional de sistemas de gestão incluídos na suíte Microsoft Office. Visual Basic for Applications, ou VBA, é utilizado no Access para automatizar tarefas rotineiras. Uma consulta é usado para recuperar dados de uma tabela do banco de dados . Um valor nulo representa uma variável sem valor . Você receberá uma mensagem de erro "Invalid Use de nulo" quando você tentar atribuir um valor nulo para uma variável. Instruções
1

Comece Microsoft Office Access e selecione " Banco de Dados em Branco ", clique em " Criar". Clique em " Ferramentas de banco de dados " e clique em "Visual Basic". . " Módulo ", clique no menu "Inserir " e selecione
2

Digite o seguinte para criar uma nova sub-rotina :

Sub invalidUseOfNULL Privado ( )

Imprensa " . Enter "
3

Digite o seguinte para declarar as variáveis ​​:

Dim strSQL as String

Dim rst Como Recordset

dbs as Database Dim Dim

readNull as String

Set dbs = CurrentDb
4

Digite o seguinte para criar uma nova tabela :

SQLString = " CREATE TABLE nullValTbl (cidade texto, texto do estado) "

DoCmd.SetWarnings Falso

DoCmd.RunSQL ( SQLString )
5

Digite o seguinte para inserir três discos e um valor nulo :

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

DoCmd.RunSQL ( strSQL )

strSQL = "Inserir INTO nullValTbl VALUES ( 'Dallas ', ' TX ') "

DoCmd.RunSQL ( strSQL )

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

DoCmd.RunSQL ( strSQL )
6

Digite o seguinte para consultar a nova tabela usando registros:

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

rst.MoveFirst
7

Digite o seguinte para percorrer o" campo da cidade " e exibir os resultados através da janela imediata . O circuito inclui uma instrução "if" para verificar se o valor de registros é " nulo" para evitar o "Uso inválido de Null " mensagem de erro.

Fazer enquanto não rst.EOF

Se IsNull ( rst.Fields ( " cidade " ). Valor ) Então

readNull = ""

Else

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

End If

Debug.Print readNull

rst.MoveNext

loop
8

Digite o seguinte para liberar variáveis ​​de memória :

rst.Close

dbs.Close

Pressione " F5" para executar sua rotina

.