MS Access使用自动重复重复命令按钮的单击事件？

Question

嗨，我有一个命令按钮，点击时会触发一些代码，

Private Sub Command46_Click()
Dim a As Long
Dim b As String
Dim c As Variant



a = DDEInitiate("EXCEL", "[START UP.XLSM]Sheet1")
b = "R1C1"

c = DDERequest(a, b)

Me.txt_qAUDUSD = c

Application.DDETerminate a

End Sub

此代码将在文本框中刷新引号。

我想要达到的目的是在按下命令按钮后自动刷新此引号。

我知道如果我按住鼠标按钮，自动重复属性将允许我实现这一点，但这是不切实际的，因为我不能做任何其他事情！

欢迎任何帮助。

Answer 1

将此代码放入Timer表单事件，然后按下按钮设置表单属性TimerInterval以刷新时间（以毫秒为单位），例如Me.TimerInterval = 1000将每秒开始引用刷新。