Hvordan få tilgang Query Null Argument VBA

Microsoft Office Access er en relasjonsdatabase management system ofte brukt for små lokale databaser. Visual Basic for Applications (VBA) er et programmeringsspråk som brukes til å automatisere rutineoppgaver i Access og andre Microsoft Office-programmer. En spørring er opprettet for å hente informasjon fra en database tabell. En NULL er ikke null eller blank, men en ukjent verdi som tar en byte plass i tabellen feltet. Du kan skrive VBA-kode for å opprette en tabell, legge poster til det inkludert en NULL-verdi og spørre bordet med null argument.

Bruksanvisning

1 Start Microsoft Office Access 2007 og velg "Blank Database," klikk "Opprett". Klikk "Database Verktøy" og velg "Visual Basic." Klikk på "Sett inn" feltet og velg "Module".

2 Trykk "Ctrl + A" og trykk "Slett" for å slette alle eksisterende kode.

3 Kopier og lim inn koden nedenfor i modulen. Koden vil vise en meldingsboks med produktnummeret der beskrivelsen er NULL.

Alternativ Sammenligne Database

Private Sub queryNULLfield ()

Dim strSQL As String

Dim dbs som database

Dim rst As Recordset

Sett dbs = CurrentDb

strSQL = "CREATE TABLE produktet (produktnummer, beskrivelse TEKST);"

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO produktet (produkt, Beskrivelse)"

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

DoCmd.SetWarnings falske

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO produktet (produkt, Beskrivelse)"

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

DoCmd.SetWarnings falske

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO produktet (produkt, Beskrivelse)"

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

DoCmd.SetWarnings falske

DoCmd.RunSQL (strSQL)

SQLstr = "SELECT PRODUCT.Product, PRODUCT.Description"

SQLstr = SQLstr & "FROM Produkt"

SQLstr = SQLstr & "WHERE (((PRODUCT.Description) Er Null));"

Sett rst = dbs.OpenRecordset (SQLstr)

rst.MoveLast

rst.MoveFirst

MsgBox "Beskrivelsen for produkt" og rst.Fields (0) .Value & "er NULL."

rst.Close

dbs.Close

End Sub