Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba MS Access是否使用“自动重复”重复命令按钮的单击事件?_Vba_Ms Access - Fatal编程技术网

Vba MS Access是否使用“自动重复”重复命令按钮的单击事件?

Vba MS Access是否使用“自动重复”重复命令按钮的单击事件?,vba,ms-access,Vba,Ms Access,嗨,我有一个命令按钮,点击时会触发一些代码 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 此代码将刷新文

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

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
此代码将刷新文本框中的报价

我想实现的是,在按下命令按钮后,此报价自动刷新

我知道如果我一直按下鼠标按钮,自动重复属性将允许我实现这一点,但这是不现实的,因为我将无法做任何其他事情


欢迎提供任何帮助。

将此代码置于
计时器
表单事件中,然后按按钮将表单属性
TimerInterval
设置为以毫秒为单位的刷新时间,例如
Me.TimerInterval=1000
将每隔一秒开始引用