Microsoft Access 掲示板

クエリのデザインビューで目的のクエリを作成して、SQLビューに切り替えて確認してみるといいですよ

エラーメッセージが謎すぎますよねぇ
元（英語）のエラーメッセージはタブン「You tried to execute a query that does not include the specified expression <name> as part of an aggregate function.」で、Google翻訳かけてさらに意訳すると、「集計関数に<name>が存在しないため、クエリを実行できません」といったところでしょう

クエリで集計を行う場合、出力する全てのフィールドで何らかの集計の指定、またはグループ化の指定が必要になります
問題のクエリはグループ化の指定がないため、「氏名」を何らかの集計方法だとして処理しようとして「『氏名』という集計方法はないですよ」とエラーを出しているわけです

SELECT 個人データ.氏名,個人データ.住所,出勤データ.時間, Max(出勤データ.月日) FROM 個人データ INNER JOIN 出勤データ ON 個人データ.jan=出勤データ.jan GROUP BY 出勤データ.jan,個人データ.氏名,個人データ.住所,出勤データ.時間 HAVING 出勤データ.jan = '1000000000016'

とするとエラーは出ませんが、すべてのデータを取得してしまうので、意味がありません。

SELECT 個人データ.氏名,個人データ.住所,出勤データ.時間, 出勤データ.月日 FROM 個人データ INNER JOIN 出勤データ ON 個人データ.jan=出勤データ.jan GROUP BY 出勤データ.jan,個人データ.氏名,個人データ.住所,出勤データ.時間, 出勤データ.月日 HAVING 出勤データ.jan = '1000000000016' and 出勤データ.月日 = Max(出勤データ.月日)

としてみても、エラーは出ませんが全データを取得してしまいます。

どうしたら、よいのでしょうか？

jan = '1000000000016' and 出勤データ.月日 = Max(出勤データ.月日)は、１件しかデータが無いはずだと思うのですが

hirotonさんから回答がある通り、集計関数(Max)を使う場合は、すべてのフィールドに対して、集計の指定をするか、グループ化する必要があります。それがしてないのでエラーになりますね。

1000000000016で登録してある最新の出勤データを取得しようとしたところ、

この要件なら、サブクエリかDMax関数で月日の最大を取得してそれを抽出条件にするか、月日で降順に並べ替えて先頭レコード(TOP 1)を取得することになります。

DMax関数を使う場合のコード例

SELECT TOP 1 個人データ.氏名,個人データ.住所,出勤データ.時間, 出勤データ.月日 AS 月日
FROM 個人データ INNER JOIN 出勤データ ON 個人データ.jan=出勤データ.jan
WHERE
 個人データ.jan = '1000000000016'
 AND 出勤データ.月日 = DMax("月日","出勤データ","jan='1000000000016'")

TOP 1 を使う場合のコード例

SELECT TOP 1 個人データ.氏名,個人データ.住所,出勤データ.時間, 出勤データ.月日 AS 月日
FROM 個人データ INNER JOIN 出勤データ ON 個人データ.jan=出勤データ.jan
WHERE  個人データ.jan = '1000000000016'
ORDER BY 出勤データ.月日 DESC;

Max関数が、VBAのコード内では使用できないことは分かりました。
ところが、Dmaxでもmaxでも、
Sub または Function が定義されていません。
と表示されて、先に進みません。

単純に
Dim myMax As Variant

     myMax = DMax("月日", "出勤データ", "jan='1000000000016'")
      MsgBox myMax
としても、同じエラーが出ます。

EXCEL2016で、Ofiice 16.0 objectと、Active X　6.1はには、チェックが入っている状態です。

何故なのでしょうか？

Excelワークシート関数かもしれないので、WorksheetFunction.を試してみましたが、
型が一致しませんになりました。
月日は、ACCESSに日付/時刻型で登録してあります。

おさわがせしました。
タイプミスでした。
hatenaさんはじめ、有難うございました。

追加の質問で申し訳ないです。
今、思いついたのですが、個人データに在職のフィールドを用意しておけば、
GROUP BYで在職をグループ化して、一括でデータを集計する事が可能になるのでしょうか？

おかげさまで、解決いたしました。
現在、〇番目のデータを取得する方法に取り組んでいます。
一度、EXCELに書き出してしまえば造作もないことなのですが、それは避けたいと思っております。
解決できなかったら、またお願い致します。

現在、〇番目のデータを取得する方法に取り組んでいます。

TOP 1 で1番目のレコードを取得する方法は既に回答してますので、それの応用で、
例えば５番目のレコードを取得するなら、TOP 5 で上位５番目までのレコードを取得するSQLを記述して、
それをサブクエリにして Top 1 で１番目を取得するようにすればいいでしょう。

ありがとうございます。
TOP 5 をDESCで取得して、TOP 1はASCという感じですね。
さっそく、試してみますが、ひとつ気になる事があります。
Dcountなどで、クエリでカウントしようとすると、データによってはドッコイショという感じになるのです。
サブクエリを使っても同じ感じです。

なので、DAOで日付を降順で連番をふりつつ、
ターゲットになる順位がでてきたら、LOOPを抜けるようにした方が効率的なのかと思ってコードを書き始めたのですが、
DAOは、省エネにつながるのでしょうか？

ACCESSはよく分からないので、EXCELLにしがみついている状態なのですが、
最近EXCELLから離れろという幻聴が聞こえる回数が増えてきて、
尻込みしております。

なので、DAOで日付を降順で連番をふりつつ、
ターゲットになる順位がでてきたら、LOOPを抜けるようにした方が効率的なのかと思ってコードを書き始めたのですが、
DAOは、省エネにつながるのでしょうか？

段違いに高速化されるはずです。

自動でDAOを使用して連番をふる汎用関数を下記で紹介してますので、ご参考に。

グループ毎連番を自動入力する関数

クエリで連番を表示する場合、DCount関数やサブクエリを利用する方法はあちこちで紹介されています。 しかし、この方法は自分より前のレコード件数をカウントするというロジックなのでレコード件数が多くなると幾何級数的に重くなります。また、グループ毎に連番を振るという仕様になると、条件式も複雑になってきます。 クエリは使わずにテーブルに連番フィールドを持たせて、そこに VBA で連番を書きこむようにすると高速...

fc2

ありがとう!!!!!
実は、とりあえず連番を振ろうと思い、コードをひとつ書いてみたのですが、

Sub dao()

    Dim DB As dao.Database 'Databaseオブジェクトを扱う変数（DB）を宣言
    Dim rst As dao.Recordset 'Recordsetオブジェクトを扱う変数（RS）を宣言
    Dim strSQL As String
    Dim i As Long

    strFileName = "出勤 - コピー.accdb"
    Set daoCn = DBEngine.Workspaces(0).OpenDatabase("C:\Users\tasuk\Desktop\VBA\経理\出勤\" & strFileName)

    jan = "1000000000016"

    strSQL = "SELECT 個人データ.氏名,出勤データ.月日 FROM 個人データ INNER JOIN 出勤データ ON 個人データ.jan=出勤データ.jan WHERE  出勤データ.jan = '1000000000016' ORDER BY 出勤データ.月日 DESC" '古い順はASC

    Set daoRs = daoCn.OpenRecordset(strSQL, dbOpenDynaset) 'ADOレコードセットオブジェクトを作成

    If daoRs.RecordCount <> 0 Then
        i = 1
         Do
          daoRs.Edit
          daoRs!番号 = i
          daoRs.Update
          i = i + 1
          daoRs.MoveNext
         Loop Until daoRs.EOF = Rtrue
    End If
     daoRs.Close
End Sub

daoRs!番号のところで、このコレクションには項目がありませんのメッセージが、
出勤 - コピー.accdbには、番号のフィールドを追加しておいたのに
ということで、困っていたのです。

さっそく読ませていただきます。

読ませていただいて、早速役に立ちました。
SELECT以下の部分に、出勤データ.番号が必要だったのですね。
EXCELL VBAを使ってSQLを動かす情報は、極端に少なくなるので、本当に助かりました。
引き続き、ヒットしたデータを取得してLOOPを抜けるコードを追加してみます。