訪問添加新行到表

我有子運行時數據庫打開到特定窗體，我試圖讓它在表中添加信息。訪問添加新行到表

表名是UnAuthorizedAccess，表中的列是ID（自動編號），NAME（文本），COMPUTERNAME（文本），ATTEMPTDATE（日期/時間）。

我需要使用哪些命令將新記錄添加到此表中？我有一個VBA，如果他們是登錄信息是不是會一起強制關閉訪問。我試圖在用戶收集信息之前收集用戶信息。

我想這是最簡單的方法，因爲outlook不會讓你發送隱藏的電子郵件，除非他們第一次看到它。

2016-05-02 user2002716

「我認爲這是最簡單的方法，因爲Outlook不會讓你發送隱藏的電子郵件，除非他們第一次看到它。」據我所知，這種說法並不完全正確。我很確定我會在我的數據庫上始終運行隱藏的電子郵件。 – LiamH

您可以使用以下代碼將記錄添加到記錄集，但我不確定您是否有名爲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。

來源

2016-05-03 06:57:52 LiamH

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在包含這些值的代碼中的變量。

來源

2016-05-03 06:58:32 marlan

請發現[這裏]（http://stackoverflow.com/questions/11579730/ms-access-send-email-not-from-outlook-or-users-email?rq=1）通過Gmail發送電子郵件的代碼（或其他互聯網郵件服務，如雅虎）。 – marlan

訪問添加新行到表

回答

相關問題