2011-09-15 224 views
0

需要使用vba來計算按鈕點擊的幫助。有什麼建議麼???使用vba來計算用戶表單上的按鈕點擊

couner = counter+1 

這就是我發現的。

「的形式並不一定有任何鏈接到審計表,使用記錄更新計數器值。使用DLookup函數來找出表中的值,即

使用DLookup」 [反]「,」審計「

從這個演變可以得到一個帶有[Autonumber]和[ButtonName]的AuditTable。這樣你可以計算幾個ButtonClicks,但是給你的Db中的每個按鈕一個單獨的名字,這些

DCount「[AutoNumber」,「AuditTable」,「[ButtonName] ='NameOfButtonToCount'」然後你可以把這個al在可見或隱藏領域的按鈕旁邊。「


其實這是一個Excel文檔。我必須提交一個用於pc打印機映射到另一個組進行處理的電子表格。計算點擊次數的目的是幫助程序轉到excel中的下一行。我添加1-15個電子表格之間的任何地方,只是試圖自動化過程。

+0

您可能希望更詳細地解釋你需要做的:「點擊按鈕點擊」並不是非常廣泛。我們可以猜測你想在Access中做到這一點 - 如果是這樣的話,那麼指定它就很好。還有你的代碼示例有問題;-) –

回答

0

假設您想要使用Access窗體上的按鈕執行某些操作的審計日誌。如果不知道別的,我所能做的就是試着指引你走向正確的方向。如果您試圖查看誰在數據庫中做什麼以及何時做什麼,那麼您可以使用字段創建一個AuditTable:表單,按鈕,時間戳,用戶,計算機。每當用戶點擊一個按鈕,執行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