照会で最大値の代わりに複数の行が返される

Question

私は関連するフィールドEFTRecID、EFTRecIDNum、およびCreatedByを持つAccessテーブルを持っています。 EFTRecIDNumは自動番号フィールドで、EFTRecIDは "CE" & EFTRedIDNumの必要なフォーマットを連結します。私は現在のユーザーによって作成されたEFTRecIDフィールドで最高値を返そうとしています。これを行うには、Max（EFTRecIDNum）WHERE Created = my nameというサブクエリを実行しようとしています。しかし、maxを返す代わりに、私の名前ですべての値を返しています。私はEFTRecIDNumフィールドをフォーマットするためにformatオプションを使うことができますが、CE456のフォーマットで検索できる必要があります。

TL; DR：クエリは、自分の名前で最大ではなく、自分の名前ですべてのレコードを返します。使用

Public Sub DownloadMyRecords() 

    Dim intI As Integer 'Used for looping in a variety of locations 

    strSQL = "SELECT EFTRecID FROM tblEFTRec WHERE (SELECT MAX(EFTRecIDNum) FROM tblEFTRec WHERE CreatedBy = '" & Application.UserName & "')" 

    Set cnn = New ADODB.Connection 

    With cnn 
     .Provider = "Microsoft.ACE.OLEDB.12.0;Data Source=" & dbLocation & "\" & dbName & ";Jet OLEDB:Database Password=" & DBPWord 
     .Open dbLocation & "\" & dbName 
    End With 

    Debug.Print strSQL 

    Set rst = New ADODB.Recordset 
    rst.CursorLocation = adUseServer 
    rst.Open Source:=strSQL, ActiveConnection:=cnn, _ 
      CursorType:=adOpenForwardOnly, LockType:=adLockOptimistic, _ 
      Options:=adCmdText 

    Debug.Print (rst.GetString) 

    rst.Close 
    cnn.Close 
    Set rst = Nothing 
    Set cnn = Nothing 

End Sub 

Answer 1

代わりに、このSQL文を試してみてください。

strSQL = "SELECT EFTRecID 
FROM tblEFTRec 
WHERE EFTRecIDNum = (SELECT MAX(EFTRecIDNum) FROM tblEFTRec WHERE CreatedBy = '" & Application.UserName & "')" 

Answer 2

試してみてください。

"SELECT EFTRecID FROM tblEFTRec 
WHERE EFTRecIDNum = (SELECT MAX(EFTRecIDNum) FROM tblEFTRec 
    WHERE CreatedBy = '" & Application.UserName & "')" 

は動作しません、次の理由がありますか？

"SELECT MAX(EFTRecID) FROM tblEFTRec 
WHERE CreatedBy = '" & Application.UserName & "'"