タークン
2023/08/24 (木) 12:02:47
33fc6@2705a
adoCn.Execute strSQL
を
daoCn.Execute strSQL
に変えるだけで良かったのですね。
strSQL = "SELECT TOP " & i2 & Cd & " FROM " & Tn & " WHERE " & Sc & " ORDER BY 出勤データ.月日 DESC" '降順でi2番目までのデータを取得
strSQL = "SELECT TOP 1 * FROM (" & strSQL & ") ORDER BY 出勤データ.月日" '上記のデータから昇順で1番目のデータを取得(結局降順でi2番目のデータ)
にした方が、並べ替えるだけなので、早いと思います。
色々と、有難うございました。
通報 ...