Question

使用vba计算按钮点击次数需要帮助。有什么建议？？？

  couner = counter+1

这就是我发现的。

“表单不一定要有任何指向审计表的链接，使用记录集来更新计数器值。使用DLookup函数查找表中的值，即

DLookup“[Counter]”，“Audit”

此过程的进展是使用[Autonumber]和[ButtonName]创建一个AuditTable。通过这种方式，您可以计算几个ButtonClicks，但为Db中的每个按钮指定一个单独的名称，以便计算这些

DCount“[AutoNumber”，“AuditTable”，“[ButtonName] ='NameOfButtonToCount'”然后，您可以将此按钮放在可见或隐藏的字段中。“

实际上这是一个excel doc。我必须将pc打印机映射的电子表格提交给另一个要处理的组。计算点击次数的目的是帮助告诉程序转到excel的下一行。我在1到15个电子表格中添加任意数据，只是尝试自动化该过程。

Answer 1

假设您需要某种审核日志，以便使用Access表单上的按钮执行操作。在不知道任何其他事情的情况下，我能做的就是试着指出正确的方向。如果您正在尝试查看谁在数据库中执行什么操作，那么您可以创建一个包含字段的AuditTable：Form，Button，Timestamp，User，Computer。每当用户单击按钮时，执行SQL语句以更新审计表：

Dim SQL As String

SQL = "INSERT INTO " & _
    "AuditTable " & _
        "(Form, Button, Timestamp, User, Computer)" & _
    "VALUES" & _
        "('" & Me.Name & "','" & YOUR_BUTTON_NAME_HERE & "',#" & Now & "#, '" & Environ$("username") & "','" & Environ$("computername") & "');"

CurrentDb.Execute SQL

如果您想计算按钮点击次数，则可以：SELECT Button, count(1) as Clicks FROM AuditTable GROUP BY Button

使用vba来计算用户表单上的按键

1 个答案: