Question

我有一个sub，它在数据库打开到特定表单时运行，我试图让它在表中添加信息。

表名是UnAuthorizedAccess，表中的列是ID（自动编号），NAME（文本），COMPUTERNAME（文本），ATTEMPTDATE（日期/时间）。

我需要使用哪些命令向此表添加新记录？我有一个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

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

Answer 2

CurrentDB.Execute是执行SQL语句的方法，INSERT INTO是用于将记录添加到数据库表的SQL语句。

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

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

Access将新行添加到表中

2 个答案: