#769
単票フォーム、あるいは帳票フォームの詳細セクションに配置したコマンドボタンをクリックすることで、現在編集中のレコードを強制的に保存するコード例です。
■「DoCmd」オブジェクトの「acCmdSaveRecord」を使った方法
Private Sub cmd保存_Click()
'[保存]ボタンクリック時
DoCmd.RunCommand acCmdSaveRecord
End Sub
■フォームオブジェクトの「Dirty」プロパティを使った方法
Private Sub cmd保存_Click()
'[保存]ボタンクリック時
Me.Dirty = False
End Sub
実行例：
