Моя команда и я создаем систему управления рисками поставщиков в 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