Access的Beep响声如何弄成多响

zxzx2733

如下语句为何不执行，I 的数字怎么弄都是只响一声

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

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

andymark

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

谢谢,可用

Dim Cnt As Long
For Cnt = 1 To 5  

   DoCmd.Beep
    DoEvents   

Next Cnt