Question

当用户关闭表单时，自动访问保存在数据库中输入的数据。因此，无需使用保存按钮。

但是，由于大多数用户习惯按Save按钮，他们仍然会坚持应该有Save按钮。

应为Save按钮编写哪些代码来保存表单中输入的所有数据。

还必须注意检查数据是否已更改。有时用户会打开表单来查看数据，即使他们没有做任何更改，他们也会按Save按钮。

Answer 1

您也可以仅使用Dirty：

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

Answer 2

Save按钮

的点击事件代码

Private Sub cmdSave_Click()
    If Me.Dirty Then    'to check if any data has changed.
        DoCmd.RunCommand acCmdSaveRecord
    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

访问VBA以保存在From中输入的数据

3 个答案: