ms-access - TOP値クエリのプロンプト

Question

「x」個のエントリのランダム リストを選択するクエリを作成しています。クエリを実行するたびにクエリが返す値の数を変更できるようにしたいと考えています。

毎回クエリ デザインを開くのではなく、TOP の戻り値を要求することはできますか?

SELECT TOP 50 *
FROM [MyTableName]
ORDER BY Rnd([SomeNumber]);

Answer 1

残念ながら、最も明白なアプローチ、つまり...

PARAMETERS RowsToReturn Long;
SELECT TOP [RowsToReturn] *
FROM MyTableName
ORDER BY Rnd([SomeNumber]);

...うまくいきません。Access は、SQL クエリが無効であると訴えます。

私がアプローチする方法は、次のような小さな VBA 関数を作成し、RunCodeアクションを使用してそれを呼び出すマクロを作成することです。

Public Function buildRandomTopN()
'
' assumes that the table has an AutoNumber primary key named [ID]
'
Dim rowsToReturn As Long, cdb As DAO.Database, qdf As DAO.QueryDef
Const queryName = "randomTopN"  ' existing QueryDef to update

On Error Resume Next
rowsToReturn = CLng(InputBox("Number of rows to return"))
If Err.Number = 0 Then
   On Error GoTo 0
   If rowsToReturn > 0 Then
      Set cdb = CurrentDb

      ' update the SQL statement for the query
      Set qdf = cdb.QueryDefs(queryName)
      qdf.SQL = "SELECT TOP " & rowsToReturn & " * FROM [MyTableName] " & _
          "ORDER BY Rnd([ID])"
      qdf.Close
      Set qdf = Nothing
      Set cdb = Nothing

      ' open the query
      DoCmd.OpenQuery queryName
   End If
End If
End Function