アクセスのクロス集計の同一データの抽出について

Question

アクセスのクロス集計でデータを整理しようとしていますが、うまくいかないのでご教授願います。
テーブルで以下のようなデータを使用しています。

社員番号　社員　転勤年月日　転勤場所
１       　Ａ　　H19.1.1    横浜市  
１　　　　 Ａ　　H18.4.1    船橋市 
２　　　　 Ｂ　　H18.5.1　　浦和市
３　　　　 Ｃ　　H19.4.1　　船橋市
２　　　　 Ｂ　　H17.4.1　　船橋市
３　　　　 Ｃ　　H18.1.1　　横浜市 

このデータをクロス集計で最新の転勤年月日のみを抽出しようとしたところ、うまくいきません。抽出の条件は、社員番号、社員でグループ化し、転勤年月日を最新にしたところ、転勤場所でも条件を指定しなければならず思うようにいきません。当方としては、転勤年月日と同じ行の転勤場所を抽出したいのです。条件を指定すると、その条件に合ったものが抽出され、転勤年月日と関係のない転勤場所が抽出されてしまいます。
抽出例：Ａさんの場合　H19.1.1　横浜市 

抽出の仕方をお教えください。よろしくお願いします。

CHRONOS_0 · Accepted Answer

なぜクロス集計?
記事を読んでも何を列にするつもりなのかが書かれていませんね
単なる抽出クエリでいいんじゃないの

抽出クエリで転勤年月日の抽出条件欄に

In (select max(転勤年月日) from テーブル名 as A where A.社員番号=テーブル名.社員番号)

CHRONOS_0 · Answer

>回答の抽出条件ですと、テーブル全体の転勤年月日で最新のデータで
>抽出されるのですね。
違います。お望みのものが得られます

>なにぶんアクセス初心者なので、
だったら思い込みだけで判断せず、アドバイスを受けたら一度はやってみなきゃ
で、理由を考える。分からなければ質問する
そうでなきゃ実力はアップしませんよ

noname#140971 · Answer

クエリの回答は最後に書いております。

ID__社員番号____社員___転勤年月日____転勤場所
1_____________1_________A___2004/01/01___横浜市
2_____________1_________A___2003/04/01___船橋市
3_____________2_________B___2003/05/01___浦和市
4_____________3_________C___2004/04/01___船橋市
5_____________2_________B___2002/04/01___船橋市
6_____________3_________C___2005/01/01___横浜市

<tab2 クエリ>
社員番号__社員___最新転勤年月日__転勤場所
__________1______A____2004/01/01_______横浜市
__________2______B____2003/05/01_______浦和市
__________3______C____2005/01/01_______横浜市

《DBLookup関数で逃げる方式》

SELECT DISTINCT 社員番号, 
DBLookup("社員","tab2","社員番号=" & 社員番号) AS 社員, 
DBLookup("Max(転勤年月日)","tab2","社員番号=" & 社員番号) AS 最新転勤年月日, 
DBLookup("転勤場所","tab2","社員番号=" & 社員番号 & " AND 転勤年月日=#" & 最新転勤年月日 & "#") AS 転勤場所
FROM tab2
ORDER BY 社員番号;

社員番号を DISTINCT で一つだけ抽出し、対応する[社員]、[転勤年月日]、[転勤場所]をDBLookup関数で抽出しています。

Public Function DBLookup(ByVal strField As String, _
　　　　　　　　　　　　 ByVal strTable As String, _
　　　　　　　　　　　　 Optional ByVal strWhere As String = "", _
　　　　　　　　　　　　 Optional ByVal ReturnValue = Null) As Variant
 On Error GoTo Err_DBLookup
　　 Dim DataValue
　　 Dim strQuerySQL As String
　　 Dim rst　　　　 As ADODB.Recordset

　　 Set rst = New ADODB.Recordset
　　 strQuerySQL = "SELECT " & strField & " FROM " & strTable
　　 If Len(strWhere) > 0 Then
　　　　 strQuerySQL = strQuerySQL & " WHERE " & strWhere
　　 End If
　　 With rst
　　　　 
　　　　 .Open strQuerySQL, _
　　　　　　　 CurrentProject.Connection, _
　　　　　　　 adOpenStatic, _
　　　　　　　 adLockReadOnly
　　　　 If Not .BOF Then
　　　　　　 .MoveFirst
　　　　　　 DataValue = .Fields(0)
　　　　 End If
　　 End With
Exit_DBLookup:
 On Error Resume Next
　　 rst.Close
　　 Set rst = Nothing
　　 DBLookup = Nz(DataValue, ReturnValue)
　　 Exit Function
Err_DBLookup:
　　 MsgBox "SELECT 文の実行時にエラーが発生しました。(DBLookup)" & Chr$(13) & Chr$(13) & _
　　　　　　"・Err.Description=" & Err.Description & Chr$(13) & _
　　　　　　"・SQL Text=" & strQuerySQL, _
　　　　　　vbExclamation, " 関数エラーメッセージ"
　　 Resume Exit_DBLookup
End Function

《クエリをちゃんと作る方式》

SELECT tab2.社員番号, tab2.社員, tab2.転勤年月日, tab2.転勤場所
FROM 
[SELECT 社員番号, MAX(転勤年月日) AS 最新転勤年月日　FROM tab2 GROUP BY 社員番号]. AS tab3
LEFT JOIN tab2
ON (tab3.社員番号=tab2.社員番号) AND (tab3.最新転勤年月日=tab2.転勤年月日);

実行結果は、双方とも同じです。

《DBLookup関数で逃げる方式》と《クエリをちゃんと作る方式》とをどちらを採用するかは好みの問題かと思います。
ただ、前者は誰でも可能、後者はSQL文に対する馴れみたいなものが要求されると思います。
よって、私は、後任スタッフの事を考えて大概が前者で済ましています。

アクセスのクロス集計の同一データの抽出について

なぜクロス集計?

この回答への補足

>回答の抽出条件ですと、テーブル全体の転勤年月日で最新のデータで

クエリの回答は最後に書いております。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング