Microsoft Office Access ist ein relationales Datenbank -Management-System oft für kleine lokale Datenbanken verwendet. Visual Basic für Applikationen (VBA ) ist eine Programmiersprache verwendet, um Routineaufgaben in Access und anderen Microsoft Office-Anwendungen automatisieren. Eine Abfrage wird erstellt, um Informationen aus einer Datenbank -Tabelle abzurufen. Ein NULL ist nicht Null oder leer, aber ein unbekannter Wert, der ein Byte Speicherplatz nimmt in der Tabelle ein. Sie können schreiben, VBA-Code , um eine Tabelle zu erstellen , hinzuzufügen , um es mit einem NULL-Wert und fragen Sie die Tabelle mit einer NULL Argument . Anleitung
1

Starten Sie Microsoft Office Access 2007 und wählen Sie " Blank -Datenbank", klicken Sie dann auf " Erstellen". Klicken Sie auf " Database Tools " und wählen Sie " Visual Basic. " Klicken Sie auf " Insert "-Feld und wählen Sie " Module".
2

Drücken Sie "Strg + A" und drücken Sie "Löschen" , um alle vorhandenen Code löschen.
3 < p> Kopieren Sie den folgenden Code in das Modul. Der Code wird ein Dialogfenster mit der Produktnummer , wo die Beschreibung ist NULL anzuzeigen.

Option Compare Database

Private Sub queryNULLfield () Dim

strSQL As String

Dim dbs As Database Dim rst

Als Recordset

Set dbs = CurrentDb

strSQL = " CREATE TABLE PRODUCT (Artikelnummer , Beschreibung TEXT ); "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO (Produkt , Beschreibung ) "

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

DoCmd.SetWarnings Falsch

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO (Produkt , Beschreibung ) "

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

DoCmd.SetWarnings Falsch

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO (Produkt , Beschreibung ) "

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

DoCmd.SetWarnings Falsch

DoCmd.RunSQL ( strSQL )

sqlstr = "SELECT Produkt.Produkt , PRODUCT.Description "

sqlstr = sqlstr & "FROM Product"

sqlstr = sqlstr & "WHERE ((( PRODUCT.Description ) Is Null ) ); "

Set rst = dbs.OpenRecordset ( sqlstr )

rst.MoveLast

rst.MoveFirst

MsgBox" Die Beschreibung für das Produkt " & ; . rst.Fields (0) Value & " ist NULL. "

rst.Close

dbs.Close

End Sub