人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

accessのVBAで質問です。

今、テーブル(テーブルAとする)があります。レコードは1つだけあります。
ここには項目毎に会社毎の最後に発行した伝票番号を入れるようにしています。

やりたことはフォーム上の「フォームの項目1」の値をテーブルAの「テーブルの項目1」に書き換えを
更新クエリを作って、そこからクエリの実行という形ではなく
VBAの書式の中だけで実現したいです。
どのように書けばよろしいでしょうか?


言い換えると

UPDATE テーブルA SET テーブルA.テーブルの項目1 = [Forms]![フォーム名]![フォームの項目1];

をクエリの作成を行わずVBAだけで実行させる方法が知りたい。ということです。
上記を書くとVBA上では赤く表示され、コンパイルエラーとなってしまいます。
よろしくお願い致します。

●質問者: syo777
●カテゴリ:コンピュータ インターネット
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● 井戸端さん
●100ポイント ベストアンサー

前回に引き続きDAOでいいのかしら?
レコードは1つだけあるという前提よ。レコードが1つも無ければエラーになるわ。
フォームが閉じていてもエラーになるから気を付けてね。

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("テーブルA")

rs.MoveFirst
rs.Edit
rs.テーブルの項目1= [Forms]![フォーム名]![フォームの項目1]
rs.Update

rs.Close
Set rs = Nothing
Set db = Nothing

syo777さんのコメント
その方法がありましたね! 完璧なご回答ありがとうございました^^v
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ