>>447
こうしろ

Private Sub 値_Change()
 DoCmd.RunCommand acCmdSaveRecord
End Sub