Avoir les connaissances nécessaires pour passer des paramètres à partir de Microsoft Excel à une requête dans Microsoft Office Access peut rendre votre application de base de données plus dynamique. Excel est un tableur souvent utilisé pour stocker et analyser de grandes quantités de données. L'accès est un système de gestion de base de données relationnelle utilisée pour la conception de bases de données locales . Visual Basic pour Applications ( VBA) est un langage de programmation informatique utilisé pour automatiser des tâches de routine telles que le passage de paramètres à partir d'Excel à Access. Une requête est utilisée pour récupérer des informations à partir des tables de base de données . Choses que vous devez
Microsoft Office Access
Microsoft Office Excel
Voir Plus Instructions
1

Ouvrez Microsoft Office Excel , tapez " 1" à "A1" , "2" à "B1" et "3" à "C1 ". Enregistrez le classeur en tant que " myExceldata " dans " C: \\" .
2

Démarrer Microsoft Office Access , sélectionnez « base de données Bland " puis cliquez sur "Créer". Sélectionnez le menu "Base de données Outils" et cliquez sur " Visual Basic ". Cliquez sur le menu "Insertion " et sélectionner " Module ".
3

Cliquez sur le menu «Outils» , sélectionnez «Références » et cochez la case à côté de " Microsoft Excel ; Object Library " . Cliquez sur « OK ».
4

Copiez et collez le code VBA suivant pour ouvrir le classeur " myExceldata " . Vous allez utiliser la valeur de "B1 " comme paramètre d'interroger les données de la table " dbAccessTable " créé et afficher la description à travers une boîte de message .

PassExcelParamenters Private Sub ()

Dim strSQL As String

Dim dbs As Database

rst As Recordset

XLSPar As Integer

XLSApp As Excel.Application

XLXBook As Excel.Workbook

XLSSheet As Excel.Worksheet

Set dbs = CurrentDb

Set XLXBook = Workbooks.Add ( Modèle : = " G: \\ myExcelData . xlsx " )

Set XLSApp = XLXBook.Parent

Set XLSSheet = XLXBook.Worksheets ( " Sheet1 " )

XLSSheet

. Range (" B1 " ) . Sélectionnez

XLSPar = Selection.Value

End With

XLXBook.Close

strSQL =" CREATE TABLE dbAccessTable (NOMBRE prod_id , Prodct TEXT) ; "

DoCmd.SetWarnings Faux

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO dbAccessTable ( prod_id , Prodct ) "

strSQL = strSQL & " VALUES ( 1, 'Cars' ) ; "

DoCmd.RunSQL ( strSQL )

strSQL = "INSERT INTO dbAccessTable ( prod_id , Prodct ) "
< p> strSQL = strSQL & " VALUES ( 2, ' Camions '); "

DoCmd.RunSQL ( strSQL )

sqlstr = "SELECT dbAccessTable.Prod_ID , dbAccessTable.Prodct " < br >

sqlstr = sqlstr & "FROM dbAccessTable "

sqlstr = sqlstr & " WHERE ( ( ( dbAccessTable.Prod_ID ) =" & ( XLSPar ) & ")); "

Set rst = dbs.OpenRecordset ( sqlstr )

rst.MoveLast

rst.MoveFirst

MsgBox " La description pour l' ID de produit dans B1 est" & rst . Fields ( 1). Valeur

rst.Close

dbs.Close

End Sub
5

Appuyez sur " F5 " pour exécuter votre sous-programme.