Connaissant la façon de traiter avec des valeurs nulles lors de la lecture un jeu d'enregistrements peut vous faire gagner du temps à développer votre application de base de données . Microsoft Office Access est un système de gestion de bases de données relationnelles inclus dans la suite Microsoft Office . Visual Basic pour Applications, ou VBA, est utilisé dans Access pour automatiser des tâches de routine. Une requête est utilisée pour extraire des données d' une table de base de données. Une valeur nulle représente une variable sans valeur . Vous obtiendrez une " utilisation incorrecte de Null" message d'erreur lorsque vous essayez d'attribuer une valeur nulle à une variable. Instructions
1

Démarrer Microsoft Office Access et sélectionnez « Nouvelle base de données ", puis cliquez sur " Créer". Cliquez sur " Database Tools ", puis cliquez sur " Visual Basic ". Cliquez sur le menu "Insertion " et sélectionnez
2

Tapez la suivante pour créer un nouveau sous-programme "Module ". :

Privé invalidUseOfNULL Sub ( )

de la presse " Entrez "
3

Tapez le suivant pour déclarer vos variables : .

strSQL Dim As String

rst As Recordset

Dim dbs As Database

readNull Dim As String

Set dbs = CurrentDb
4

Tapez la commande suivante pour créer une nouvelle table :

SQLString = " CREATE TABLE nullValTbl (ville TEXTE, de l'Etat) "

DoCmd.SetWarnings Faux

DoCmd.RunSQL ( SQLString )
5

Tapez la commande suivante pour insérer trois records et une valeur nulle :

strSQL = " INSERT INTO VALUES nullValTbl ( nULL, ' TX ')"

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT EN VALEURS nullValTbl ( « DALLAS », « TX ») «

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO VALUES nullValTbl (' LOS ANGELES ', ' CA' ) "

DoCmd.RunSQL ( strSQL )
6

Tapez la commande suivante pour interroger la nouvelle table à l'aide d'enregistrements: .

Set rst = dbs.OpenRecordset ("SELECT * nullValTbl d' nullValTbl " )

rst.MoveFirst
7

Tapez la commande suivante pour parcourir le champ" ville " et afficher les résultats dans la fenêtre Exécution . La boucle comprend un "if" pour vérifier si la valeur d'enregistrements est "Null" pour éviter d'avoir le « Blancs utilisation de Null" message d'erreur.

Do While Not rst.EOF

IsNull ( rst.Fields ( "city" ) . Value) Puis

readNull = ""

Else

readNull = rst.Fields ( "city" ) . Value

End If

Debug.Print readNull

rst.MoveNext

boucle
8

Tapez la commande suivante pour libérer les variables de mémoire : .

rst.Close

dbs.Close

Appuyez sur " F5 " pour exécuter votre routine