VBでDmax関数が使えないのですが (ID:107073)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんちは。 ちょっと始めのほうは省略しますが、Recordsetに設定するSQL文を下記のように変更しちゃったらどうですか？ strSQL = "SELECT Max(" & TableName & ".シリアルNo) AS MAX_NUM FROM " & TableName Set rs2 = DB.OpenRecordset(strSQL, dbOpenDynaset) If NOT rs2.EOF Then x = rs2!MAX_NUM + 1 Else x = 1 End If いかがでしょう？