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.
