hvordan man får adgang forespørgsel nulparameter VBA
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