Access 向表中添加新行答案

【问题标题】：Access add new line to tableAccess 向表中添加新行
【发布时间】：2016-08-27 18:47:08
【问题描述】：

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

表名是UnAuthorizedAccess，表中的列是ID(auto number), NAME(text), COMPUTERNAME(text), ATTEMPTDATE(date/time)。

我需要使用哪些命令来向此表添加新记录？我有一个 VBA，如果它们是登录信息，则没有将强制关闭访问。在将用户踢出之前，我也在尝试收集有关用户的信息。

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

【问题讨论】：

“我认为这是最简单的方法，因为 Outlook 不会让您向用户发送隐藏的电子邮件，除非他们第一次看到它”。据我所知，这种说法并不完全正确。我很确定我一直在我的数据库上运行隐藏的电子邮件。

标签： ms-access vba ms-access-2010

【解决方案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。

【讨论】：

【解决方案2】：

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

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

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

【讨论】：

请找到here通过gmail（或其他互联网邮件服务，如Yahoo）发送电子邮件的代码。