Wissen, wie man mit NULL-Werten umgehen, wenn das Lesen eines Recordset sparen Sie Zeit mit der Entwicklung Ihrer Datenbankanwendung . Microsoft Office Access ist ein relationales Datenbank -Management-Systeme in der Microsoft Office-Suite enthalten. Visual Basic für Applikationen oder VBA , wird in Access , um Routineaufgaben zu automatisieren verwendet . Eine Abfrage wird verwendet, um Daten aus einer Datenbank -Tabelle abzurufen. Ein NULL-Wert stellt eine Variable ohne Wert . Sie erhalten eine " Ungültige Verwendung von Null " Fehlermeldung, wenn Sie eine null zu einer Variablen zuzuweisen . Anleitung
1

Starten Sie Microsoft Office Access , und wählen Sie " Blank -Datenbank", klicken Sie dann auf " Erstellen". Klicken Sie auf " Database Tools ", klicken Sie dann auf " Visual Basic ". Klicken Sie auf das Menü "Einfügen" und wählen
2

Geben Sie den folgenden , um eine neue Subroutine erstellen "Module . ":

Private Sub invalidUseOfNULL ()

Presse " Geben Sie "
3

Geben Sie den folgenden Ihre Variablen deklarieren: .

Dim strSQL As String Dim rst

Als Recordset

Dim dbs As Database Dim

readNull As String Set dbs

= CurrentDb
4

Geben Sie den folgenden , um eine neue Tabelle zu erstellen :

SqlString = " CREATE TABLE nullValTbl (Stadt TEXT , TEXT Zustand ) "

DoCmd.SetWarnings Falsch

DoCmd.RunSQL ( SqlString )
5

Geben Sie den folgenden einfügen drei Platten und ein Nullwert :

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

DoCmd.RunSQL ( strSQL )

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

DoCmd.RunSQL ( strSQL )

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

DoCmd.RunSQL ( strSQL )
6

Geben Sie den folgenden , um die neue Tabelle mit Recordset abfragen : .

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

rst.MoveFirst
7

Geben Sie den folgenden in einer Schleife durch die" Stadt "-Feld und die Ergebnisse durch das Direkt-Fenster . Die Schleife enthält eine "If" -Anweisung zu überprüfen, ob das Recordset Wert " Null" zu vermeiden, die " Ungültige Verwendung von Null " Fehlermeldung.

Do While Not rst.EOF

IsNull ( rst.Fields ( " Stadt " ) . Value) Dann

readNull = "" Else

readNull = rst.Fields ( " Stadt " ) . Wert

End If Debug.Print

readNull

rst.MoveNext

Schleife
8

Geben Sie den folgenden Variablen ab Release Speicher: .

rst.Close

dbs.Close

Presse "F5" auf Ihrer Unterroutine ausführen