Microsoft Office Access è un sistema di gestione di database relazionali spesso utilizzato per database locali di piccole dimensioni. Visual Basic for Applications (VBA) è un linguaggio di programmazione utilizzato per automatizzare le attività di routine in Access e altre applicazioni di Microsoft Office. Viene creata una query per recuperare informazioni da una tabella di database. Un valore 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 ad esso tra cui un valore NULL e interrogare la tabella utilizzando un argomento a NULL.

Istruzioni

1

Avviare Microsoft Office Access 2007 e selezionare "Database vuoto", quindi fare clic su "Crea". Fare clic su "Strumenti di Database" e selezionare "Visual Basic". Fare clic sul campo "Inserisci" e selezionare "Modulo".

2

Premere "Ctrl + A" e premere "Elimina" per eliminare tutto il codice esistente.

3

Copiare e incollare il codice riportato di seguito nel modulo. Il codice visualizzerà una finestra di messaggio con il numero di prodotto dove la descrizione è NULL.

Option Compare Database

Private Sub queryNULLfield()

Dim strSQL As String

() Dim dbs As Database

Dim rst As Recordset

Set dbs = CurrentDb

strSQL = "Crea tabella PRODUCT (prodotto numero, descrizione testo);"

DoCmd.RunSQL (strSQL)

strSQL = "INSERT nel prodotto (prodotto, descrizione)"

strSQL = strSQL & "VALUES (1, 'Auto');"

DoCmd.SetWarnings False

DoCmd.RunSQL (strSQL)

strSQL = "INSERT nel prodotto (prodotto, descrizione)"

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

DoCmd.SetWarnings False

DoCmd.RunSQL (strSQL)

strSQL = "INSERT nel prodotto (prodotto, descrizione)"

strSQL = strSQL & "VALUES (3, 'COMPUTER');"

DoCmd.SetWarnings False

DoCmd.RunSQL (strSQL)

SQLstr = "selezionare il prodotto. Prodotto, prodotto. Descrizione"

SQLstr = SQLstr & "Dal prodotto"

SQLstr = SQLstr & "dove (((prodotto. Descrizione) è Null));"

Set rst = dbs. OpenRecordset(SQLstr)

RST. MoveLast

RST. MoveFirst

MsgBox "La descrizione per il prodotto" & rst. Fields(0). Valore & "is NULL".

RST. Chiudere

DBS. Chiudere

End Sub