Query to limit number of rows returned with user input (1 Viewer)

[stanwil]

Hi, I have an access query in which I would like users to input the number of rows returned.

Thanks

 

[jdraw]

see this for info.

 

[Ranman256]

select TOP 10 table.* from table

so put a box on a form then the query is:
sSql = "select TOP " & me.txtLimit & " table.* from table"

save it to the query:

dim qdf as querydef
set qdf = currentdb.querydefs("qsMyQry")
qdf.sql =sSql
qdf.close
docmd.openquery qdf.name