| |
テーブル フィールド
社員名テーブル ：社員名ID、社員名、社員名フリガナ、削除フラグ
ステータステーブル：ステータスID、ステータス名、ステータスフラグ
日付テーブル ：日付ID、社員名ID、ステータスID、日付、
様子伺いの担当者、備考（帰社した期間）
SQL文で、図２のように社員名だけ固有化して図２のように表示させたいので
すが、図１のように社員名とステータス名が固有化されてしまい図１のように
表示されてしまいます。どうしたらいいのですか。
教えてください。お願い致します。
社員名：ステータス名： 日付
図１
佐藤 ： 帰社 ：５月１０日
佐藤 ： 様子伺い ：５月８日
佐藤 ： 出向 ：５月１日
↓
社員名：ステータス名： 日付
図２
佐藤 ： 帰社 ：５月１０日
Dim adoCON As ADODB.Connection
Dim adoRS As ADODB.Recordset
Set adoCON = Application.CurrentProject.Connection
Set adoRS = adoCON.Execute("SELECT 社員名テーブル.社員名, ステータステ
ーブル.ステータスフラグ, 社員名テーブル.削除フラグ, Max(日付テーブル.
日付) AS 日付の最大, ステータステーブル.ステータス名 FROM (ステータス
テーブル INNER JOIN 日付テーブル ON ステータステーブル.ステータスID =
日付テーブル.ステータスID) INNER JOIN 社員名テーブル ON 日付テーブル.
社員ID = 社員名テーブル.社員ID GROUP BY 社員名テーブル.社員名, ステー
タステーブル.ステータスフラグ, 社員名テーブル.削除フラグ, ステータステ
ーブル.ステータス名 HAVING (((ステータステーブル.ステータスフラグ)=Yes
) AND ((社員名テーブル.削除フラグ)=No));")
Do Until adoRS.EOF = True
MsgBox (adoRS!日付の最大)
adoRS.MoveNext
Loop
adoRS.Close
adoCON.Close
Set adoRS = Nothing
Set adoCON = Nothing
End Sub
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
- 07/6/9(土) 15:48 -
