Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3714 / 9994

←次へ　｜　前へ→


	【9538】社員名だけ固有にしたい。

よっくん

- 07/6/9(土) 15:48 -


	引用なし

	パスワード

テーブル　　　　　　フィールド
社員名テーブル　　：社員名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

283 hits

▼

【9538】社員名だけ固有にしたい。 よっくん 07/6/9(土) 15:48