今、テーブル（テーブルＡとする）があります。レコードは１つだけあります。
ここには項目毎に会社毎の最後に発行した伝票番号を入れるようにしています。
やりたことはフォーム上の「フォームの項目１」の値をテーブルＡの「テーブルの項目１」に書き換えを
更新クエリを作って、そこからクエリの実行という形ではなく
ＶＢＡの書式の中だけで実現したいです。
どのように書けばよろしいでしょうか？
言い換えると
UPDATE テーブルＡ SET テーブルＡ.テーブルの項目１ = [Forms]![フォーム名]![フォームの項目１];
をクエリの作成を行わずＶＢＡだけで実行させる方法が知りたい。ということです。
上記を書くとＶＢＡ上では赤く表示され、コンパイルエラーとなってしまいます。
よろしくお願い致します。
No.1
289
51
100pt
前回に引き続きDAOでいいのかしら？
レコードは１つだけあるという前提よ。レコードが１つも無ければエラーになるわ。
フォームが閉じていてもエラーになるから気を付けてね。
Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("テーブルA") rs.MoveFirst rs.Edit rs.テーブルの項目１= [Forms]![フォーム名]![フォームの項目１] rs.Update rs.Close Set rs = Nothing Set db = Nothing
1
1
1
1
1
17
17
その方法がありましたね！
2014/06/18 00:35:21完璧なご回答ありがとうございました＾＾ｖ