MS最後の番号から挿入するアクセスクエリ

Question

VBAを使用してMS Accessにアプローチしようとしています。私がしたいコールの1つは、最後に提供された番号を挿入することです。これは、最後に入力された番号を選択し、それから1つずつ反復する必要があります。私は単にforループでこれを配置して30個のループを作成することができますが、この時点でSQL構文を正しいものにしようとしています。選択された挿入物に問題があるようです。私が受け取っているエラーは、「クエリ入力には少なくとも1つのテーブルまたはクエリが含まれている必要があります」です。

Dim StrSSQL As String 

StrSQL = "INSERT INTO MyQueryTable (MYNUMBER) VALUES((Select top 1 MYNUMBER + 1 from MyQueryTable order by MYNUMBER desc));" 

DoCmd.SetWarnings False 
DoCmd.RunSQL StrSQL 
DoCmd.SetWarnings True 

ただし、簡単な挿入を"INSERT INTO MyQueryTable (MYNUMBER) VALUES(999)"として実行すると問題はありません。

Answer 1

試してみてください。

INSERT INTO MyQueryTable (MyNumber) 
SELECT MAX(MyNumber)+1 
FROM MyQueryTable 

https://msdn.microsoft.com/en-us/library/bb243852(v=office.12).aspx

編集： - 申し訳ありませんが、それを見ていないだけで@Alex K.コメントに似て書いて気づきました。