Q&A
このコードはどこに記述してますか。
ひょっとしてフォームのモジュールに記述してますか。コマンドボタンのクリック時とか。
また、そのフォームは連結フォームですか。
前提・実現したいこと
AccessのVBエラー
マスターを登録する時に ”このマシーンのほかのセッションによってロックされているので、登録できませんでした。” のエラーが出てデバッグすると
rst.edit のところでエラーになっています。
プログラムは
'基本データの登録
Set rst = db.OpenRecordset("MT基本情報")
rst.Edit ここがエラー
rst![会社名] = 会社名
rst![郵便番号] = 郵便番号
rst![住所1] = 住所1
rst![住所2] = 住所2
↓
rst.Update
rst.Close
Set rst = Nothing
db.Close
ほかのセッションというのがわかりません。
解決方法を教えてください。
発生している問題・エラーメッセージ
このマシーンのほかのセッションによってロックされているので、登録できませんでした。”
該当のソースコード
Access2013 VB
'基本データの登録
Set rst = db.OpenRecordset("MT基本情報")
rst.Edit ここがエラー
rst![会社名] = 会社名
rst![郵便番号] = 郵便番号
rst![住所1] = 住所1
rst![住所2] = 住所2
↓
rst.Update
rst.Close
Set rst = Nothing
db.Close
試したこと
Set rst = db.OpenRecordset("MT基本情報")
の前に
Set rst = db.OpenRecordset("MT基本情報")
rst.Close
Set rst = Nothing
を挿入したが同じ結果になる
補足情報（FW/ツールのバージョンなど）
ここにより詳細な情報を記載してください。
フォームの登録モジュールです。
フォームの登録ボタンを押したときにエラーが出て、デバッグを押すと出てきます。
そのフォームは連結フォーム(レコードソースにテーブルかクエリが設定してある)ですか。
その通りです。
回答2件
0
たぶんフォームのレコードソースに、「MT基本情報」テーブル あるいは 「MT基本情報」 を含むクエリが設定してあるのでしょう。（これを連結フォームという。）
その場合、フォームのフォームの登録ボタンを押したときのコードは、下記の１行でOKです。
vba
1 DoCmd.RunCommand acCmdSaveRecord
あるいは、
vba
1 Me.Refresh
連結フォームではすでにテーブルがレコードセットとして開かれています。
それとは別に db.OpenRecordset でテーブルを開くと、このレコードセットとフォームのレコードセットはほかのセッションになります。
投稿2020/02/15 12:07
総合スコア33790
回答ありがとうございます。
試してみます。
上手くいきました。
ありがとうございました。
おそらく質問者さんは、Excelあるいは別のアプリからAccessのテーブルを操作した経験があるのでしょう。
その場合は、OpenRecordsetでテーブルやクエリを開いてデータ操作することになります。
Accessの連結フォームはフォーム自体かレコードセットを持っていますので、面倒なことをしなくても、１行か数行コードを書くだけで、抽出、並べ替え、検索、登録等ができます。
まずはAccessのこのような基本機能を理解することをお勧めします。
0
投稿2020/02/15 11:46
総合スコア1067
ありがとうございます。
試してみます。
上手くいきました。
ありがとうございました。
エラーは出なくなりましたが、変更した中身の更新ができていません。
元のままになります。
どのイベントにどんなコードを書いたのか提示してください。
あなたの回答
tips
プレビュー
