Microsoft Office Access è un sistema di gestione di database relazionali spesso utilizzato per i piccoli database locali. Visual Basic, Applications Edition (VBA) è un linguaggio di programmazione utilizzato per automatizzare le attività di routine in Access e altre applicazioni di Microsoft Office. Una query è stato creato per recuperare informazioni da una tabella del database. A NULL non è zero o vuoto, ma un valore sconosciuto che prende un byte di spazio nel campo della tabella. È possibile scrivere codice VBA per creare una tabella, aggiungere record a esso compreso un valore NULL e interrogare la tabella utilizzando un argomento NULL.

istruzione

1 Avviare Microsoft Office Access 2007 e selezionare "Database vuoto", quindi fare clic su "Crea". Fai clic su "Strumenti database" e selezionare "Visual Basic". Fare clic su "inserire" e selezionare "Modulo".

2 Premere il tasto "Ctrl + A" e premere il tasto "Cancella" per cancellare tutto il codice esistente.

3 Copia e incolla il codice qui sotto nel modulo. Il codice visualizza una finestra di messaggio con il numero di prodotto in cui la descrizione è NULL.

Option Compare Database

Private Sub queryNULLfield ()

Dim strSQL As String

DBS fiochi come database

Dim rst come Recordset

Set dbs = CurrentDb

strSQL = "CREATE TABLE PRODUCT (numero di prodotto, descrizione del testo);"

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO PRODUCT (prodotto, Descrizione)"

strSQL = strSQL & "VALORI (1, 'Car');"

DoCmd.SetWarnings False

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO PRODUCT (prodotto, Descrizione)"

strSQL = strSQL & "VALORI (2, NULL);"

DoCmd.SetWarnings False

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO PRODUCT (prodotto, Descrizione)"

strSQL = strSQL & "VALORI (3, 'computer');"

DoCmd.SetWarnings False

DoCmd.RunSQL (strSQL)

SQLStr = "SELECT Prodotto.Nome, PRODUCT.DESCRIPTION"

SQLStr = SQLStr & "dal prodotto"

SQLStr = SQLStr & "WHERE (((PRODUCT.DESCRIPTION) Is Null));"

Set rst = dbs.OpenRecordset (SQLStr)

rst.MoveLast

rst.MoveFirst

MsgBox "La descrizione per il prodotto" & rst.Fields (0) .Value & "è nullo."

rst.Close

dbs.Close

End Sub