我还在努力学习,所以请温柔一点。 我的目标是通过让用户单击最后一张幻灯片上的按钮来跟踪已完成查看独立 MS PowerPoint 的用户。
单击completeButton 时,它会捕获Windows 用户名和日期。如何让事件将两个变量作为新记录插入现有的 MS Access 2007 数据库(在幕后)?
'Click button
Private Sub completeButton_Click()
'Get Windows user
Dim empUserName As String
empUserName = Environ("UserName")
'Get Date
Dim Completed As Date
Completed = Date
'Set Path to database
Dim Path As String
Path = "C:\TestDatabase.accdb"
'Open connection to database
'Insert empUserName and Completed variables as new record
'Close connection to database
'Display message
Msgbox("Thank you for viewing the material")
'Close presentation
With Application.Presentations
For i = .Count To 1 Step -1
.Item(i).Close
Next
End With
最佳答案
我在 Office 2013 上对此进行了测试,希望它也适合您。这些行打开连接,插入新条目并关闭连接。
Dim Path As String
Dim strCon As String
Dim con As Object
Path = "C:\TestDatabase.accdb"
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Path
Set con = CreateObject("ADODB.connection")
con.Open strCon
con.Execute "INSERT INTO Table1 (Field1, Field2) VALUES (""" & empUserName & """, """ & Completed & """)"
con.Close
Set con = Nothing
Table1 - 您的表名称
Field1 - 要放置 empUserName
的列名称
Field2 - 要放置 Completed
关于sql - 使用 VBA 将新记录插入 Access 2007 数据库,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/32982213/