VBAへのアクセスの保存先

Question

ユーザーがフォームを閉じると、データベースに入力されたデータが自動的に保存されます。したがって、保存ボタンを持つ必要はありません。

しかし、ほとんどのユーザーはSaveボタンを押すのが常習的なので、まだSaveボタンが必要であると主張します。

Saveボタンには、フォームに入力したすべてのデータを保存するためのコードを記述してください。

データが変更されているかどうかを確認する際にも注意が必要です。ユーザーはフォームを開いてデータを表示することがありますが、変更が加えられていないにもかかわらず、Saveボタンを押します。

Answer 1

あなただけDirtyを使用することができますSaveボタン

Private Sub cmdSave_Click() 
    If Me.Dirty Then 'to check if any data has changed. 
     DoCmd.RunCommand acCmdSaveRecord 
    End If 
End Sub 

Answer 2

のClickイベントのコード：

Private Sub cmdSave_Click() 
    If Me.Dirty = True Then 
     Me.Dirty = False 
    End If 
End Sub 

Answer 3

私はこのことを考えていますが、私はから得た同じコメントに基づいて何をしたいです私の同僚...私はいつも彼らが保存したいかどうかを質問することから始めます、時にはユーザーはちょうど遊び心があり、レコードを混乱させることがあります。

If me.dirty = true then 
      If MsgBox("Are you sure you want to save as " & TempVars!gbl_username & "? 
         After saving you will be moved to a new record", _ 
         vbYesNo + vbQuestion, "Save Changes") = vbNo Then 
       'If answer is no 
        'Do nothing 
      Else 
       DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70      
      End If 
    End If