Как создать окно подтверждения «да / нет» для сохранения записи, удаления записи и отмены изменений в vb?

Question

Моя команда и я создаем систему управления рисками поставщиков в Microsoft Access 2016 и работаем с Code Builder, чтобы кодировать окно подтверждения «да / нет», чтобы пользователь подтвердил, что он хочет сохранить внесенные изменения к форме. То же самое касается отмены изменений, которые очищают форму, и изменения, удаляющего запись.

Наш ожидаемый результат - отображение окна подтверждения, когда пользователь нажимает кнопки «Сохранить», «Отменить» и «Удалить» по отдельности. Это код, который у нас был до сих пор, но он, кажется, не сохраняет запись, когда нажимается «Да».

Private Sub Command41_Click() 

   Dim strMsg As String 

   Dim iResponse As Integer 

   ' Specify the message to display. 
   strMsg = "Do you wish to save the changes?" & Chr(10) 
   strMsg = strMsg & "Click Yes to Save or No to Discard changes." 

   ' Display the message box. 
   iResponse = MsgBox(strMsg, vbQuestion + vbYesNo, "Save Record?") 

   ' Check the user's response. 
   If iResponse = vbNo Then 
      ' Undo the change. 
      DoCmd.RunCommand acCmdUndo 
      ' Cancel the update. 
      Cancel = True 
   End If 

End Sub