hvordan man får adgang forespørgsel nulparameter VBA

Indlæg af Alice Christensen     opdateret: 2011-10-13

Microsoft Office Access er en relationel database management system anvendes ofte til små lokale databaser . Visual Basic for Applications ( VBA ) er et edb-programmering sprog, der bruges til at automatisere rutineopgaver i Access og andre Microsoft Office- programmer . En forespørgsel er skabt til at hente oplysninger fra en database tabel . En NULL er ikke nul eller tom , men en ukendt værdi , der tager én byte plads i tabellen området . Du kan skrive VBA -kode til at oprette en tabel , føje poster til det , herunder en NULL-værdi og søge i den tabel ved hjælp af en NULL argument .
1 .
Start Microsoft Office Access 2007 og vælg " Tom database "og derefter klikke på " Opret ". Klik på " Databaseværktøjer "og vælg " Visual Basic ". Klik på " Indsæt "-feltet og vælg " Modul ".
2 .
Tryk "Ctrl + A " og tryk " Delete " for at slette alle eksisterende kode .
3 .
Kopier og indsæt koden nedenfor ind i modulet . Koden vil vise en meddelelsesboks med produktet nummer , hvor beskrivelsen er NULL .

Alternativ Sammenlign Database


Private Sub queryNULLfield ( )

Dim strSQL As String
Dim dbs som database
Dim rst Som Recordset

Set dbs=CurrentDb

strSQL=" CREATE TABLE produkt ( nummer, betegnelse TEKST ) "
DoCmd . RunSQL ( strSQL )

strSQL=" INSERT INTO produkt (produkt, Beskrivelse ) "
strSQL=strSQL " VALUES (1 , » Bil ');"

DoCmd. SetWarnings False
DoCmd. RunSQL ( strSQL )

strSQL=" INSERT INTO produkt (produkt, Beskrivelse ) "
strSQL=strSQL " VALUES (2 , NULL ) ; "
DoCmd. SetWarnings Falsk

DoCmd. RunSQL ( strSQL )

strSQL=" INSERT INTO produkt (produkt, Beskrivelse ) "
strSQL=strSQL " VALUES (3 , EDB- ');"

DoCmd . SetWarnings Falsk
DoCmd. RunSQL ( strSQL )

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

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



Set rst=dbs. OpenRecordset ( SQLstr )

rst. MoveLast
rst. MoveFirst

MsgBox " Beskrivelsen af produktet " rst. Fields (0) . Value " er NULL . "

rst. Close

dbs. Close


End Sub


Previous:hvordan man kan ftp en fil ved hjælp VBS Next:hvordan man åbner en postsættet



 

Kommentarer

Code:
change