【Access】AllowEditで更新許可設定
- カテゴリ：パソコン/インターネット
- 2011/08/02 04:50:50
Private Sub コマンド28_Click()
Dim msg As Integer
msg = MsgBox("データを編集します。よろしいですか？", vbYesNo, "更新確認")
If msg = vbYes Then
GoTo line1
Else: GoTo line2
line1:
Me!コマンド26.SetFocus
Me!ラベル39.Visible = True
Me!コマンド28.Visible = False
AllowEdits = True
line2:
End If
End Sub
-----------------------------------
フォームのプロパティにて更新許可を行っていないフォームにて、
コマンドボタンを押したことによりAllowEditsを使用して更新可能に変更する。
