hur man kan få frågan tomt 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 skapade för att hämta information från en databas tabell . En NULL inte är noll eller tomt men ett okänt värde som tar ett byte av plats i tabellen området . Du kan skriva VBA- kod för att skapa en tabell , lägga till poster i den inklusive ett NULL-värde och ifrågasätta tabell med ett NULL-argumentet .
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 ” och välj ” Module ”.
2 .
Tryck ” Ctrl + A ” och tryck på ” Delete ” för att radera alla befintliga koden .
3 .
Kopiera och klistra in koden nedan i modulen . Koden kommer att visa en meddelanderuta med produktnumret där beskrivningen är NULL .

Alternativ Jämför Database

Private Sub queryNULLfield ( )

Dim strSQL As String

Dim DBS som databas

Dim rst Som Recordset

Set DBS=CurrentDb

strSQL=” CREATE TABLE produkt (produkt , beskrivning TEXT ) , ”

DoCmd . RunSQL ( strSQL )

strSQL=” INSERT INTO produkt (produkt , beskrivning) ”

strSQL=strSQL ” VALUES (1 , ” Bil &#039);”

DoCmd. SetWarnings Falska

DoCmd. RunSQL ( strSQL )

strSQL=” INSERT INTO produkt (produkt , beskrivning) ”

strSQL=strSQL ” VALUES (2 , NULL ), ”

DoCmd. SetWarnings Falska

DoCmd. RunSQL ( strSQL )

strSQL=” INSERT INTO produkt (produkt , beskrivning) ”

strSQL=strSQL ” VÄRDEN (3 , ”dator &#039);”

DoCmd . SetWarnings Falska

DoCmd. RunSQL ( strSQL )

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

SQLstr=SQLstr ” Från produktutveckling ”

SQLstr=SQLstr ” VAR ((( PRODUCT. Description ) Är Null ));”

Set rst=dbs. OpenRecordset ( SQLstr )

rst. MoveLast

rst. MoveFirst

MsgBox ” Beskrivningen för produkten ” rst. Fields (0) . Value ” är NULL . ”

rst. Close

dbs. Close

End Sub

Visited 1 times, 1 visit(s) today

コメント

タイトルとURLをコピーしました