こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

更新の許可(AllowEdits)について

Access2013を使用しています。

フォームのプロパティ
→更新の許可 いいえ

VBAに以下のコードを記述しました。

Private Sub 更新許可_Click()
Me.AllowEdits = True
End Sub

Private Sub 更新不可_Click()
Me.AllowEdits = False
End Sub

更新許可ボタンをクリックしたとき、問題なく更新出来るようになるのですが
更新不可ボタンをクリックしても、更新出来てしまいます。
何処に原因があるのでしょうか。
なお、True→ -1 、False→0に書き換えてみましたが変化が有りませんでした。
出来ましたら、具体策をお願い致します。

投稿日時 - 2015-01-27 22:01:44

QNo.8905939

困ってます

質問者が選んだベストアンサー

このフォームは連結フォーム(レコードソースにテーブルかクエリで設定してある)ですか。
もし非連結フォーム((レコードソースが空白)なら、AllowEdits の設定は無意味です。
AllowEdits プロパティは連結フォームのみ有効ですので。

連結フォームなのに、AllowEdits = False が効かないという場合は、フォームが編集中ではないですか。
レコード保存してから、更新不可 ボタンをクリックしてください。

あるいは、強制的にレコード保存知るか。

Private Sub 更新不可_Click()
If Me.Dirty Then Docmd.RunCommand acCmdSaveRecord
Me.AllowEdits = False
End Sub

投稿日時 - 2015-01-27 22:33:04

このQ&Aは役に立ちましたか?

10人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問