Aprire il database di Access Northwind di Microsoft Office . Il database Northwind è incluso nella suite Microsoft Office .
2
Fare clic su " Strumenti di database ", quindi selezionare " Visual Basic " per aprire la finestra di Microsoft Visual Basic . Fare clic sul campo "Inserisci" e selezionare "Modulo ".
3
Copia e incolla il seguente codice nel nuovo modulo da utilizzare " Fornitore A" come variabile in una query di selezione e visualizzazione il nome e il cognome di " Fornitore A" :
userQueryVariables private Sub ()
Dim strSQL As String
Dim rst come Recordset
Dim dbs As Database Dim
fornitore As String
fornitore
= " fornitore A"
Set dbs = CurrentDb
strSQL = "SELECT Suppliers.Company , fornitori . [ Cognome ] , Fornitori . [ Nome ] "
strSQL = strSQL & " da fornitori "
strSQL = strSQL & " WHERE ( ( ( Suppliers.Company ) = ' " & ( fornitore ) & " ')); "
Set rst = dbs.OpenRecordset ( strSQL ) per
rst.MoveLast
rst.MoveFirst
Debug . stampa ( fornitore & " Informazioni: " ) per
Do While Not rst.EOF
Debug.Print ( " Nome: " . & rst.Fields ( 2) Valore ) per
Debug.Print ( "Cognome : " . & rst.Fields ( 1) Valore ) per
rst.MoveNext
loop
End
Sub
4
Premere " F5 " per eseguire la subroutine .
Programmazione © www.354353.com