Microsoft Office Access is een relationele database management systeem vaak gebruikt voor kleine lokale databases . Visual Basic for Applications ( VBA ) is een programmeertaal gebruikt om routinematige taken in Access en andere Microsoft Office-toepassingen te automatiseren . Een query is gemaakt om informatie op te halen uit een database tabel . Een NULL is niet nul of leeg , maar een onbekende waarde die een byte van de ruimte in beslag neemt op het gebied tafel. U kunt VBA code om een tabel te maken schrijven , records toe te voegen , waaronder een NULL-waarde en de vraag van de tafel met behulp van een NULL argument . Instructies
1 Start Microsoft Office Access 2007 en selecteer " Lege database , " en klik op "Create . " Klik op " Database Tools" en selecteer " Visual Basic . " Klik op het veld " Insert " en selecteer " Module . "
Druk op "Ctrl + A " en druk op " Delete " om alle bestaande code te verwijderen .
3 2 Kopieer en plak de onderstaande code in de module . De code zal een berichtvenster weer met het product nummer waar de beschrijving is NULL . Optie
Vergelijk Database
Private Sub queryNULLfield ( ) Dim strSQL
als Koord
Dim dbs als Database Dim rst
als Recordset Set
dbs = CurrentDb strSQL
= " CREATE TABLE PRODUCT ( productnummer , Beschrijving TEKST ) ; " < br DoCmd.RunSQL ( strSQL ) strSQL >
= " INSERT INTO PRODUCT ( product , Beschrijving) "
strSQL = strSQL & " VALUES ( 1 , ' Car ' ) ; " DoCmd.SetWarnings
False DoCmd.RunSQL
( strSQL ) op strSQL = " INSERT INTO PRODUCT ( product , Beschrijving) "
strSQL = strSQL & , " VALUES ( 2 , NULL ) ; " DoCmd.SetWarnings
False DoCmd.RunSQL ( strSQL ) strSQL
= " INSERT INTO PRODUCT ( product , Beschrijving) "
strSQL = strSQL & " VALUES ( 3 , ' COMPUTER ' ) ; " DoCmd.SetWarnings
False DoCmd.RunSQL ( strSQL ) op
sqlstr = " SELECT Product.Productnaam , PRODUCT.Description "
sqlstr = sqlstr & " FROM product"
sqlstr = sqlstr & " WHERE ( ( ( PRODUCT.Description ) Is Null ) ) ; "
Set rst = dbs.OpenRecordset ( sqlstr ) rst.MoveLast rst.MoveFirst MsgBox
" De beschrijving van product " & ; . rst.Fields ( 0 ) Value & "is NULL . " rst.Close
dbs.Close
End Sub
< br >
|
