Private Sub Cmdcity_Click( )
Dim db As Database
Dim qdf As QueryDef
Dim strSQL As String
Set db = CurrentDb
Set qdf = db.QueryDefs( "results" )
strSQL = "SELECT SaleComps.* " & _
"FROM SaleComps " & _
"WHERE SaleComps.City Like '*" & InputBox("Enter City") & "*' " & _
"ORDER BY SaleComps.file"
qd
Hi. I have an Access 97 query shown here:
SELECT SaleComps.*
FROM SaleComps
WHERE (((SaleComps.City) Like [Enter City] & "*"));
This allows me to enter the first few letters of a city name and the search
will display all records matching those letters and anything else that
follows them.
How
