Access フォームのレコードソースで定数を使う

Question

Accessのフォームに表示されるデータを、定数を使って絞り込みたいです。
定数は標準モジュールに定義しています。

（標準モジュール）
Public Const startid As Integer = 2
Public Const endid As Integer = 4

下記のテーブルがあり

下記のようにidを2～４まで絞りこんで表示したいです。

レコードソースに定数を記述できるのでしょうか。
between 2 and 4 の部分を　between startid and endid に変更しても
「パラメータの入力」となり、できませんでした。

よろしくお願いします。

Answer 1

他の方の回答とかぶりますが、下記のようにFunctionにしておいて、

（標準モジュール）

Private Const c_startid As Integer = 2
Private Const c_endid As Integer = 4

Public Function startid() As Integer
    startid =  c_endid
End Function

Public Function endid() As Integer
    endid = c_endid
End Function

それをSQLから呼び出すことになります。

SELECT * FROM [Table]
WHERE [Table].ID between startid() and endid();

ただ、未来永劫この定数を変更しないならそれでもいいですが、変更する可能性があるなら、
テーブルに格納しておいてそれを参照するような設計にした方がいいでしょう。

テーブル名 ​T_Const

CName	CValue
startId	2
endId	4

SELECT * FROM [Table]
WHERE [Table].ID between DLookup("CValue","​T_Const","CName='startID'") and DLookup("CValue","​T_Const","CName='endID'");

Comments

[mnbwqz]

ありがとうございます。
関数を使う方法で対応できるのですね。
テーブルに格納した値を使う方法もありがとうございます。

Answer 2

先輩や上司に怒られそうな修正案だけど、

Option Compare Database
Option Explicit

'Public Const startid As Integer = 2
'Public Const endid As Integer = 4

Public Function startid() As Integer
    startid = 2  '固定で返す
End Function

Public Function endid() As Integer
    endid = 4  '固定で返す
End Function

と、
Function startid() で2を返す
Function endid() で4を返す
だけの関数を作成して、

使うときは、

SELECT [テーブル1].ID, [テーブル1].DATA FROM テーブル1
WHERE ((([テーブル1].ID) between startid() and endid() ));

で使う。
※SQL内の条件で関数を呼ぶと、遅くなったりするけど、まぁいっか。
そんなに件数無ければ、、、

下記テストした動画です
https://youtu.be/NODTLXMyasA?t=31
↑暇な時に見て、だめっぷりを笑ってください・・・

もっと、スマートに書けそうな気もしますが、ヒントとなれば幸いです。
※ど外し回答なきもしつつ・・・

Comments

[mnbwqz]

ありがとうございます。
関数を使う方法で対応できるのですね。