アクセス VBAでレコードが追加できない

質問

お世話になります。

フォームのボタン（コマンド1）をクリックして
テーブルにレコードを追加したいのですが、うまくいきません。
SQLの引数value（'intNumber'）を実数（例えば'3'）とかにすると
うまく1レコード追加されるのですが、新規レコードとして
連番で追加させたいので困っています。

宜しくお願いします。

Private Sub コマンド1_Click()

Dim dbDao As DAO.Database
Dim stSql As String
Dim intNumber As Integer

intNumber = DMax("[管理ID]", "[テーブル名]") + 1
Set dbDao = CurrentDb

stSql = "insert into テーブル名 (管理ID,管理2,管理3) values ('intNumber','99999','99999');"

dbDao.Execute stSql

dbDao.Close: Set dbDao = Nothing

End Sub

回答No.1

DexMachina · ベストアンサー

stSql = "insert into テーブル名 (管理ID,管理2,管理3) values ('intNumber','99999','99999');"

を、

stSql = "insert into テーブル名 (管理ID,管理2,管理3) values (" & intNumber & ",'99999','99999');"

にしてみて下さい。
(現状だと、「管理ID」に「intNumber」という文字列を設定しようとしている形になっているように
　思います)

お礼

初歩的なところみたいですね。勉強しなおします。
大変助かりました！
ありがとうございました！