Microsoft Office Access er en relasjonsdatabase styringssystem 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 av plass i tabellen feltet . Du kan skrive VBA -kode for å opprette en tabell , legge til poster til det inkludert en NULL-verdi og søke i tabellen ved hjelp av en NULL argument . Instruksjoner
en
start Microsoft Office Access 2007 og velg "Blank Database ," klikk " Opprett". Klikk "Database Verktøy" og velg " Visual Basic. " Klikk på " Insert "-feltet og velg " Module ".
2
Trykk " Ctrl + A" og trykk "Delete " for å slette all eksisterende kode .
3 < p > Kopier og lim inn koden nedenfor i modulen. Koden vil vise en meldingsboks med produktnummeret der beskrivelsen er NULL .
Option Compare Database
Private Sub queryNULLfield ( )
Dim strSQL As String
Dim dBS Som Database
Dim rst Som Recordset
Set dBS = CurrentDb
strSQL = "CREATE TABLE PRODUKT ( produktnummer , Beskrivelse TEKST ),"
DoCmd.RunSQL ( strSQL )
strSQL = " INSERT INTO produktet (produktkategori , Beskrivelse )"
strSQL = strSQL & " VALUES ( 1 , ' bil '); "
DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL )
strSQL = " INSERT INTO produktet (produktkategori , Beskrivelse )"
strSQL = strSQL & ; " VALUES ( 2 , NULL) ; "
DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL )
strSQL = " INSERT INTO produktet (produktkategori , Beskrivelse )"
strSQL = strSQL & " VALUES ( 3 , ' COMPUTER '); "
DoCmd.SetWarnings False
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 produktet "& ; . rst.Fields ( 0 ) Value & "er NULL . "
rst.Close
dbs.Close
End Sub
