删除后保存记录

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了删除后保存记录相关的知识,希望对你有一定的参考价值。

我有一个表单为我的用户添加记录。在用户单击表单上的按钮添加ID后,数据库将自动为记录添加ID。

我还有一个用户活动日志。我希望在表单添加记录时记录记录的自动生成的ID号。如何从表单的onClick事件中访问该数字?

Private Sub btnAddTax_Click()
    Dim SQL As String

    SQL = "INSERT INTO tblMain ( field1, field2,... )" _
        & "SELECT Forms![field1Box], Forms![field2Box],...;"

    DoCmd.RunSQL SQL

    MsgBox "Tax Added to the Database"
    DoCmd.OpenForm "frmMainScreen"
    DoCmd.Close acForm, Me.Name

    Dim tempString As String
    tempString = "Added a record"
    Logging (tempString)

End Sub
答案

考虑按钮点击事件中的代码:

DoCmd.RunCommand acCmdSaveRecord
Debug.Print Me!ID 'or do something else with ID

以上是关于删除后保存记录的主要内容,如果未能解决你的问题,请参考以下文章

删除后保存记录

保存对象后使用相关对象?

轻松保存重复多用的代码片段

我在哪里更改此 Python 代码片段以将临时文件保存在 tmp 文件夹中?

#VSCode保存插件配置并使用 gist 管理代码片段

如何通过单击适配器类中代码的项目中的删除按钮来删除列表视图中的项目后重新加载片段?