Saper trattare con valori nulli quando si legge un Recordset può risparmiare tempo a sviluppare l'applicazione di database . Microsoft Office Access è un sistema di gestione di database relazionali inclusi nella suite Microsoft Office . Visual Basic, Applications o VBA , è utilizzato in Access per automatizzare le attività di routine . Una query viene utilizzato per recuperare i dati da una tabella di database . Un valore nullo rappresenta una variabile senza valore . Si otterrà un " valido utilizzo di null " messaggio di errore quando si tenta di assegnare un valore nullo per una variabile . Istruzioni
1

Avviare Microsoft Office Access e selezionare " Database vuoto ", quindi fare clic su "Crea ". Fare clic su " Strumenti di database ", quindi fare clic su " Visual Basic ". Fai clic sul menu "Inserisci" e selezionare
2

Digitare quanto segue per creare un nuovo sottoprogramma "Modulo ". :

Private Sub invalidUseOfNULL ( ) per

Press " Inserire "
3

digitare quanto segue per dichiarare le variabili : .

Dim strSQL As String

Dim rst come Recordset

dim dbs As Database dim

readNull As String

Set dbs = CurrentDb
4

Digitare quanto segue per creare una nuova tabella :

sqlstring = " CREATE TABLE nullValTbl ( città testo, testo di stato ) "

DoCmd.SetWarnings False

DoCmd.RunSQL ( SqlString ) economici 5

digitare quanto segue per inserire tre dischi e un valore nullo :

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

DoCmd.RunSQL ( strSQL ) per

strSQL = "INSERT INTO nullValTbl ( 'Dallas ', ' TX ') "

DoCmd.RunSQL ( strSQL ) per

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

DoCmd.RunSQL ( strSQL ) economici 6

digitare quanto segue per interrogare la nuova tabella utilizzando Recordset : .

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

rst.MoveFirst
7

digitare quanto segue per ciclo attraverso il " campo città " e visualizzare i risultati attraverso la finestra immediata . Il ciclo comprende un "if" per verificare se il valore Recordset è " Null" per evitare il " valido utilizzo di null " messaggio di errore .

Do While Not rst.EOF

IsNull ( rst.Fields ( " città" ) . Value) Poi

readNull = " "

Else

readNull = rst.Fields ( " città" ) . Valore

End If

Debug.Print readNull

rst.MoveNext

loop
8

digitare quanto segue per rilasciare le variabili da memoria : .

rst.Close

dbs.Close

Premere " F5 " per eseguire la subroutine