1
Abra la base de datos Access Northwind Microsoft Office. La base de datos Northwind se incluye en la suite de Microsoft Office.
2 Haga clic en " Herramientas de base de datos " y seleccione "Visual Basic " para abrir la ventana de Microsoft Visual Basic . Haga clic en el campo " Insertar" y seleccione " Módulo ".
3
Copia y pega el siguiente código en el nuevo módulo de utilizar " Proveedor A" como una variable en una consulta de selección y visión el primer nombre y el apellido de " Proveedor A":
userQueryVariables Private Sub ( ) guía
strSQL As String Dim
rst As Recordset
Dim dbs As Database
proveedor Dim As String
proveedor = " proveedor A"
Set dbs = CurrentDb
strSQL = " SELECT suppliers.Company , Proveedores . [ Apellido ] , Proveedores . [ Nombre ] "
strSQL = strSQL &" de los proveedores "
strSQL = strSQL &" WHERE ( ( ( suppliers.Company ) = '"& (proveedor ) & " " )); "
Set rst = dbs.OpenRecordset ( strSQL )
rst.MoveLast
rst.MoveFirst
Debug . impresión (proveedor y "Información :")
Do While Not rst.EOF
Debug.Print ( "Nombre : " . y rst.Fields ( 2 ) Value)
Debug.Print ( "Last Name : " . y rst.Fields ( 1 ) Value)
rst.MoveNext
Loop End Sub
4
Press "F5 " para ejecutar la subrutina .