| |
クロ様
>う〜ん構成が見えない...
わかりづらい説明で申し訳ありません。
>選択フィルタとはツールバー(あるいは右クリックで出るもの)の何れでしょうか？
>VBAを利用しているのでしょうか？
選択フィルタは、ツールバーにある上戸に雷の様なマークのボタンの事です。
そのツールバーの選択フィルタを使って、VBAでSQL文のwhere句を作って
選択されたリストの店舗数をフォームヘッダのテキストボックスに
表示したいと考えております。
フォームのレコード移動時のイベントに記述してある
VBAは下記のようになっています。
−−−−−−−−−−−−−−−−−−−−−−−−−−
Dim obj As New ADODB.Recordset
Dim db As DAO.Database
Dim QDef As DAO.QueryDef
Dim SQL As String
Dim SQLfilter As String
Set db = CurrentDb
SQL = ""
SQLfilter = ""
SQLfilter = Me.Filter
SQL = "SELECT Count(*) AS 完了予定数"
SQL = SQL & " FROM [select 完了予定.店舗"
SQL = SQL & " FROM 完了予定"
If SQLfilter <> "" Then
SQL = SQL & " where " & SQLfilter
End If
SQL = SQL & " GROUP BY 完了予定.店舗]. AS 完了予定;"
Set QDef = db.QueryDefs("完了予定クエリ")
QDef.SQL = SQL
Set QDef = Nothing
Set db = Nothing
obj.OPEN "完了予定クエリ", CurrentProject.Connection, adOpenStatic
Me!text_店舗数 = obj!完了予定店舗数
obj.Close
−−−−−−−−−−−−−−−−−−−−−−−−−−
>フォームの既定のビュー
>レコードソースとなるテーブル・クエリの構成
レコードソースとなるテーブルの構成は
ID｜店舗｜su1｜su2｜su3｜・・・・
と言う具合になっておりまして、店舗には店舗名がテキストで
su1〜su3はコンボボックスで社員テーブルとリンクされております。
このsu1〜su3のコンボボックスで社員を選択フィルタで抽出し、その時の店舗を
グループ化した件数を取得したいと考えております。
>条件を入れるテキストボックスなどはフォームのどの位置にありますか？
条件を入れるテキストボックスは存在しておりません。
選択フィルタで選択されるのみの条件です。
あ、仮にSQL文を表示させるテキストボックスはフォームヘッダにあります。
|
|
なおなお
- 05/6/21(火) 13:11 -
