Access

サブフォームに表示のテーブル内容を更新する(Access)

2019年11月19日

在庫管理システムを作りまして、ポツポツ改造しています。

下記のようにサブフォームを使ったフォームを作っていますが、このサブフォームの該当行をダブルクリックすることによってそのレコードの内容を更新する、ということをやってみました。

ここでは、「処理を削除する」 ⇨ 「削除フラグをTrueにする」を該当する行にてフィールド「入出庫」をダブルクリックすると「削除」がTrueになり、チェックが入ります。

詳細は在庫管理システムの記事⇩を参照ください。ここでは、中核の部分だけ記しておきます。

オーダーメイドの自動管理システムでさまざまな問題を解決!! サブフォームに表示のテーブル内容を更新する(Access)

VBAソースコード

	Dim rs As DAO.Recordset
	Set rs = CurrentDb.OpenRecordset("メイン", dbOpenDynaset) 'dbOpenDynasetは重要です
	With rs
		.FindFirst "ID=" & Me!ID 'テーブルのキーコード(ここではID)を指定する
		.Edit '編集を宣言
		.Fields("削除") = True 'テーブル「メイン」のフィールド「削除」を変更する
		.Update 'これがないとテーブルがアップデートされない。重要。
	End With
	Set rs = Nothing

参考

テーブル「メイン」は⇩のような入出庫のテーブルです。詳細は在庫管理システムを参照ください。

IDオートナンバー型
日付日付/時刻型
社員コード数値型
部品コード数値型
入出庫コード数値型
数量数値型
単位コード数値型
削除Yes/No型
削除日付日付/時刻型

-Access

Please disable your adblocker or whitelist this site!