访问添加新行到 table

Question

我有一个子程序，它在数据库以特定形式打开时运行，我试图让它在 table 中添加信息。

table 名称是 UnAuthorizedAccess，table 中的列是 ID（自动编号）、NAME（文本）、COMPUTERNAME（文本）、ATTEMPTDATE（date/time）。

我需要使用什么命令来向这个 table 添加新记录？我有一个 VBA 如果他们没有登录信息，则将强制关闭所有访问权限。在将用户踢出之前，我也在尝试收集有关用户的信息。

我认为这是最简单的方法，因为 Outlook 不会让您发送来自用户的隐藏电子邮件，除非他们首先看到它。

Answer 1

您可以使用以下代码将记录添加到记录集中，但我不确定您是否有一个名为 COMPUTERNAME 的字段。您不需要将 ID 值添加为自动编号。

dim Rst as recordset      
Set Rst = CurrentDb.OpenRecordset(Name:="UnauthorizedAccess", Type:=RecordsetTypeEnum.dbOpenDynaset)
         With Rst
            .AddNew
            ![NAME] = Me.Name.Value
            ![COMPUTERNAME] = Me.COMPUTERNAME.Value
            ![ATEMPTDATE] = date()
            .Update
         End With

至于发送隐藏邮件，我不久前问过的问题。它通过 outlook 发送电子邮件，但请记住在 VBA 编辑器中引用 Microsoft Outlook Object library。

Answer 2

CurrentDB.Execute是执行SQL语句的方法，INSERT INTO是SQL向DB添加记录的语句table.

CurrentDB.Execute "INSERT INTO UnAuthorizedAccess (NAME, COMPUTERNAME, ATTEMPTDATE) " & _
"VALUES (" & Your_NAME_Variable & ", " & Your_COMPUTERNAME_Variable  & ", " & Now() & ")

将 Your_NAME_Variable 和 Your_COMPUTERNAME_Variable 替换为代码中包含这些值的变量。

访问添加新行到 table

Access add new line to table

ms-access

vba

ms-access-2010