Microsoft Office Access est un système de gestion de base de données relationnelle souvent utilisé pour les petites bases de données locales . Visual Basic pour Applications ( VBA) est un langage de programmation informatique utilisé pour automatiser des tâches de routine dans Access et d'autres applications Microsoft Office. Une requête est créée pour extraire des informations à partir d'une table de base de données. Un NULL n'est pas égal à zéro ou vide mais une valeur inconnue qui prend un octet d'espace dans la zone de table . Vous pouvez écrire du code VBA pour créer une table , ajouter des enregistrements à elle, y compris une valeur NULL et interroger la table en utilisant un argument NULL. Instructions
1
Démarrer Microsoft Office Access 2007 et sélectionnez « Nouvelle base de données ", puis cliquez sur " Créer". Cliquez sur " Database Tools " puis sélectionnez " Visual Basic ". Cliquez sur le champ "Insérer" et sélectionner "Module ".
2
Appuyez sur "Ctrl + A" et appuyez sur "Supprimer" pour supprimer tout le code existant.
3 < p > Copier et coller le code ci-dessous dans le module. Le code va afficher une boîte de message avec le numéro de produit où la description est NULL.
Option Compare Database
Private Sub queryNULLfield ()
de strSQL Dim As String
Dim dbs As Database
rst As Recordset
Set dbs = CurrentDb
strSQL = "CREATE TABLE dU PRODUIT ( numéro de produit, le texte de description ) ; " < br >
DoCmd.RunSQL ( strSQL )
strSQL = "INSERT INTO PRODUCT ( produit , description) "
strSQL = strSQL & " VALUES ( 1, 'Car '); " Photos
DoCmd.SetWarnings Faux
DoCmd.RunSQL ( strSQL )
strSQL = "INSERT INTO PRODUCT ( produit , description) "
strSQL = strSQL & , " VALUES ( 2 , NULL); "
DoCmd.SetWarnings Faux
DoCmd.RunSQL ( strSQL )
strSQL = "INSERT INTO PRODUCT ( produit , description) " Photos
strSQL = strSQL & " VALUES ( 3 , ' INFORMATIQUE '); "
DoCmd.SetWarnings Faux
DoCmd.RunSQL ( strSQL )
sqlstr = "SELECT PRODUCT.Product , PRODUCT.DESCRIPTION "
sqlstr = sqlstr & "FROM produit "
sqlstr = sqlstr & " WHERE ( ( ( PRODUCT.DESCRIPTION ) est nul ) ) ; "
Set rst = dbs.OpenRecordset ( sqlstr )
rst.MoveLast
rst.MoveFirst
MsgBox" La description de produit " & ; . rst.Fields (0) Value & " est nulle."
rst.Close
dbs.Close
End Sub
< br >
