access2007

質問

アクセス初心者です。

アクセスのテーブルからクエリを作っていますがわからないので教えてください。

下記の様なテーブルがあり

ＩＤ番号　　　　氏名　　　　名称　　　　　枝番　
10000　　　　　大山　　　作業場　　　　　２
10000　　　　　大山　　　事務所　　　　　１
10000　　　　　大山　　　作業場　　　　　４
10000　　　　　大山　　　自宅　　　　　　　３
10005　　　　　片山　　　作業場　　　　　２
10005　　　　　片山　　　事務所　　　　　１
10005　　　　　片山　　　作業場　　　　　４
10005　　　　　片山　　　自宅　　　　　　　３
10005　　　　　片山　　　作業場　　　　　５

クエリで以下の様に枝番の最大値を見て枝番が最大値の「名称」だけを抽出したい
ＩＤ番号　　　　氏名　　　　名称　　　　　枝番　
10000　　　　　大山　　　作業場　　　　　４
10005　　　　　片山　　　作業場　　　　　５

枝番は最新の情報が大きな数字です。
実行後には枝番は表示させず、ＩＤ番号と氏名、名称だけ表示させます。

抽出条件の部分にselect MAX(枝番) from テーブル名;
と記載しましたが、
「サブクエリの指定が正しくありません。サブクエリはかっこで囲んで指定してください」
というエラーメッセージが出ます。

どこをどう触ればいいかわからないのでご教授ください。

回答No.2

山田 太郎（@f_a_007） · ベストアンサー

SELECT
　　ID,
　　氏名,
　　名称
FROM
　　[SELECT
　　　　　　DLookup("ID", "T1", 氏名='" & [氏名] & "' AND 枝番=" & [枝番の最大]) AS ID,
　　　　　　氏名,
　　　　　　DLookup("名称", "T1", 氏名='" & [氏名] & "' AND 枝番=" & [枝番の最大]) AS 名称,
　　　　　　Max(枝番) AS 枝番の最大
　　FROM T1
　　GROUP BY T1.氏名]. AS [%$##@_Alias];

以上のSQL文で目的は達成できます。

■簡略化のポイント：

SELECT
　　　　DBLookup("SELECT ID FROM T1 WHERE 氏名='" & [氏名] & "' AND 枝番=" & [枝番の最大]) AS ID,
　　　　氏名,
　　　　DBLookup("SELECT 名称 FROM T1 WHERE 氏名='" & [氏名] & "' AND 枝番=" & [枝番の最大]) AS 名称,
　　　　Max(枝番) AS 枝番の最大
FROM T1
GROUP BY T1.氏名];

　それは、Access の DLookup()関数を使うことです。そうすれば、サブクエリを利用しなくても条件に合致するレコードの＜ID、氏名、名称、枝番の最大＞を取得することができます。その後に、その SELECT文をサブクエリにすると超簡単ですよ。

■DLookup()の代替関数のお勧め：

　DLookup("ID", "T1", 氏名='" & [氏名] & "' AND 枝番=" & [枝番の最大]) AS ID
　　↓
　DBLookup("SELECT ID FROM T1 WHERE 氏名='" & [氏名] & "' AND 枝番=" & [枝番の最大]) AS ID

　簡略化のポイントでは、ＤＢｌｏｏｋｕｐ()を利用しています。

Public Function DBLookup(ByVal strQuerySQL As String, _
　　　　　　　　　　　　　　　　Optional ByVal ReturnValue = Null) As Variant
On Error GoTo Err_DBLookup
　　Dim DataValue
　　Dim rst　As ADODB.Recordset

　　Set rst = New ADODB.Recordset
　　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

T1⇒業務内容に！

【注意】

１、テーブル構造には大きな問題点があります。
２、最大値が重複した場合の戻り値は保証されません。

１は、単なる練習であれば無視していいです。業務用の雛形だと改善すべきです。

お礼

ご丁寧に教えていただきありがとうございます！
興奮して下記のＳＱＬ文をコピペしてみましたが
「かっこの使い方が正しくありません」と表示されます。
どうしてでしょうか・・・

SELECT
　　ID,
　　氏名,
　　名称
FROM
　　[SELECT
　　　　　　DLookup("ID", "T1", 氏名='" & [氏名] & "' AND 枝番=" & [枝番の最大]) AS ID,
　　　　　　氏名,
　　　　　　DLookup("名称", "T1", 氏名='" & [氏名] & "' AND 枝番=" & [枝番の最大]) AS 名称,
　　　　　　Max(枝番) AS 枝番の最大
　　FROM T1
　　GROUP BY T1.氏名]. AS [%$##@_Alias];

回答No.3

山田 太郎（@f_a_007）

補足：図を添付しておきます。

回答No.1

山田 太郎（@f_a_007）

SQL文を提示したがいいですよ。

SELECT
　　　　ID,
　　　　氏名,
　　　　名称
FROM
　　　　[SELECT ・・・
　　　　FROM T1
　　　　GROUP BY T1.氏名]. AS [%$##@_Alias];

このようにサブクエリは[]で囲むのが決まりです。

補足

コメントありがとうございます。
アクセスが全くの素人なのでどこを触ればいいのかが全く分かりません。
素人でも分かるように教えていただけないでしょうか？

ちなみに使用しているテーブル名は「業務状況」
です。
「Ｔ１」というのは何を示しているのでしょうか？