Vide, hvordan man håndtere Null-værdier , når du læser en Recordset kan spare dig tid på at udvikle dit databaseprogram. Microsoft Office Access er en relationel database management systemer , der indgår i Microsoft Office-pakken. Visual Basic for Applications eller VBA , der bruges i Access til at automatisere rutineopgaver. En forespørgsel bruges til at hente data fra en database tabel . En null-værdi repræsenterer en variabel med ingen værdi. Du vil få en "ugyldig brug af Null" fejlmeddelelse , når du forsøger at tildele en null i en variabel. Instruktioner
1

Start Microsoft Office Access og vælg " Tom database " og derefter klikke på "Opret ". Klik på " Database Tools ", og klik derefter på "Visual Basic ". Klik på " Indsæt" menuen og vælg
2

Skriv følgende for at oprette en ny subrutine " Modul ". : Hej

Private Sub invalidUseOfNULL ()

Tryk på " Enter "
3

Skriv følgende at erklære dine variabler : .

Dim strSQL As String

Dim rst Som Recordset

Dim dbs som database

Dim readNull As String

Set dbs = CurrentDb
4

Skriv følgende for at oprette en ny tabel : Hej

sQLString = " CREATE TABLE nullValTbl (by TEXT , stat TEXT )"

DoCmd.SetWarnings False

DoCmd.RunSQL ( sQLString )
5

Skriv følgende for at indsætte tre optegnelser og en null værdi:

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' ) " < br >

DoCmd.RunSQL ( strSQL )
6

Skriv følgende at forespørge den nye tabel ved hjælp Recordset : .

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

rst.MoveFirst
7

Skriv følgende at sløjfe gennem" byen "feltet og vise resultaterne gennem Immediate Window . Sløjfen indeholder et "hvis " erklæring at kontrollere, om Recordset værdien er " Null" for at undgå at få "ugyldig brug af Null" fejlmeddelelse .

Må Mens Ikke rst.EOF
p Hvis IsNull ( rst.Fields ( "by" ) . Value) Så

readNull = " "

Else

readNull = rst.Fields ( "city "). Value < br >

End If

Debug.Print readNull

rst.MoveNext

Loop
8

Skriv følgende for at frigøre variabler fra hukommelse: .

rst.Close

dbs.Close

Tryk på " F5 " for at køre din subrutine