Office中国论坛/Access中国论坛

标题: Access的Beep响声如何弄成多响 [打印本页]

作者: zxzx2733 时间: 2006-9-17 05:46
标题: Access的Beep响声如何弄成多响
如下语句为何不执行，I 的数字怎么弄都是只响一声

Dim I
For I = 1 To 10003 ' 循环 10003 次。
Beep ' 发出一声。
Next I

[此贴子已经被作者于2006-9-16 21:47:20编辑过]

作者: andymark 时间: 2006-9-17 07:45
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Dim Cnt As Long
For Cnt = 0 To 5000 Step 10

      Beep Cnt, 50
      Me.Caption = Cnt
      DoEvents
Next Cnt

作者: zxzx2733 时间: 2006-9-17 08:26
谢谢,可用

Dim Cnt As Long
For Cnt = 1 To 5

DoCmd.Beep
DoEvents

Next Cnt

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)