Apprendre à émettre des valeurs multiples d'une requête peut rendre votre application informatique plus dynamique. Un programme que vous pouvez utiliser pour interroger une table de base de données Microsoft Office Access . 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 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 utilisée pour récupérer des informations à partir d'une table de base de données. Instructions
1

Démarrer Microsoft Office Access 2010 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 " et "A" et appuyez sur "Supprimer" pour supprimer tout le code existant.
3

Copier et coller le code ci-dessous dans votre module. Le sous-programme va créer un nouveau tableau , ajouter des enregistrements , pour ensuite interroger plusieurs domaines. La requête va afficher plusieurs valeurs de ces champs et les afficher dans une boîte de message .

AccessMultipleQueryValues ​​Private Sub ()

Dim dbs As Database

rst As Recordset < br >

strSQL Dim As String

Dim X As Integer

Set dbs = CurrentDb

strSQL = "Créer des multipleValues ​​TABLE ( Champ1 TEXT, TEXT Field2 , Field3 TEXTE ) , "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO multipleValues ​​( champ1 , champ2 , Field3 ) "

strSQL = strSQL &" VALUES ( 'row field1Data 1 ',' field2Data ligne 1 »,« field3Data ligne 1 '); "

DoCmd.SetWarnings Faux

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO multipleValues ​​( champ1 , champ2 , Field3 ) "

strSQL = strSQL &" VALUES ( 'row field1Data 2', 'row field2Data 2', 'row field3Data 2') ; "

Docmd . Avertissements Faux

DoCmd.RunSQL ( strSQL )

strSQL = "INSERT INTO multipleValues ​​( champ1 , champ2 , Field3 ) "

strSQL = strSQL & " VALUES ( 'row field1Data 3 ',' field2Data ligne 3 »,« field3Data rangée 3 '); "

DoCmd.SetWarnings faux

DoCmd.RunSQL ( strSQL )

strSQL =" SELECT multipleValues . * à partir de multipleValues ​​"

strSQL = strSQL & " WHERE multipleValues.Field1 = ' field1Data ligne 2 '; "

Set rst = dbs.OpenRecordset ( strSQL )

rst . MoveLast

rst.MoveFirst

Pour X = 0 To rst.RecordCount - 1 x

MsgBox " Rubrique1 données: " . & rst.Fields (0) Value & " , FIELD2 données: " . _

& rst.Fields (1 ) Valeur &", field3 données: . "& rst.Fields (2) Valeur

rst.MoveNext
< p> Suivant X

rst.Close

dbs.Close

End Sub
4

Appuyez sur " F5 " pour exécuter votre routine .