Komma åt Query Null Argument VBA

Microsoft Office Access är en relationsdatabas management system används ofta för små lokala databaser . Visual Basic for Applications ( VBA ) är en dator programmeringsspråk som används för att automatisera rutinuppgifter i Access och andra Microsoft Office-program . En fråga är skapad för att hämta information från en databastabell. En NULL inte är noll eller tomt men ett okänt värde som tar ett byte av utrymmet i tabellen fältet . Du kan skriva VBA-kod för att skapa en tabell , lägga till poster i det inklusive ett NULL värde och söka i tabellen med hjälp av en NULL-argumentet . Instruktioner
1

Starta Microsoft Office Access 2007 och välj " Tom databas , " klicka sedan på " Skapa ". Klicka på " Databas Verktyg " och välj " Visual Basic . " Klicka på " Infoga "-fältet och välj " Modul . "
2

Tryck " Ctrl + A " och tryck på " Delete " för att radera all befintlig kod .
3

Kopiera och klistra in koden nedan i modulen . Koden kommer att visa en meddelanderuta med produktnummer där beskrivningen är NULL .

Option Compare Database

Private Sub queryNULLfield ( ) katalog

Dim strSQL As String

Dim dbs som databas

Dim rst Som Recordset

Set dbs = CurrentDb

strSQL = " CREATE TABLE PRODUKT ( produktnummer , Beskrivning TEXT ) , "

DoCmd.RunSQL ( strSQL ) katalog

strSQL = " INSERT INTO produkt (produkt , Description ) "

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

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL ) katalog

strSQL = " INSERT INTO produkt (produkt , Description ) "

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

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL ) katalog

strSQL = " INSERT INTO produkt (produkt , Description ) "

strSQL = strSQL & " VALUES ( 3 , " dator " ) , "

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL ) katalog

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

sqlstr = sqlstr & " FROM Produkt "

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

Set rst = dbs.OpenRecordset ( sqlstr ) katalog

rst.MoveLast

rst.MoveFirst

MsgBox " beskrivningen av produkten " & ; . rst.Fields ( 0 ) Value & " är NULL . "

rst.Close

dbs.Close

End Sub