Ako získať prístup Query Null Argument VBA

Microsoft Office Access je relačný databázový systém často používaný pre malé lokálne databázy . Visual Basic for Applications ( VBA ) je programovací jazyk použiť na automatizáciu rutinných úloh v programe Access a ďalších aplikácií balíka Microsoft Office . Otázka je vytvorený na načítanie informácií z databázovej tabuľky . NULL nie je nula alebo prázdna , ale neznáma hodnota , ktorá trvá jeden bajt miesta v poli tabuľky . Môžete napísať kód jazyka VBA vytvoriť tabuľku , pridať záznamy do neho , vrátane hodnotu NULL a dotaz na tabuľku pomocou NULL argumentu . Pokyny dovolená 1

Spustite program Microsoft Office Access 2007 a ​​zvoľte " Prázdna databáza , " kliknite na tlačidlo " Vytvoriť " . Kliknite na " Databázové nástroje " a vyberte " Visual Basic " . Kliknite na " Vložiť " poľa a zvoľte " modul " .
2

Stlačte tlačidlo " Ctrl + A " a stlačte tlačidlo " Delete " odstrániť všetky existujúce kód .
3

Kopírovať a vložiť nižšie uvedený kód do modulu . Kód sa zobrazí okno so správou s číslom výrobku , kde opis je NULL .

Option Compare Database

Private Sub queryNULLfield ( )

Dim strSQL As String

Dim dbs databázové

Dim rst Ako Recordset

Set DBS = CurrentDb

strSQL = " CREATE TABLE produktu ( produktové číslo , popis TEXT ) ; "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO produktu ( výrobku , Opis ) "

strSQL = strSQL a " VALUES ( 1 , ' auto ' ) ; "

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO produktu ( výrobku , Opis ) "

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

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO produktu ( výrobku , Opis ) "

strSQL = strSQL a " VALUES ( 3 , ' počítač ' ) ; " Spojené

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

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

SQLstr = SQLstr & " Z produktu "

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

Set rst = dbs.OpenRecordset ( SQLstr )

rst.MoveLast

rst.MoveFirst

MsgBox " popis tovaru " a ; . rst.Fields ( 0 ) Value & " je NULL . "

rst.Close

dbs.Close

End Sub

• Predchádzajúca strana: Ako zmeniť textového poľa text bez vyvolania udalosti v jazyku Visual Basic 
• Ďalšia strana: Ako čítať súbor CSV v VB