Avviare Microsoft Office Access 2007 e selezionare " Database vuoto ", quindi fare clic su "Crea ". Fare clic su "Strumenti database" e selezionare " Visual Basic ". Fare clic sul campo "Inserisci" e selezionare " Modulo ".
2
Premere " Ctrl + A " e premere " Delete" per cancellare tutto il codice esistente.
3
Copia e incolla il codice qui sotto nel modulo . Il codice verrà visualizzato una finestra di messaggio con il numero del prodotto in cui la descrizione è NULL .
Option Compare Database
Private Sub queryNULLfield ( ) per
Dim strSQL Come
String
Dim dbs As Database Dim rst
come Recordset
Set dbs = CurrentDb
strSQL = " CREATE TABLE pRODOTTI (codice prodotto , descrizione del testo ),"
DoCmd.RunSQL ( strSQL ) per
strSQL = " INSERT INTO PRODUCT ( prodotto , Descrizione) "
strSQL = strSQL & " VALUES ( 1 , ' auto '); "
DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL ) per
strSQL = " INSERT INTO PRODUCT ( prodotto , Descrizione) "
strSQL = strSQL & , " VALUES ( 2 , NULL); "
DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL ) per
strSQL = " INSERT INTO PRODUCT ( prodotto , Descrizione) "
strSQL = strSQL & " VALUES ( 3 , 'computer' ) ; "
DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL ) per
sqlstr = "SELECT Prodotto.Nome , PRODUCT.DESCRIPTION "
sqlstr = sqlstr & " dal prodotto "
sqlstr = sqlstr & "WHERE ( ( ( PRODUCT.DESCRIPTION ) Is Null ) ) ; "
Set rst = dbs.OpenRecordset ( sqlstr ) per
rst.MoveLast
rst.MoveFirst
MsgBox" La descrizione per il prodotto " & , . rst.Fields ( 0 ) Value & " è NULL . "
rst.Close
dbs.Close
End Sub
Programmazione © www.354353.com