Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/ms-access/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Ms access 删除后保存记录_Ms Access - Fatal编程技术网

Ms access 删除后保存记录

Ms access 删除后保存记录,ms-access,Ms Access,我有一个表单可以为我的用户添加记录。用户单击表单上的按钮添加ID后,数据库将自动向记录中添加ID 我还有一个用户活动日志。我想在表单添加记录时记录该记录自动生成的ID号。如何从表单的onClick事件访问该号码 Private Sub btnAddTax_Click() Dim SQL As String SQL = "INSERT INTO tblMain ( field1, field2,... )" _ & "SELECT Forms![field

我有一个表单可以为我的用户添加记录。用户单击表单上的按钮添加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

编辑问题以发布用于添加记录的代码。尝试此操作后,返回“1”。自动号码是2887。嗯,它适合我。但是,我没有打开另一个表单,也没有调用另一个过程。没有其他代码,只有显示的两行代码。建议您在扩展代码中实现之前进行测试。在将其放入数据库之前,我将首先将其附加到我的用户活动日志中