accessのVBAで質問です。
今、テーブル（テーブルＡとする）があります。レコードは１つだけあります。
ここには項目毎に会社毎の最後に発行した伝票番号を入れるようにしています。
やりたことはフォーム上の「フォームの項目１」の値をテーブルＡの「テーブルの項目１」に書き換えを
更新クエリを作って、そこからクエリの実行という形ではなく
ＶＢＡの書式の中だけで実現したいです。
どのように書けばよろしいでしょうか？
言い換えると
UPDATE テーブルＡ SET テーブルＡ.テーブルの項目１ = [Forms]![フォーム名]![フォームの項目１];
をクエリの作成を行わずＶＢＡだけで実行させる方法が知りたい。ということです。
上記を書くとＶＢＡ上では赤く表示され、コンパイルエラーとなってしまいます。
よろしくお願い致します。
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
ログインして回答する
ベストアンサー
-
井戸端さん
満足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
-
その他の回答
この質問へのコメント
質問の情報
- 登録日時
- 2014-06-17 20:40:39
- 終了日時
- 2014-06-18 00:35:38
- 回答条件
- 1人5回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
SPO（https://…）のドキュメントライブラリ内にVBAでフォルダを作成する方法 ドライブレターが付与された…
keijun5145
-
こんにちは。 学生です。友達が学校にスマホを持ってきているんです。私は正義感が強いので見て見ぬふり出…
匿名質問者
1
-
統計に関する素人による質問です。 大きなバラつきがあるごちゃごちゃのデータ群に関して、標準偏差を計算…匿名質問者1
1
1
-
日本政治家が、中国企業からお金を貰い、日本人の税金を使い、中国商品１つにつき補助金８０万円とかで配布…匿名質問者1
-
蒙古襞形成術で、目を小さくするという手術はありますが、どれくらいの小ささになるのでしょうか。目の間を…匿名質問者1